با درود
ایطورکی درسش کن ببین میشه - لمشو بگیر - خان خاکزاد گفت " " بردار نگفت که که واسه دونقه : هم برش دار- بعدشم میای به textbox اتون خاصیت text میدی - اگر text میدی باید بنویسی
کد:
val(m) مثلا
کد:
Private Sub CommandButton3_Click()
UserForm1.Hide
Dim a
Dim m
Dim n
m = TextBox1.Value
n = TextBox2.Value
Sheet1.Rows.EntireRow.Hidden = True
Sheet1.Range(m & ":" & n).Rows.EntireRow.Hidden = False
Sheet1.PrintPreview
a = Application.WorksheetFunction.Count(Sheet1.Range(" a1:a100"))
UserForm1.Hide
Sheet1.Range("1:" & a).Rows.EntireRow.Hidden = False
End Sub
مثل همیشه بسیار عالی بود .
ممنون از توجه شما.
[FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]
کامنت