基于按钮隐藏/取消隐藏工作表的宏

Question

我想在单击时隐藏/取消隐藏工作表的按钮。

当按钮被勾选时，隐藏工作表时，我拥有的代码将使工作表可见。但是，当未选择工作表时，它不会使工作表不可见。

Sub CheckBox1_Click()

Dim i As Integer
    Sheets("A").Visible = True

End Sub

我希望该表格在不被单击时不可见。

Answer 1

使用Not和当前Visible状态进行切换：

Sub CheckBox1_Click()   
    Sheets("A").Visible = Not Sheets("A").Visible 
End Sub

如果您特别想保证选中 = 可见和未选中 = 隐藏，请使用以下命令：

Private Sub CheckBox1_Click()
    Sheets("A").Visible = CheckBox1.Value
End Sub