在特定工作表上评估ToggleButton

如何评估特定工作表上切换button的状态？

如果我的代码与特定的工作表一起存储，我可以参考button的名称：

Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then Debug.Print "true" Else Debug.Print "false" End If End Sub 

但是，如果我的代码存储在模块中，上述方法不起作用。 我已经尝试了以下，但它也不起作用：

 Public Sub Check_Button() If Sheets("sheet1").OLEObjects("ToggleButton1").Value = True Then Debug.Print "true" Else Debug.Print "false" End If End Sub 

Answer 1

只是：

 Public Sub Check_Button() If Sheets("sheet1").ToggleButton1.Value = True Then Debug.Print "true" Else Debug.Print "false" End If End Sub 

虽然这可能不是很好的做法，但值得一提的是，你可能会失去".Value"

 If Sheets("sheet1").ToggleButton1 = True Then