vba - 返回从下拉框中选择的文本

Question

我试图从 Excel 表单上选择的下拉框中返回文本。我尝试了很多事情，最接近的是返回索引号。还查看了:

链接:Return the text from a dropdown box rather than the index number

我在该页面上没有找到有效的解决方案。我尝试过以下方法:

ActiveSheet.DropDowns("DropDown1").Value
ActiveSheet.DropDowns("DropDown1").Text
ActiveSheet.DropDowns("DropDown1").SelectedValue
ActiveSheet.Shapes("DropDown1").Value

等等

Answer 1

这将从下拉列表中返回当前选择

Sub TestDropdown()
    Dim ws As Worksheet
    Dim dd As DropDown

    Set ws = ActiveSheet
    Set dd = ws.Shapes("DropDown1").OLEFormat.Object

    MsgBox dd.List(dd.ListIndex)
End Sub

顺便说一句，分配给声明为 Dim dd As DropDown 的变量将为您提供 dd 上的智能感知