مایک، به عنوان یک حسابدار، نیاز به پنهان کردن ردیف ها در یک کاربرگ بر اساس مقادیر دو سلول در ردیف دارد. جداول داده او سه ستون دارد. اگر یک ردیف دارای صفر در ستون های دو و سه باشد، سطر باید پنهان شود. اگر ستون دو یا سه خالی باشد یا مقدار دیگری داشته باشد، سطر نباید پنهان شود.
چند راه برای حل این مشکل وجود دارد. اولین مورد استفاده از قابلیت های فیلتر اکسل است. فقط ستون دیگری ایجاد کنید که حاوی فرمولی مانند این باشد:
=AND(B2=0,C2=0)
مقدار بازگردانده شده توسط فرمول تنها در صورتی True خواهد بود که هر دو ستون دوم (B) و سوم (C) دارای مقدار صفر باشند. فرمول را در سایر سلول های مناسب در ستون کپی کنید و سپس می توانید یک فیلتر بر اساس آن ستون اعمال کنید. وقتی فقط آن ردیف هایی را که حاوی False هستند را در ستون نمایش می دهید، به طور موثر سطرهایی را که در ستون های دو و سه مقدار صفر وجود دارد، پنهان کرده اید.
همچنین می توانید از یک ماکرو برای بررسی ردیف ها برای خود استفاده کنید. ماکرو زیر از هر ردیف در کاربرگ عبور می کند و با ردیف 1 شروع می شود. تا زمانی که چیزی در ستون A وجود دارد، ماکرو بررسی می کند که در ستون های B و C مقدار صفر وجود داشته باشد. اگر وجود دارد، پس ویژگی .Hidden برای ردیف تنظیم شده است.
Sub Hide()
Dim Criteria as Boolean
Dim i As Integer
i = 1
Do Until Trim(Cells(i, 1).Value) = ""
Criteria = True
Criteria = Criteria And (Cells(i, 2).Value = 0) _
And Cells(i, 2).Value <> ""
Criteria = Criteria And (Cells(i, 3).Value = 0) _
And Cells(i, 3).Value <> ""
If Criteria Then Rows(i).EntireRow.Hidden = True
i = i + 1
Loop
End Sub
ماکرو تا زمانی اجرا می شود که با ردیفی روبرو شود که در آن چیزی در ستون A وجود ندارد. این بدان معنی است که شما باید مطمئن شوید که واقعاً چیزی در ردیف های قبل از جدول داده شما وجود دارد. اگر جدول داده های شما در ردیف 4 کاربرگ شروع می شود و سلول های A1 تا A3 چیزی در آنها وجود ندارد، ماکرو هرگز به طور رضایت بخش اجرا نمی شود. البته می توانید در این شرایط ماکرو را طوری تنظیم کنید که شروع به بررسی در ردیف 4 کند. به سادگی تخصیص اولیه متغیر i را به جای 1 به 4 تغییر دهید.
