Excel VBA 2016 - 试图找到复选框的名称，无法获取值属性错误

Question

这是我坚持的一个。

我有一个宏，可以一次打开一个文件夹/目录中的所有工作簿，并执行某些操作，其中之一是取消选中 .Range("K25:U56") 中找到的每个复选框，但其中有一个复选框我希望它跳过的范围(或者我现在要做的是，在取消选中范围中的所有框之前存储它的当前值，然后在所有取消选中发生后重新设置该值，以任何方式为准)。我使用以下行收到“ 未找到具有指定名称的项目。”:

    ' Store checkbox50's value to return later
    Dim checkbox As Boolean
    If sh.CheckBoxes("Check Box 50").Enabled = True Then checkbox = True
    If sh.CheckBoxes("Check Box 50").Enabled = False Then checkbox = False

我也试过:

    ' Store checkbox50's value to return later
    Dim checkbox As Boolean
    If sh.Shapes("Check Box 50").OLEFormat.Object.Value = True Then checkbox = True
    If sh.Shapes("Check Box 50").OLEFormat.Object.Value = False Then checkbox = False

...我得到“ 无法获得 CheckBox 类的 Value 属性。” 这是我正在使用的屏幕截图(注意 Check Box 50 作为名称？)。



有任何想法吗？如果您想发布完整的代码，只需发表评论，但我想知道是否有不同的方式来搜索那个特定的复选框？谢谢!

Answer 1

感谢@BigBen，我们发现问题是因为我正在循环浏览工作簿中的所有工作表，但并非每个工作表都有一个“复选框 50”，所以它正在寻找那些辅助工作表中不存在的东西.我将处理我的代码以反射(reflect)这一点。谢谢!!!!