combobox - 値ではなくインデックスを返す Excel VBA コンボボックス

Question

別のシートからリスト項目を収集するコンボボックスを Excel 2007 に設定しました。マクロを使用して選択したアイテムの値にアクセスしようとすると、実際の値ではなくインデックス値だけが返されます。

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

コンボボックスの値は "Jan-12" と表示されていますが、上記のコードを実行すると、DateDropDown は 37 (アイテムのインデックス) として返されます。

値「Jan-12」を返すにはどうすればよいですか?

score 2 · Accepted Answer

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

combobox - 値ではなくインデックスを返す Excel VBA コンボ ボックス