如何从Excel VBA中的工作表中获取ActiveX活动控件

Question

我有一个包含一些ActiveX控件（如组合框，文本框等）的电子表格，在每个控件的Change事件上，都有将ActiveSheet作为参数接收的函数。 这个功能在MainModule中。 我需要的是从该ActiveSheet获取活动控件，同时要记住该控件是ActiveX控件。

例如，每次我在组合框，文本框等中进行更改时，我都会调用此函数，并且通过ActiveSheet（作为参数传递），我可以知道是否更改了组合框，文本框或列表框等

提前致谢。

Answer 1

插入一个activeX复选框控件，并通过“属性”窗口将其命名为“ chkboxFoo”。

Dim IsFooChecked As Boolean : IsFooChecked = False
IsFooChecked = ActiveSheet.OLEObjects("chkboxFoo").Object.Value
If IsFooChecked Then
    MsgBox "BarMsg! You made it."
Else
    MsgBox "Try to check the checkbox then execute the program. " & _
           "You shall see a msgbox says BarMsg."

参考： http : //blogs.infoextract.in/worksheet-controls-automation-using-vba/