我想使用一个宏/按钮在隐藏和取消隐藏选择列之间切换。我有一些类似的东西可以隐藏/取消隐藏行,但无法弄清楚这一行。
Sub PrintToggle()
With ActiveSheet
With Range("C:C,E:E,H:H,L:O,U:U,AA:AA,AF:AF,AI:AK").Columns
If .EntireColumn.Hidden Then
.EntireColumn.Hidden = False
Else
.EntireColumn.Hidden = True
End If
End With
End With
结束子
此功能用于至少隐藏列,但在保存并重新打开后,现在将隐藏整个工作表。我无法阻止它取消隐藏相同的列。谢谢!
答案 0 :(得分:1)
循环遍历每行对我有用的
Sub PrintToggle()
Dim r As Range
For Each r In ActiveSheet.Range("C1,E1,H1,L1:O1,U1,AA1,AF1,AI1:AK1")
If r.EntireColumn.Hidden Then
r.EntireColumn.Hidden = False
Else
r.EntireColumn.Hidden = True
End If
Next r
End Sub