Mac版VBA Excel 2011中复选框的处理方式

Question

我已经通过Internet和Stackoverflow网站进行了彻底搜索，但没有成功。 我被困在一个问题中已经一个星期了，我对此无能为力。

我一直在学习VBA，我的参考书提供了以下示例：

Private Sub CommandButtons()
Dim intcounter As Integer, xObj As OLEObject
Dim strObj As String
intcounter = 0
strObj = ""

For Each xObj In ActiveSheet.OLEObjects
If TypeName(xObj.Object) = "CheckBox" Then
If xObj.Object.Value = True Then
intcounter = intcounter + 1
strObj = strObj & xObj.Object.Caption & Chr(10)
End If
End If

Next xObj

If intcounter = 0 Then
MsgBox "There were no CheckBoxes selected", , "No Sport"
Else
MsgBox _
"you selected" & intcounter & "checkboxes:" _
& vbCrLf & vbCrLf & _
strObj, , "Here is what you checked"
End If

End Sub

不幸的是，此代码不起作用。 它应该评估工作表上的每个嵌入式项目。 当代码遇到ActiveX CheckBox时，应确定是否选中了CheckBox。 在该过程结束时，将出现一个MsgBox，确认选中了多少个CheckBox及其标题。

有人可以帮我吗？ 甚至一个链接都将受到欢迎。

预先感谢您的协助。

Answer 1

您需要将if条件修改为：

= "CheckBox"

您之间有一个空格，这就是为什么。

只是为了扩展（通过手机发布）：

TypeName函数返回对象的名称，并且在if条件中使用时，需要区分大小写和正确的庄园。 在您的情况下，您需要使用：

If TypeName(xObj.Object) = "CheckBox" Then