复选框以隐藏/取消隐藏行而不取消隐藏

Question

我有一个表单控件复选框和以下代码来隐藏和取消隐藏第10行。
它隐藏但不取消隐藏。

Sub CheckBox1_Click()

    If Range("C84").Value = True Then
        Rows("10:10").EntireRow.Hidden = False
    Else
        Rows("10:10").EntireRow.Hidden = True
    End If

End Sub

Answer 1

代码完美运行。 此外，如果在其他地方未使用单元格C84的值，则无需使用LinkedCell即可获得相同的值：

Sub CheckBox1_Click()

    Rows("10:10").EntireRow.Hidden = Not CheckBox1

End Sub

Answer 2

要取消隐藏c84值，只要它为true，就应该为false