excel - Excel VBA コンボボックス

Question

ユーザーフォームに ComboBox があり、それを文字列として利用してシートのセルに渡すことができるように、選択内容を見つけるために使用する方法を探しています。例えば：

 Private Sub Filter_Click()
 'The Userform is called Summary, and the ComboBox in question is named Month_Filter
 If Summary.Month_Filter = "January" Then .......
 Call UpdatedTotals
 End Sub


 Sub UpdatedTotals()
 Dim ChosenDate as String
 If Summary.Month_Filter <> "" Then ChosenDate = Summary.Month_Filter.Value
 Range("A1").FormulaR1C1 = ChosenDate
 End Sub

Answer 1

ValueプロパティはBoundColumn、選択されたリスト項目の値を返します。

このListIndexプロパティは、選択されたリスト項目のインデックス (最初の項目が 0 から始まる) を返します。Column探している値が にない場合、で使用して正しい値を取得できますBoundColumn。

ChosenDate = Summary.Month_Filter.Column(Summary.Month_Filter.ListIndex,1)

2 番目の引数 1 は、リスト アイテムと同様に 0 から始まるため、2 番目の列を参照します。

Answer 2

これを試して：

Private Sub Filter_Click()
 If Summary.Month_Filter.Value = "January" Then .......
 Call UpdatedTotals
 End Sub


 Sub UpdatedTotals()
 If Summary.Month_Filter.Value <> "" Then Range("A1").Value = Summary.Month_Filter.Value
 End Sub