【VBAリファレンス｜実務向け】コンボボックスを「見やすく」「使いやすく」！複数列表示でVBAアプリの質を高める実践テクニック

ExcelVBA

2026.10.14

皆さん、こんにちは！ベテランVBA講師の〇〇です。（※講師名部分は適宜補完してください）

今回は、ユーザーフォームのコンボボックスをより実用的に、そしてユーザーにとって使いやすくするためのテクニックをご紹介します。それは、コンボボックスのリストを複数列で表示するというもの。一見地味に見えるかもしれませんが、これを知っているか知らないかで、VBAアプリケーションの使い勝手は大きく変わってきますよ。

1. 導入: なぜコンボボックスの複数列表示が重要なのか？

皆さんは、VBAでシステム開発をする際、ユーザーに「商品ID」を選ばせて、その商品IDに関連する「商品名」や「単価」を横に表示したい、と思ったことはありませんか？
通常のコンボボックスでは、単一の列しか表示できないため、IDだけが表示されていても、ユーザーは何のIDなのか分かりづらく、いちいち別の場所で確認したり、勘で選択したりするしかありません。これでは、選択ミスを誘発しやすく、ユーザーのストレスにもなりかねません。

複数列表示のテクニックを使えば、例えば「商品ID」と「商品名」を並べて表示しつつ、実際に取得するのは「商品ID」だけ、といったことが可能になります。これにより、ユーザーは視覚的に情報を確認しながら正確な選択ができるようになり、アプリケーション全体の利便性と信頼性が格段に向上します。実務では、このような「ちょっとした工夫」が、利用者の満足度を大きく左右するんですよ。

2. 基礎知識: 複数列表示を操る主要プロパティ

まずは、複数列表示を実現するために不可欠な、コンボボックスのプロパティについて理解しておきましょう。これらを使いこなすことが、本テクニックの肝となります。

ColumnCountプロパティ
これは、コンボボックスのドロップダウンリストに何列のデータを表示するかを設定するプロパティです。例えば、商品IDと商品名の2列を表示したい場合は「2」を設定します。
TextColumnプロパティ
ユーザーがリストから項目を選択した際に、コンボボックスの入力欄に表示される列を指定します。例えば、リストにはIDと名称の両方を見せるけれど、選択後は入力欄には名称だけを表示したい、といった場合に活用します。この値は、コンボボックスの Text プロパティで取得できます。
BoundColumnプロパティ
これが最も重要かもしれません。ユーザーがリストから項目を選択した際に、コンボボックスのValueプロパティとして取得される列を指定します。例えば、入力欄には商品名を表示させつつ、VBAコードで処理するために必要な「商品ID」を取得したい場合に、BoundColumnに商品IDの列番号を設定します。これにより、表示される内容と、内部的に取得する内容を分離できるわけです。
Listプロパティ
コンボボックスに表示するリストの項目を設定するプロパティです。通常、配列（Variant型の二次元配列）を直接割り当てることで、複数列のデータを効率的に設定します。

3. 実装/解決策: 複数列コンボボックスの作成手順

それでは、具体的な実装手順を見ていきましょう。今回は、商品IDと商品名をリストに表示し、選択後は商品名がコンボボックスに表示され、VBAコードでは商品IDが取得できるようなコンボボックスを作成します。

ユーザーフォームの準備
VBE（Visual Basic Editor）を開き、「挿入」→「ユーザーフォーム」で新しいフォームを作成します。
フォーム上に、コンボボックス（デフォルト名: ComboBox1）とコマンドボタン（デフォルト名: CommandButton1）を配置してください。
リストデータの準備
今回は簡単のため、VBAのコード内で配列を作成し、リストデータとします。実務では、シート上のデータ範囲から読み込むことが多いでしょう。
UserForm_Initializeイベントでの設定
ユーザーフォームが初期化される際に、コンボボックスのプロパティを設定し、リストデータを割り当てます。
CommandButton_Clickイベントでの確認
選択されたデータが正しく取得されているかを確認するために、コマンドボタンのクリックイベントでメッセージボックスを表示させます。

