آشکار کردن یک ستون تک

Question

من مرتباً ستون ها را در برگه هایم پنهان و آشکار می کنم. اگر من طیف کاملی از ستون ها را پنهان داشته باشم، باز کردن یک ستون از بین تمام ستون های پنهان، برایم زحمتی است. برای مثال، من ممکن است ستون های C:M را پنهان کنم و بخواهم بعداً ستون F را باز نمایم. راه های مختلفی برای این کار وجود دارد:

• کل محدوده را باز کنید و سپس C:E و G:M را دوباره پنهان کنید.
• سلول F1 را در کادر Name وارد کنید و سپس از کنترل های موجود از طریق ابزار Format در زبانه Home نوار استفاده کنید تا ستون را باز کنید.
• سلول F1 را در کادر Name وارد کنید و سپس Ctrl+Shift+0 را فشار دهید تا ستون نمایان شود.

چند راه دیگر نیز برای پنهان کردن ستون وجود دارد، اما (همانطور که گفتم) چنین رویکردهایی را آزاردهنده می دانم. پنهان کردن یک ستون یا طیف وسیعی از ستون ها از طریق یک ماکرو کوچک بسیار آسان است. موارد زیر را در نظر بگیرید:

Sub UnhideSingleColumn()
    Dim Col As String
    Dim rng As Range

StartHere:
    Col = InputBox("Enter column to unhide.", "Unhide Column")
    If Col = "" Then Exit Sub
    On Error Resume Next
     if not a valid range, an error occurs
    Set rng = ActiveSheet.Columns(Col)
    If Err.Number <> 0 Then
        On Error GoTo 0
        Err.Clear
        MsgBox "Invalid input! Please input a valid column."
        GoTo StartHere
    End If

    rng.EntireColumn.Hidden = False

    MsgBox "Column " & UCase(Col) & " is now visible.", _
      vbOKOnly, "Unhide Specified Column"
    Set rng = Nothing
    On Error GoTo 0
End Sub

ماکرو به کاربر می گوید کدام ستون باید قابل مشاهده باشد و سپس سعی می کند آن ستون را انتخاب کند. اگر ستون را نتوان انتخاب کرد، خطایی ایجاد می شود و دوباره از کاربر درخواست ورودی می شود. اگر بتوان ستون را انتخاب کرد، ویژگی .Hidden آن خاموش می شود و در نتیجه ستون قابل مشاهده می شود.