Jesse یک کاربرگ بزرگ دارد که ممکن است حاوی ردیفهای مخفی باشد. او نمیپرسد آیا راهی برای یافتن ردیفهای مخفی در کاربرگ وجود دارد، به جز نگاه کردن به ردیفهای زیاد برای دیدن مواردی که از دست رفتهاند. اگر او تمام ردیفهای پنهان را آشکار کند، باز هم نمیتواند بگوید که چه ردیفهایی ممکن است پنهان شده باشند.
یکی از راه هایی که می توانید ردیف های مخفی را شناسایی کنید این است که این مراحل کلی را دنبال کنید:
- در ستونی که هیچ چیزی در آن وجود ندارد، تمام سلول هایی را انتخاب کنید که ناحیه مورد نظر برای بررسی را پوشش می دهند. (در صورت تمایل می توانید کل ستون را انتخاب کنید، اما ممکن است بیش از حد باشد.)
- Alt+ را فشار دهید؛ (این نقطه ویرگول است). اکسل فقط سلول های پنهان نشده در محدوده انتخاب شده را انتخاب می کند.
- X (یا یک کاراکتر قابل مشاهده دیگر) را فشار دهید و Ctrl+Enter را فشار دهید. این کاراکتر (X) را در تمام سلول های قابل مشاهده قرار می دهد.
تمام سطرها را باز کنید و به راحتی میتوانید ببینید کدام سلولهای آن ستون دارای کاراکتر (X) نیستند. اینها ردیف هایی هستند که قبلاً پنهان شده بودند. همچنین در صورت تمایل می توانید از همان رویکرد کلی استفاده کنید، اما بعد از مرحله 2 (به جای مرحله 3) می توانید مقداری الگو یا رنگ را به سلول ها اعمال کنید. هنگامی که تمام ردیفها را آشکار میکنید، آن سلولهای بدون الگو یا رنگ همان سلولهایی هستند که قبلاً در ردیفهای مخفی قرار داشتند.
اگر اصلاً نمیخواهید ردیفها را پنهان کنید، شاید بهترین راه برای پیدا کردن اطلاعات استفاده از ماکرو باشد. ماکرو ساده زیر 1000 ردیف اول یک کاربرگ را طی میکند و سپس ردیفهایی که پنهان هستند را در یک جعبه پیام فهرست میکند.
Sub ShowRows()
Dim rng As Range
Dim c As Range
Dim sTemp As String
Set rng = Range("A1:A1000")
sTemp = ""
For Each c in rng
If c.EntireRow.Hidden Then
sTemp = sTemp & "Row " & c.Row & vbCrLf
End If
Next c
If sTemp > "" Then
sTemp = "The following rows are hidden:" & vbCrLf & _
vbCrLf & sTemp
MsgBox sTemp
Else
MsgBox "There are no hidden rows"
End If
End Sub
توجه داشته باشید که قلب ماکرو - جایی که تعیین می کند یک ردیف پنهان است یا نه - در بررسی ویژگی Hidden شی EntireRow است. اگر این ویژگی True باشد، ردیف پنهان می شود.