只有当我单击工作表中的单元格时，代码才有效

Question

我使用了复选框，当根据选中的复选框单击时，特定的行将取消隐藏。代码运行良好。唯一的问题是，代码不是通过单击复选框来触发的，而是当我选择工作表中的任何单元格时才起作用。

以下是一些使用的代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Activate
If Range("C2").Value Or Range("C3").Value Or Range("C4").Value Or Range("C5").Value Or Range("C6").Value Or Range("C7").Value Or Range("C8").Value Or Range("C9").Value Then
Rows("39:52").EntireRow.Hidden = False
Rows("166:169").EntireRow.Hidden = False
Rows("173:175").EntireRow.Hidden = False

Else
Rows("39:52").EntireRow.Hidden = True
Rows("166:169").EntireRow.Hidden = True
Rows("173:175").EntireRow.Hidden = True
End If

End Sub

Answer 1

因为您使用事件[Worksheet_SelectionChange]，所以它只在更改选择单元格时运行。如果要在单击复选框时运行，则必须写入复选框的事件[click]例如：

Sub CheckBox1_Click()
End Sub