示例代码:
Sub CheckClick()
Dim check As CheckBox
Set check = Sheet1.CheckBoxes(Application.Caller)
If check.Value = 1 Then
Sheet1.Range("a1").Value =
示例代码:
Sub CheckClick()
Dim check As CheckBox
Set check = Sheet1.CheckBoxes(Application.Caller)
If check.Value = 1 Then
Sheet1.Range("a1").Value =