Vba 复选框-找不到方法或数据成员

当前，每当我单击Excel文件中的任何位置时，都会遇到“找不到方法或数据成员”的问题

它引导我到下面的复选框1

毕竟，我按下“OK”，它会突出显示以黄色突出显示的查询。

非常奇怪的是，这个错误只会在电脑的一个部分出现

我试着在另一台电脑上运行相同的excel文件，效果很好

工具>参考的其他信息如下所示：

而且对象（复选框和命令按钮）也不会显示在下拉列表中

---

有人能帮忙吗？？谢谢

确定在模块代码窗格的顶部，有两个下拉列表。对于普通模块，左侧通常包含类似于

（常规）

的内容，对于工作表模块，左侧通常包含类似于

的内容

假设您在Sheet1模块中，您是否可以查看左侧下拉列表中是否有
复选框1

我对此有些奇怪。如果您需要使用一些代码，那么这将获得一个带有代码的ActiveX控件复选框

Friend Function ActiveXCheckBox() As MSForms.CheckBox
    '* use this if you inserted a ActiveX Checkbox
    Dim myActiveXCheckbox As OLEObject
    Set myActiveXCheckbox = Me.OLEObjects.Item("CheckBox1")

    Dim chk As MSForms.CheckBox
    Set chk = myActiveXCheckbox.Object

    Set ActiveXCheckBox = chk

End Function

将ActiveX控件拖放到工作表上会自动添加属性，通常可以在工作簿的对象浏览器中看到该属性。您的代码依赖于它
 sheet1上没有复选框1。@cyboashu复选框1已在Excel页面中。只是特定的电脑无法运行VBA。如果您尝试
Me.CheckBox1
，会发生什么？另外，那台电脑上的excel版本是什么？@sktneer我尝试更改为Me.CheckBox1，但错误仍然提示。Excel版本2013.CheckBox1在“常规”和“工作表”的下拉菜单中均不可用。请添加上面给出的代码，查看是否找到该复选框。即复制代码并按F5，如果CheckBox1真的不存在，它会抱怨。添加并按F5后，它会显示运行时错误“1004”：“无法获取OLEObject类的Object属性”。请在哪一行
Set chk=myActiveXCheckbox.Object
？听起来很奇怪。我将用regsvr32重新注册控件dll。此外，我还将重建一个全新的工作簿，看看是否有什么东西在过程中被破坏了。