第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 ・・・新着記事一覧を見る
ユーザーに絶対に停止させたくない場合のVBA設定｜VBA技術解説（4月1日）
CharactersプロパティとCharactersオブジェクト｜VBA技術解説（3月31日）
指数近似/対数近似/累乗近似（掲載順位とCTR）｜エクセル関数超技（3月31日）
練習問題32（連続数値部分を取り出し記号で連結）｜VBA練習問題（3月24日）
連続数値部分を取り出し記号で連結｜エクセル関数超技（3月24日）
数式バーの高さを数式の行数で自動設定｜VBAサンプル集（3月21日）
LET関数（数式で変数を使う）｜エクセル入門（3月21日）
スピルに対応したXSPLITユーザー定義関数（文字区切り）｜VBAサンプル集（3月15日）
XMATCH関数（範囲から値を検索し一致する相対位置）｜エクセル入門（3月14日）
XLOOKUP関数（範囲を検索し一致する対応項目を返す）｜エクセル入門（3月14日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ひらがな⇔カタカナの変換｜エクセル基本操作
8.繰り返し処理（For Next)｜VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)｜エクセル関数超技
10.セルに文字を入れるとは（Range,Value）｜VBA入門
- ホーム
- マクロVBA応用編
- ユーザーフォーム入門
- コンボボックス(ComboBox)の追加
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。