Excel VBA组合框返回索引而不是值

Question

我在Excel 2007中设置了一个组合框，它从另一个工作表中收集列表项。当我尝试通过宏访问所选项目的值时，我返回的是索引值而不是实际值。

DateDropDown = Sheets("Input Form").Shapes("APPDateDropDown").ControlFormat.Value

组合框中的值列为“Jan-12”，但是当我运行上面的代码时，DateDropDown返回37（项目的索​​引）。

如何让它返回值“Jan-12”？

Answer 1

With Sheets("Input Form").Shapes("APPDateDropDown")
    DateDropDown = .ControlFormat.List(.ControlFormat.ListIndex)
End With