نمایش تعداد محدودی از ستون ها

Question

مالکوم ستون ها را همیشه در برگه ای که روزانه استفاده می کند پنهان می کند. او فکر می کند که آیا راهی برای آشکار کردن تنها بخشی از ستون های پنهان وجود دارد. به عنوان مثال، اگر او 100 ستون مخفی داشته باشد، ممکن است بخواهد تنها 10 ستون آخر آن را آشکار کند.

پاسخ به ماهیت داده هایی که با آنها کار می کنید بستگی دارد. اگر ستون هایی که باید نمایش دهید همیشه همان ده ستون هستند، می توانید از یک ماکرو برای نمایش مخفی کردن استفاده کنید. به عنوان مثال، اگر همیشه می خواهید ستون های DA:DJ را آشکار کنید، این ماکرو تک خطی کار خواهد کرد:

Sub UnhideCols()
     Columns("DA:DJ").Hidden = False
End Sub

اگر ستون هایی که می خواهید نمایش دهید تغییر می کنند، می توانید ماکرو را تغییر دهید تا از کاربر بخواهید محدوده ستون را وارد کند:

Sub UnhideCols()
    Rng = InputBox("Unhide which columns? (x:y)")
    Range(Rng).EntireColumn.Hidden = False
End Sub

البته، اگر می خواهید طیف وسیعی از ستون ها را وارد کنید، می توانید با دنبال کردن این مراحل، ماکرو را کاملاً نادیده بگیرید:

1. یک بار در کادر نام، درست در سمت چپ نوار فرمول کلیک کنید.
2. محدوده ای را که می خواهید پنهان کنید، مانند DA:DJ تایپ کنید و سپس Enter را فشار دهید. اکسل ستون ها را انتخاب می کند، حتی اگر پنهان باشند.
3. تب Home نوار را نمایش دهید.
4. روی Format | کلیک کنید پنهان کردن و باز کردن | نمایش ستون ها اکسل آن ستون ها را آشکار می کند.

اگر کاربرگ شما فقط یک بلوک از ستون های مخفی دارد و دقیقاً نمی دانید که آن بلوک کجا می تواند باشد، می توانید از ماکرو زیر برای نمایش تنها ۱۰ ستون مخفی آخر استفاده کنید:

Sub UnhideLast10()
    Dim J As Integer
    Dim K As Integer

    K = 0
    For J = 16384 To 1 Step -1
        If Columns(J).Hidden Then
            Columns(J).Hidden = False
            K = K + 1
        End If
        If K = 10 Then Exit For
    Next J
End Sub

ماکرو شروع به نگاه کردن به سمت راست ترین ستون می کند و به سمت چپ قدم می گذارد. اگر یک ستون مخفی پیدا کند، آن را باز می کند و شمارنده K را افزایش می دهد. هنگامی که K به 10 رسید (که به این معنی است که 10 ستون از حالت پنهان خارج شده اند)، ماکرو به طور خودکار خارج می شود.