vba - 使用 VBA if 语句通过按钮隐藏/取消隐藏列

Question

我正在尝试创建一个可点击的切换按钮，如果当前未隐藏，则隐藏一年的数据，如果隐藏则取消隐藏。我知道这种语法不正确，但我不知道如何使它工作。任何帮助，将不胜感激。

Sub Hide_2012()
Dim Yr2012 As Range
    Set Yr2012 = ThisWorkbook.Worksheets("Open Jobs Calculations").Range("AI:AT")

If Yr2012.Visible = False Then
     Yr2012.Visible = True
Else If Yr2012.Visible = True Then
     Yr2012.Visible = False
End If

Answer 1

这对我有用。显然 hidden仅适用于 entire columns .

Dim Yr2012 As Range
Set Yr2012 = ThisWorkbook.WorkSheets("Open Jobs Calculations").Range("A1:B10") 'change range

If Yr2012.EntireColumn.Hidden = False Then
     Yr2012.EntireColumn.Hidden = True
ElseIf Yr2012.EntireColumn.Hidden = True Then
    Yr2012.EntireColumn.Hidden = False
End If

根据斯科特的评论编辑:

Yr2012.EntireColumn.Hidden = Not Yr2012.EntireColumn.Hidden

优雅得多。