工作表中控件的特殊引用方法

最新推荐文章于 2025-05-19 21:00:55 发布

原创最新推荐文章于 2025-05-19 21:00:55 发布 · 1.5k 阅读

1 ·

CC 4.0 BY-SA版权

VBA 同时被 3 个专栏收录

325 篇文章

订阅专栏

Excel

165 篇文章

订阅专栏

工作表

40 篇文章

订阅专栏

博客回顾之前文章介绍的Excel工作表控件引用，指出其与用户窗体控件使用方法不同。以ActiveX复选框为例，说明可读取控件属性。当控件组合时情况不同，需用CallByName访问属性，该方法适用于未组合的ActiveX控件，不适用于表单控件。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在我以前发表的博客文章“深入了解Excel工作表中的控件”中介绍了如何引用工作表中的控件，其使用方法和用户窗体中的控件有很多不同之处。
例如工作表中有如下四个ActiveX复选框。

如下代码可以很容易的读取控件的相关属性。

Sub ActiveXCtl()
    For Each ctl In ActiveSheet.OLEObjects
        Debug.Print ctl.Name, ctl.Object.Caption, ctl.Object.Value
    Next
End Sub

结果如下：

CheckBox1 Excel True
CheckBox2 Word False
CheckBox3 PowerPoint True
CheckBox4 OneNote False

如果控件在工作表中被组合在一起，那么情况就大为不同了。

再次运行ActiveXCtl过程，没有任何输出，此时控件被组合为一个Shape对象，不再属于OLEObjects集合。这样的控件如何访问呢？此时需要使用CallByName访问控件属性。

Sub ActiveXCtlNew()
    For i = 1 To 4
        With CallByName(Sheet3, "CheckBox" & i, VbGet)
            Debug.Print .Name, .Caption, .Value
        End With
    Next
End Sub

此方法也适用于未被组合在一起的ActiveX控件，但是不适用于工作表中的表单控件。