コンボボックス(ComboBox)の追加｜Excelユーザーフォーム

最終更新日：2013-02-18

第11回.コンボボックス(ComboBox)の追加

ユーザーフォームで良く使われるコントロールは、

ラベル、テキストボックス

これは当然ですが、その次に良く使われるものは、

コンボボックス、リストボックス、チェックボックス、オプションボタンになるでしょう。

今回から、この３つのコントロールの使い方の解説をします。

今回は、コンボボックスです。

では、まずは以下のように、ラベルとコンボボックスを追加して下さい。

Excelサンプル画像

オブジェクト名は、

ラベル：lbl区分
コンボ：cmb区分

としておきます。

さて、この区分は、顧客のランクにしてみましょう。

Aランク、Bランク、Cランク

これらを選択できるようにします。

では、「コード表示」して、以下のイベントを作成します。

Private Sub UserForm_Initialize()

End Sub

Initializeイベントは、

オブジェクトが読み込まれたあとで、そのオブジェクトが表示される前に発生します。

簡単に言えば、最初に１回だけ実行されるということです。

従って、１度だけ実行すれば良い処理はここに書く事になります。

Aランク、Bランク、Cランク、これらの文字列をコンボボックスに追加するには、何通りかの方法があります。

AddItemメソッド

Private Sub UserForm_Initialize()
　　Me.cmb区分.AddItem "Aランク"
　　Me.cmb区分.AddItem "Bランク"
　　Me.cmb区分.AddItem "Cランク"
End Sub

このように、AddItemメソッドを使用します。

このサンプルでは、次々に末尾に項目が追加されます。

追加する位置を指定する場合は、

.AdItem 項目, 順序

と指定します。

Private Sub UserForm_Initialize()
　　Me.cmb区分.AddItem "Aランク", 0
　　Me.cmb区分.AddItem "Bランク", 0
　　Me.cmb区分.AddItem "Cランク", 0
End Sub

このようにすると、逆順に項目が並ぶことになります。

Listプロパティ

Private Sub UserForm_Initialize()
　　Dim ary区分(2) As String
　　ary区分(0) = "Aランク"
　　ary区分(1) = "Bランク"
　　ary区分(2) = "Cランク"
　　Me.cmb区分.List = ary区分
End Sub

このように配列をコンボボックスの項目に一括で追加することが出来ます。

RowSourceプロパティ

Worksheets("Sheet1").Range("A1:A3")、ここにデータがあるとして、

Private Sub UserForm_Initialize()
　　Me.cmb区分.RowSource = Worksheets("Sheet1").Range("A1:A3").Address(External:=True)
End Sub

このように、シートのセルとリンクさせることが出来ます。

注意点は、セル範囲のオブジェクトを指定するのではなく、シート名も含んだセル範囲を表すアドレス文字列を指定します。

上記のWorksheets("Sheet1").Range("A1:A3").Address(External:=True)は、

[ブック名]Sheet1!$A$1:$A$3

となります。

Externalを指定しないと、単に$A$1:$A$3となってしまう為にエラーとなります。

Styleプロパティについて

定数	値	内容
fmStyleDropDownCombo	0	コンボボックス (ComboBox) コントロールは、選択項目のリストを持つコンボボックスとして機能します。編集領域に値を入力したり、選択項目のリストから値を選択することができます。
fmStyleDropDownList	2	コンボボックス (ComboBox) コントロールは、リストボックスとして機能します。リストから値を選択しなければなりません。

初期値では、fmStyleDropDownComboとなっていますので、リストに無い項目を手入力が可能となっています。

どちらにするかは、適宜選択する必要があります。

コンボボックスで選択した値を取得

セルor変数 = Me.cmb区分.Text
セルor変数 = Me.cmb区分.Value
セルor変数 = Me.cmb区分.List(Me.cmb区分.ListIndex)

上記３通りは、通常は同じ結果となります。

ただし、

Style=fmStyleDropDownCombo

この場合は、最期のMe.cmb区分.List(Me.cmb区分.ListIndex)これでは都合が悪いです。

Me.cmb区分.ListIndex

これは、コンボボックスの選択されたリスト位置ですので、

Style=fmStyleDropDownComboの場合に、リストに無い項目を入力した場合は、

この値は-1となっていますので、これでは取得できません。

従って、Style=fmStyleDropDownComboの場合には、

Me.cmb区分.Text

これで取得する事になります。

コンボボックスの指定リストを選択状態にする

For i = 0 To Me.cmb区分.ListCount - 1
　　If Me.cmb区分.List(i) = 指定文字列 Then
　　　　Me.cmb区分.ListIndex = i
　　　　Exit For
　　End If
Next

または、TextプロパティやValueプロパティに値を設定する事でも可能です。

しかし、その場合は、コンボボックスに設定されているリスト内の文字列かどうかが問題となります。

Style=fmStyleDropDownComboの場合は、リスト内に無くてもエラーとなりませんが、

Style=fmStyleDropDownListの場合はエラーとなってしまいますので、

シートのセル値を設定する場合は、上記サンプルのようにするか、

On Error Resume Nextの指定が必要になります。

そのような場合の細かいテクニックは、後々にあらためて解説します。

複数列のコンボボックス

複数列のコンボボックスを作成する場合は、

.ColumnCount
.ColumnWidths

これらのプロパティを設定します。

複数列はコンボボックスでは使用頻度が低いので、次回のリストボックスで詳しく説明します。

指定方法はリストボックスと同じになります。