我的 Excel 表中有很多复选框。我在他们每个人的 check 事件上调用一个 Common Sub。
是否有可能知道在公共 Sub 中检查了哪个复选框?(以便我可以采取相应的行动)
试试这个
Sub CommonClick
Dim cb As CheckBox
On Error Resume Next
Set cb = ActiveSheet.Checkboxes(Application.Caller)
If Err.Number <> 0 Then
MsgBox "Sub not called from a CheckBox on current sheet"
Exit Sub
End If
On Error GoTo 0
MsgBox cb.Name & " was set to " & cb.Value
End Sub