第11回.コンボボックス(ComboBox)の追加
ユーザーフォーム入門として基礎から解説します。
ラベル、テキストボックス
これは当然ですが、その次に良く使われるものは、
コンボボックス、リストボックス、チェックボックス、オプションボタンになるでしょう。
今回はコンボボックスです。
コンボボックスの追加
ラベル：lbl区分
コンボ：cmb区分
としておきます。
Aランク、Bランク、Cランク
これらを選択できるようにします。
コンボボックスのプロパティ・メソッド
Private Sub UserForm_Initialize()
End Sub
Initializeイベントをまだ作成していない場合は作成してください。
簡単に言えば、最初に１回だけ実行されるということです。
従って、最初に１度だけ実行すれば良い処理はここに書く事になります。
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プロパティ
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)、これでは都合が悪いです。
これは、コンボボックスの選択されたリスト位置ですので、
Style=fmStyleDropDownComboの場合に、リストに無い項目を入力した場合は、
この値は-1となっていますので、これでは取得できません。
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
上記VBAでは、リスト内を検索して、一致した文字列のリストを選択状態にしています。
しかし、この場合は、コンボボックスに設定されているリスト内の文字列かどうかが問題となります。
Style=fmStyleDropDownComboの場合は、リスト内に無くてもエラーとなりませんが、
Style=fmStyleDropDownListの場合はエラーとなってしまいますので、
シートのセル値を設定する場合等は、上記サンプルのようにするか、
On Error Resume Nextの指定が必要になります。
このような場合の細かいテクニックは、後々にあらためて解説します。
複数列のコンボボックス
.ColumnWidths
複数列はコンボボックスでは使用頻度が低いので、次回のリストボックスで詳しく説明します。
指定方法はリストボックスとほぼ同様となります。
同じテーマ「ユーザーフォーム入門」の記事
第8回.セルの値をテキストボックスへ
第9回.標準モジュールとフォーム間のデータ受け渡しⅠ
第10回.標準モジュールとフォーム間のデータ受け渡しⅡ
第11回.コンボボックス(ComboBox)の追加
第12回.リストボックス(ListBox)の追加
第13回.チェックボックス(CheckBox)の追加
第14回.オプションボタン(OptionButton)の追加
第15回.ここまでの整理と全VBA
第16回.アクティブコントロールに色を付ける
第17回.Enterキーで次のコントロールに移動する
第18回.２段階のコンボボックス
新着記事NEW ・・・新着記事一覧を見る
Select Caseでの短絡評価（ショートサーキット）の使い方｜VBA技術解説（1月3日）
VBA100本ノック 迷宮編：巡回セル問題｜VBA練習問題（12月31日）
VBA100本ノック 58本目：番号リストを簡潔にした文字列で返す｜VBA練習問題（12月30日）
VBA100本ノック 57本目：ファイルの更新日時｜VBA練習問題（12月29日）
VBA100本ノック 56本目：数式内の自身のシート名を消す｜VBA練習問題（12月28日）
VBA100本ノック 55本目：他ブックのマクロを起動｜VBA練習問題（12月26日）
VBA100本ノック 54本目：シートのChangeイベント｜VBA練習問題（12月25日）
VBA100本ノック 53本目：テーブルの扱いと年齢計算｜VBA練習問題（12月23日）
VBA100本ノック 52本目：複数シートの一括印刷｜VBA練習問題（12月22日）
VBA100本ノック 51本目：シート一覧と印刷ページ数｜VBA練習問題（12月21日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.繰り返し処理（Do Loop）｜VBA入門
- ホーム
- マクロVBA応用編
- ユーザーフォーム入門
- コンボボックス(ComboBox)の追加
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。