运行macros离开页面

我有一个checkbox，将检查时运行此macros。 checkbox位于sheet1中，它将隐藏sheet2中的第11行。 我怎么写这个代码，所以我不必在表单之间来回跳动？

Sub Hide_HeaterTreater_Rows() Sheets("NSR Report").Select Range("11:11").Select If Selection.EntireRow.Hidden = False Then Selection.EntireRow.Hidden = True Else Selection.EntireRow.Hidden = False End If Sheets("NSR FORM").Select End Sub 

Answer 1

似乎有点奇怪的切换checkbox的可见性：我认为这将是更好的使用checkbox的值设置可见性…

 Sub Hide_HeaterTreater_Rows() With Sheets("NSR Report").Rows(11).EntireRow .Hidden = Not .Hidden End With End Sub 

编辑：多行

 Sub Hide_HeaterTreater_Rows() With Sheets("NSR Report").Range("11:11,24:24").EntireRow .Hidden = Not .Hidden End With End Sub 

Answer 2

 Sub Hide_HeaterTreater_Rows() Sheets("NSR Report").Rows(11).EntireRow.Hidden = Not Sheets("NSR Report").Rows(11).EntireRow.Hidden End Sub 

但是我想你可能想用

 Sub Hide_HeaterTreater_Rows() Sheets("NSR Report").Rows(11).EntireRow.Hidden = Sheets("NSR FORM").Shapes("CheckBox1").Value End Sub