Excel VBA：如何在工作表上引用表单控件？

Question

我在工作表中添加了两个下拉菜单（又名组合框）

从这个问题开始（如何使用变量名在工作表上引用控件对象？）我尝试了以下实验但没有成功。

如何访问 Excel 工作表上的控件？在哪里可以看到刚刚插入的控件的名称/属性？

Answer 1

你可以这样做：

Sub DropDown1_Change()

    Dim s As Object
    Set s = ActiveSheet.Shapes(Application.Caller)
    Debug.Print s.ControlFormat.Value

End Sub

Application.Caller包含“包含”表单控件的形状的名称

同样，您可以通过名称访问其他控件：

Dim myName as String, c As Object
myName = "List Box 2"
Set c = ActiveSheet.Shapes(myName).ControlFormat