使用复选框在不同工作表中隐藏/取消隐藏行的问题

原代码的问题在于依赖Select切换工作表，这种操作容易受Excel当前活动工作表的上下文影响，导致对目标工作表的行操作失效。同时，[21:25]这种简写的范围引用，在某些场景下可能默认指向当前活动工作表而非已选中的工作表，进一步引发问题。

修正后的代码 #

直接明确指定目标工作表和行范围，避免使用Select：

If CheckBox1.Value = False Then
    Sheets("Compliance Certificate").Rows("21:25").EntireRow.Hidden = True
Else
    Sheets("Compliance Certificate").Rows("21:25").EntireRow.Hidden = False
End If

额外说明 #

• 如果你的复选框是表单控件（而非ActiveX控件），要确保代码绑定到正确的控件事件，并且用CheckBox1.Value获取状态（原代码直接写CheckBox1在部分场景下不够严谨）。
• 尽量避免在VBA中使用不必要的Select/Activate，直接操作对象是更可靠、高效的写法，能减少上下文相关的错误。

内容的提问来源于stack exchange，提问作者tisha122