Categories: excel

VBAでコンボボックスに値を設定する方法を徹底解説！フォームでもシートでも使える実践テクニック

Excel VBAを使ってユーザーフォームやシート上に配置したコンボボックス（ComboBox）に値を設定する方法についてお困りではありませんか？
コンボボックスは、ユーザーに選択肢を提供する便利なコントロールの1つです。VBAを使えば、動的に値を追加したり、選択肢を絞り込んだりと、より高度なフォーム設計が可能になります。

この記事では、初心者の方でもわかりやすいように、VBAでコンボボックスに値を設定する基本から応用までを詳しく解説します。ユーザーフォームに追加する方法、セル範囲から自動で読み込む方法、初期値の設定など、現場ですぐに使えるテクニックを丁寧に紹介していきます。

コンボボックスの基本構造と種類

VBAで扱うコンボボックスには大きく分けて2種類あります。
1つはユーザーフォームに配置するComboBox、もう1つはExcelシート上にActiveXコントロールとして配置するComboBoxです。
それぞれの使い方が異なるため、最初に違いを理解しておきましょう。

ユーザーフォームのコンボボックス

ユーザーフォームに配置し、UserForm1.ComboBox1.AddItemなどで操作

ActiveXコントロールのコンボボックス

シート上に配置し、Sheet1.ComboBox1.AddItemやListプロパティで操作

値を手動で設定する方法（ユーザーフォーム）

ユーザーフォームのコンボボックスに手動で項目を追加するには、AddItemメソッドを使用します。

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "りんご"
    ComboBox1.AddItem "みかん"
    ComboBox1.AddItem "バナナ"
End Sub

このコードは、ユーザーフォームが起動したときにComboBox1に3つの果物を追加します。
フォームを閉じて再度開くたびに、同じ内容が再設定されます。

セルの値を読み込んで設定する方法

選択肢を毎回手動でコードに書くのは効率的ではありません。
そこで、ワークシートのセル範囲からコンボボックスに値を読み込む方法を紹介します。

Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 5
        ComboBox1.AddItem Sheet1.Cells(i, 1).Value
    Next i
End Sub

この例では、Sheet1のA1からA5の値をコンボボックスに読み込んでいます。
データのメンテナンスがシート上でできるので、管理も簡単です。

初期値（デフォルト値）を設定する方法

ComboBoxに値を設定したあと、初期値（最初に表示する項目）を設定するには、ValueやListIndexを使用します。

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "東京"
    ComboBox1.AddItem "大阪"
    ComboBox1.AddItem "名古屋"
    ComboBox1.ListIndex = 0 ' 「東京」が初期表示
End Sub

または、値を直接指定してもOKです。

ComboBox1.Value = "大阪"

設定した値がリストに存在しない場合はエラーになりますので注意が必要です。

ActiveXコントロールでの設定方法（シート上のコンボボックス）

Excelシート上に配置されたActiveXコンボボックスに値を設定するには、次のようなコードを使います。

Sub セルからコンボボックス設定()
    Dim rng As Range
    Set rng = Sheet1.Range("A1:A5")
    Sheet1.ComboBox1.List = rng.Value
End Sub

この例では、Sheet1のA1～A5のデータを一括でコンボボックスに設定しています。
リストの更新も1行で済むため、非常に便利です。

値をクリアする方法

以前設定した値を消して、コンボボックスを空にする場合はClearメソッドを使います。

ComboBox1.Clear

これにより、リストが初期化され、新しい値を再設定できる状態になります。

選択された値を取得する方法

ユーザーが選んだ値を使って処理をするには、次のようにします。

Dim 選択値 As String
選択値 = ComboBox1.Value
MsgBox "選択されたのは：" & 選択値

イベントプロシージャ内で使えば、動的な反応ができます。

イベントと組み合わせて使う（Changeイベント）

コンボボックスの選択が変更されたときに処理をしたい場合、Changeイベントを使います。

Private Sub ComboBox1_Change()
    MsgBox "あなたが選んだのは：" & ComboBox1.Value
End Sub

ユーザーの操作に応じて処理を切り替えたいときに便利です。

複数列のデータを扱う方法（Listプロパティ応用）

複数の列からなるデータをComboBoxに設定するには、Listプロパティで2次元配列を使います。

Private Sub UserForm_Initialize()
    Dim data(1 To 3, 1 To 2) As String
    data(1, 1) = "001": data(1, 2) = "東京"
    data(2, 1) = "002": data(2, 2) = "大阪"
    data(3, 1) = "003": data(3, 2) = "福岡"

    ComboBox1.ColumnCount = 2
    ComboBox1.List = data
End Sub

このようにすると、ComboBoxに複数列が表示され、ユーザーが選びやすくなります。