如何在 Excel 2007 中从 VBA 访问复选框

Question

添加复选框时，如何从 VBA 访问该值？

• 在 Excel 2007 中，在开发人员功能区
• 插入、表单控件、复选框
• 上将复选框重命名为 chkMyCheck
• 在复选框中添加了宏，我现在有带有 chkMyCheck_Clicked 的 Module1

以下所有操作均失败

Sheets("Sheet1").chkMyCheck.Checked  
Sheets("Sheet1").chkMyCheck.Value  
Sheets("Sheet1").Shapes("chkMyCheck").Checked  
Sheets("Sheet1").Shapes("chkMyCheck").Value  
Sheet1.chkMyCheck.Checked  
Sheet1.chkMyCheck.Value  

Sheet1.Shapes("chkMyCheck") 似乎无法找到对象，但确实如此不公开任何可能返回已检查状态的属性。

Answer 1

想通了

If Sheet1.Shapes("chkMyCheck").ControlFormat.Value = xlOn Then
.....

Answer 2

一种方法：

Dim oCheck As Object
Set oCheck = Sheet1.CheckBoxes("chkMyCheck")
MsgBox (oCheck.Value = xlOn)

编辑：这是另一种方法 - 也许这个方法适合你......

Sub Tester2()
    Dim sh As Shape
    For Each sh In Sheet1.Shapes
        If sh.Type = msoFormControl Then
            If sh.FormControlType = xlCheckBox Then
                 Debug.Print sh.Name & "=" & sh.ControlFormat.Value
            End If
        End If
    Next sh
End Sub

Answer 3

为了完整起见，如果您使用 ActiveX 复选框而不是常规复选框，则

If Sheet1.Shapes("chkMyCheck").OLEFormat.Object.Object.Value Then 
...

可以使用“局部变量”窗口和设置为形状的变量来找到语法 -

Dim shp as Shape
Set shp = Sheet1.Shapes("chkMyCheck")
Stop