我正在尝试创建一个可点击的切换按钮,如果当前未隐藏,则隐藏一年的数据,如果隐藏则取消隐藏。我知道这种语法不正确,但我不知道如何使它工作。任何帮助,将不胜感激。
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
最佳答案
这对我有用。显然 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
优雅得多。
关于vba - 使用 VBA if 语句通过按钮隐藏/取消隐藏列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37737322/