在 VBA 事件处理程序中获取对表单复选框的引用

Question

我在 Excel 2010 中有一些表单复选框。我需要在单击它们时执行一些通用代码。为此，我想传递对复选框的引用，但到目前为止，我只能将其键入为形状。

要抢占问题，是的，它们需要是表单复选框而不是 ActiveX 复选框。

我是 VBA 的新手，非常感谢任何帮助。

Sub CheckBox1_Click()
    'I really want this reference to be a Checkbox, not a Shape
    Dim shape As Shape
    Set shape = ActiveSheet.Shapes("Check Box 1")            

    DoSomething(shape)
End Sub

Sub DoSomething(MSForms.CheckBox)
    'I need the reference to be a checkbox as I need to check 
    'whether it's checked or not here
End Sub

Answer 1

在这种情况下，不要为所有复选框设置不同的点击事件。就一个。并使用Application.Caller 获取调用它的ckeckbox 的名称。将其作为 String 传递给相关的子，然后使用它。

未经测试

Sub CheckBoxMain_Click()
    Dim sName As String

    sName = Application.Caller

    DoSomething (sName)
End Sub

Sub DoSomething(sCheck As String)
    Dim shp As shape

    Set shp = ActiveSheet.Shapes(sCheck)

    With shp
        '~~> Do something
    End With
End Sub

您也可以将两者合二为一，并将其​​与所有复选框链接。

Sub DoSomething()
    Dim shp As shape

    Set shp = ActiveSheet.Shapes(Application.Caller)

    With shp
        '~~> Do something
    End With
End Sub

Answer 2

这类似于 Siddharth 的，但添加了 Shape 的 ControlFormat 属性。 ControlFormat 为您提供 CheckBox 的 Intellisense，在本例中为 Value：

Sub CheckBox1_Click()
Dim chk As Shape

Set chk = ActiveSheet.Shapes(Application.Caller)
With chk.ControlFormat
    If .Value = True Then
        MsgBox "true"
    Else
        MsgBox "false"
    End If
End With
End Sub