复选框与VBA链接以隐藏多行

Question

当复选框被选中或被取消选中时，我试图隐藏和取消隐藏许多行。我已经创建了下面的代码，当复选框被取消选中时，它会隐藏行，但是当我再次选中时，行是不可见的。有人能帮忙吗？

Private Sub CheckBox3_Click()
'unhide all rows
Rows("1:138").EntireRow.Hidden = False
'Hide investment Advice, if checkbox is not marked
If CheckBox3 = False Then
Rows("22:29").EntireRow.Hidden = True
Else
Rows("22:29").EntireRow.Hidden = False
End If
End Sub

Answer 1

请参阅https://support.microsoft.com/en-us/office/how-to-use-the-forms-controls-on-a-worksheet-in-excel-e7e33c0c-f080-4443-b565-d21b1bdbcf43

1. 将复选框的单元格引用设置为G2地址或范围名称，例如VISIBLE
2. 当复选框事件发生时，处理单元格中的值

Sub CheckBox3_Click()
Rows("22:29").Hidden = Not [Visible] ' VISIBLE i have set as name for G2 range
End Sub