在 VBA 中获取下拉列表值并获取下拉列表的名称...无处可寻？

Question

我通过将组合框从用户窗体工具栏拖动到工作表上来创建一个下拉列表。我从书中的一些单元格中为其分配了一些值。现在我想要一些 VBA 代码以字符串的形式访问所选下拉项的值。

我的下拉列表仅包含文本。

另外，我如何找到这个新创建的下拉列表的名称（它不在属性中！）？

Answer 1

Dim dd As DropDown
Set dd = ActiveSheet.DropDowns("Drop Down 6") 
Set r = Sheet2.Range(dd.ListFillRange)

Set ddValue = r(dd.Value)

注意：

• DropDown 不是一个可见的类。你
  只要使用它就可以了。

• 查找下拉列表的名称
  CONTROL（不是用户表单）只需看看
  屏幕左上角的名称框，位于 A 列上方。
  它表示控件的名称
  您右键单击您的控件。-

• Sheet2 是下拉列表所在的位置
  人口稠密。所以无论您的列表数据在哪里
  是。

  希望对大家有所帮助。

Answer 2

以下是无需知道名称即可获取字符串的方法：

Dim DD As Shape

Set DD = ActiveSheet.Shapes(Application.Caller)

MsgBox DD.ControlFormat.List(DD.ControlFormat.ListIndex)

Answer 3

这是一种笨拙的方法，但它应该可行：

Dim o As Object

For Each o In Worksheets("Sheet1").Shapes
    MsgBox o.Name
Next o

Worksheet 对象还有一个隐藏的 DropDowns 集合成员，您可以对其进行迭代。这将找到从 Forms 工具栏插入的项目，但不会找到从 Control Toolbox 工具栏插入的项目

Answer 4

兰斯·罗伯茨就快到了。如果您不知道调用子菜单的下拉菜单的名称，请使用它：

Dim dd as DropDown
Set dd=ActiveSheet.Shapes(Application.Caller).OLEFOrmat.Object

Dim ddVal as String
ddVal=dd.List(dd.ListIndex)

我使用它为具有许多下拉菜单的表单创建通用子菜单。