4. サンプルプログラム: コピペで動く実践コード

以下のコードをコピー＆ペーストして、実際に動作を確認してみてください。


'----------------------------------------------------------------------------------
' ユーザーフォームの初期化時にコンボボックスの設定とリストの読み込みを行う
'----------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
    Dim vntData(9, 1) As Variant ' 10行2列のデータを格納する配列を宣言
    Dim i As Long               ' ループカウンタ

    ' ダミーデータを作成し、配列に格納する
    For i = 0 To 9
        vntData(i, 0) = "P" & Format(i + 1, "000")  ' 1列目: 商品ID (例: P001, P002...)
        vntData(i, 1) = "商品名-" & (i + 1)         ' 2列目: 商品名 (例: 商品名-1, 商品名-2...)
    Next i

    With ComboBox1
        .ColumnCount = 2        ' リストに表示する列数を2列に設定
        .TextColumn = 2         ' ユーザーが選択後、コンボボックスの入力欄に表示されるのは2列目（商品名）
        .BoundColumn = 1        ' コンボボックスのValueプロパティで取得するのは1列目（商品ID）
        .List() = vntData()     ' 作成した配列データをコンボボックスのリストに設定
    End With
End Sub

'----------------------------------------------------------------------------------
' コマンドボタンクリック時に、コンボボックスのTextプロパティとValueプロパティの値を確認する
'----------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then ' 何も選択されていない場合
        MsgBox "商品を選択してください。", vbExclamation
        Exit Sub
    End If

    ' Textプロパティ（表示されている値）とValueプロパティ（取得される値）をメッセージボックスで表示
    MsgBox "コンボボックスに表示されている値 (Textプロパティ): " & ComboBox1.Text & vbCrLf & _
           "VBAで取得される値 (Valueプロパティ): " & ComboBox1.Value, vbInformation, "選択結果"
End Sub

5. 応用・注意点: 現場で役立つ補足情報

応用編

シートからのデータ読み込み
実務では、シート上のリスト範囲からデータを読み込むことが多いでしょう。その際は、RangeオブジェクトのValueプロパティを使って二次元配列として取得し、それをListプロパティに渡すのが効率的です。
例: .List = Worksheets("商品マスタ").Range("A2:B10").Value
リストの幅調整 (ColumnWidthsプロパティ)
複数列表示をする際、各列の幅を調整したい場合があります。ColumnWidthsプロパティを使えば、各列の幅をポイント単位で指定できます。セミコロン区切りで指定し、自動調整したい場合は「0」や空欄を設定します。
例: .ColumnWidths = "50pt;100pt" (1列目50pt、2列目100pt)
検索機能との連携
リストの項目数が多くなった場合、ユーザーが入力した文字でリストを絞り込む検索機能を組み合わせると、さらに使いやすさが向上します。

注意点

配列の次元とColumnCountの整合性
Listプロパティに渡す配列の列数と、ColumnCountプロパティで指定する列数は一致させる必要があります。一致しない場合、エラーになったり、意図しない表示になったりする可能性があります。
TextColumnとBoundColumnの指定ミス
これらのプロパティの指定を間違えると、表示は正しいのに取得される値が違う、またはその逆、といった事態になります。デバッグ時にMsgBoxなどで値を確認する癖をつけましょう。
リストが空の場合のハンドリング
データが1件もない場合や、絞り込み検索の結果リストが空になる可能性がある場合は、If ComboBox1.ListIndex = -1 Then のように、何も選択されていない状態をハンドリングするコードを記述しておくと安全です。

いかがでしたでしょうか？コンボボックスの複数列表示は、ユーザーフォームを使ったVBAアプリケーション開発において、非常に重要なテクニックです。ぜひ今回の内容をマスターして、皆さんのVBAアプリをより「使える」ものへと進化させてくださいね！

それでは、また次回のテクニックでお会いしましょう！