Rows Hide

[علی فاطمی]

با سلام .
برای Hidden کردن ردیف از کد زیر استفاده می کنم :

Sheet1.Rows.EntireRow.Hidden = True

حالا می خوام ردیفهای که حاوی اطلاعات هستن unHidden بشن وبقیه Hidden برای این کار هم از کد زیر استفاده کردم :

Dim n
n = Application.WorksheetFunction.Count(Sheet1.Range(" a1:a100"))
Sheets1.Rows("1:n").EntireRow.Hidden = False

ولی ارور می ده . اگر بجای n عدد بزارم جواب میده ولی با کد فوق نه.

فایل پیوست رو هم می تونین مشاهده کنین .
ممنون از توجه شما.

[Alireza]

سلام
دوست عزیز امیدوارم فایل پیوست راه گشا باشه البته فقط با یک مرحله میشه این کار رو انجام داد

[mokaram]

سلام
دوست عزیز امیدوارم فایل پیوست راه گشا باشه البته فقط با یک مرحله میشه این کار رو انجام داد

با تشکر از آقا علیرضا فکر کنم اگه کد زیر را جایگزین کدهای باتون 2 بکنید محدودیتی تو استفاده نداشته باشی

Rows("1:1000").Select
Selection.EntireRow.Hidden = False
Range("a1").Select 

البته اگه این قطعه را هم تو ایونت open هم اضافه کنید جالبترم میشه

[Alireza]

بله توی همون حلقه هم میشه اینکار رو انجام داد

[علی فاطمی]

از توجه مدیران محترم بسیار سپاس گذارم.
اگر بخوام دقیق توضیح بدم مثلا توی شیت 1 20 ردیف حاوی اطلاعات هستن من می خوام از شیت 1 پرینت پرویو بگیرم و دو تا تکست باکس خواهیم داشت که در اونها مثلا اعداد 1 و 10 ثبت میشن حالا می خوام همه ردیف ها غیر از ردیف های 1 تا 10 hide بشن و در پرینت پرویو این 10 تا ردیف نمایش داده بشه و پس از بستن پرینت پرویو در شیت 1 فقط 20 ردیفی که حاوی اطلاعات هست unhide باشه.
ببخشید امیدوارم توضیحاتم مطلب رو رسونده باشه.

[علی فاطمی]

با سلام اساتید محترم
به کد زیر دقت کنید :

dim n , m
n=textbox1.text
m=textbox2.text

Sheets1.Rows("n:m").EntireRow.Hidden = False

یعنی می خوام ردیف هایی که از عددی که توی تکست 1 نوشته میشه تا عددی که توی تکست 2 نوشته میشه unhide بشه.
آقا جواب نمیده..............
و حالا چیزی که رو اعصاب اینه که اگر بجای n و m عدد بزاری دقیق کار میکنه.
آقا کار میکنه ............
چطور میشه اعداد توی تکست ها رو به m و n نسبت داد.
ممنون از توجه شما.

[khakzad]

سلام
n و m رو داخل کوتیشن نذارید
ببینید درست میشه؟


پ.ن: وقت تستشو نداشتم

[jeddi]

سلام به دوستان و اساتید محترم
با اجازه دوست عزیز من هم یه سوال از همین موضوع دارم اینکه می خوام تو یه محدوده (ردیف یک تا 20 )، از ردیف 2 تا 20 هید باشند و با وارد کردن اطلاعات ردیف یک ، ردیف دو فعال بشه جهت وارد کردن اطلاعات به همین ترتیب ادامه پیدا بکنه ... و همچنین یه محدوده در همان شیت از ردیف 30 تا 50 ، ردیف 31 تا 50 هید باشند و با وارد کردن اطلاعات ردیف 30 ، ردیف 31 فعال بشه ...
متشکر از لطف همه دوستان و اساتید

[علی فاطمی]

سلام
n و m رو داخل کوتیشن نذارید
ببینید درست میشه؟


پ.ن: وقت تستشو نداشتم

سرکار خانم خاکزاد ممنون از توجه شما ، امتحانش کرده بودم و جواب نداد.

[علی فاطمی]

اگر دوستان فایل پیوست رو ملاحظه کنن کدها نوشته شده تو کامن باتن printpreview با چند تا متغیره ، که متغیر m مربوط به محتویات تکست 1 و متغیر n محتویات تکست 2 هستش و متغیر a هم تعداد ردیف هایی که حاوی اطلاعات هستن. که البته جواب نمیده.
اگر کدهای نوشته شده تو کامن باتن printpreview adad sabet رو ببینین از اعداد ثابت استفاده شده و جواب میده و این منو مطمئن تر میکنه که این کار قابل حله و تقریبا کل دیروز رو داشتم سعی و خطا می کردم.
اگر اساتید لطف کنن و ملاحظه کنن ممنون میشم.

[علی فاطمی]

آقا یکی به داد ما برسهههههههههههههههههههههههههههههههه

[علی فاطمی]

یکی مارو دریابه............................................ .............................

[Alireza]

سلام
علی جان دقیق متوجه منظورت نشدم لطفا فایل رو آپلود کن

[علی فاطمی]

با سلام
عذرخواهی می کنم فکر می کردم فایل پیوست کردم.

[امين اسماعيلي]

با درود
ایطورکی درسش کن ببین میشه - لمشو بگیر - خان خاکزاد گفت " " بردار نگفت که که واسه دونقه : هم برش دار- بعدشم میای به 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