-1

我的 Excel 表中有很多复选框。我在他们每个人的 check 事件上调用一个 Common Sub。

是否有可能知道在公共 Sub 中检查了哪个复选框?(以便我可以采取相应的行动)

4

1 回答 1

1

试试这个

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
于 2013-09-09T12:07:18.733 回答