【2026年7月最新】VBA リストボックスの使い方完全ガイド｜初期化・値取得・複数選択・エラー対策まで

Excelで入力フォーム（UserForm）を作っていると、必ずと言っていいほど登場するのが「リストボックス」というコントロールです。プルダウンのように選択肢から値を選ばせたいとき、複数の項目を一覧で見せて選ばせたいとき——どちらもListBoxコントロールで実現できます。

ただ、いざ使おうとすると「AddItemとRowSourceって何が違うの？」「選んだ値をどうやって取り出すの？」「複数選択させるにはどうすれば？」といった疑問にぶつかり、検索しても断片的な情報しか出てこず、結局サンプルコードをコピペして動かすだけで終わってしまう人が多いのが実情です。

この記事では、VBAのListBoxコントロールについて、初期化・値の取得・複数選択・主要プロパティ／メソッド・よくあるエラーまで、実務でそのまま使えるコード例つきで体系的に解説します。さらに後半では、「VBAマクロの保守が特定の担当者に依存してしまう」という多くの現場が抱える課題と、その解決の選択肢としてAIエージェントを使う考え方も紹介します。

この記事を最後まで読むと、次の7つが明確になります。

01 OVERVIEW リストボックスとは？他のコントロールとの違い UserFormで「一覧から選ばせる」ための基本コントロール

リストボックス（ListBox）とは、Excel VBAのUserForm（ユーザーフォーム）上に配置できるコントロールの一つで、あらかじめ用意した選択肢を一覧表示し、その中からユーザーに選ばせるための部品です。担当者一覧から名前を選ぶ、支店名の一覧から拠点を選ぶ、といった「入力ミスを防ぎたい選択項目」で頻繁に使われます。

1-1. コンボボックスとの違い

リストボックスとよく混同されるのがコンボボックス（ComboBox）です。どちらも「選択肢から選ぶ」という点は同じですが、表示のされ方が異なります。

項目	リストボックス (ListBox)	コンボボックス (ComboBox)
表示形式	選択肢が常に一覧表示される	普段は1行のみ表示、クリックで展開
占有スペース	複数行分のスペースが必要	省スペース（1行分でOK）
複数選択	対応（MultiSelectプロパティ）	非対応（単一選択のみ）
直接入力	不可（一覧からの選択のみ）	Styleプロパティの設定（fmStyleDropDownCombo）によっては手入力も可能
向いている用途	選択肢を常に見せたい／複数選ばせたい	選択肢が多い／画面を省スペースにしたい

1-2. どんな業務シーンで使われるか

実務では、以下のようなシーンでリストボックスが使われます。

02 SETUP リストボックスの配置と呼び出し方 デザイナーでの配置からコード上での参照方法まで

リストボックスを使うには、まずUserForm上にコントロールを配置する必要があります。手順は次の通りです。

配置が完了したら、コード側から次のようにリストボックスを参照します。ポイントは、フォーム名.コントロール名の形式でアクセスすることです。

' フォームモジュール内（UserForm1のコード内）では
' 単純にコントロール名だけで参照できる
ListBox1.AddItem "サンプル項目"

' 標準モジュールなど、フォームの外から参照する場合は
' フォームを明示的にインスタンス化してから参照する
Dim frm As UserForm1
Set frm = New UserForm1
frm.ListBox1.AddItem "サンプル項目"
frm.Show

03 INITIALIZATION リストボックスの初期化（3つの方法） AddItem／List配列／RowSource、それぞれの使い所

リストボックスに選択肢を表示させることを「初期化」と呼びます。初期化には主に3つの方法があり、それぞれメリット・デメリットが異なります。多くの解説記事はAddItemしか紹介しませんが、実務ではこの3つを使い分けられるかどうかで、コードの保守性が大きく変わります。

3-1. 方法1：AddItemメソッドで1件ずつ追加する

最も基本的な方法がAddItemメソッドです。フォームが開くタイミング（UserForm_Initializeイベント）で、1件ずつ項目を追加していきます。

Private Sub UserForm_Initialize()
    ListBox1.AddItem "東京"
    ListBox1.AddItem "大阪"
    ListBox1.AddItem "名古屋"
    ListBox1.AddItem "福岡"
End Sub

セルのデータをループで読み込んで動的に追加することもできます。件数が可変のリストを作りたい場合はこちらが定番です。

Private Sub UserForm_Initialize()
    Dim i As Long
    Dim lastRow As Long
    lastRow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To lastRow
        ListBox1.AddItem Worksheets("Sheet1").Cells(i, 1).Value
    Next i
End Sub

3-2. 方法2：RowSourceプロパティでセル範囲と連動させる

RowSourceプロパティに、ワークシート上のセル範囲を文字列で指定すると、コードをほぼ書かずにリストを表示できます。

Private Sub UserForm_Initialize()
    ListBox1.RowSource = "Sheet1!A1:A10"
End Sub

RowSourceは指定したセル範囲と直接連動するため、フォームを開いたままセルの内容を書き換えると、リストボックスの表示もそれに応じて変わります。コード量が最小で済むのが最大のメリットですが、範囲外にセルが増減しても自動追従はしない点には注意が必要です。

3-3. 方法3：Listプロパティに配列を一括代入する

Listプロパティに配列を直接代入すると、ループを書かずに一括でリストを初期化できます。件数が多い場合、AddItemをループで回すより高速に動作します。

Private Sub UserForm_Initialize()
    ListBox1.List = Array("東京", "大阪", "名古屋", "福岡")
End Sub

値を直接書き並べる代わりに、セル範囲の値をまとめて配列として渡すことも可能です。これは上記とは別の実装例です。同じフォームにUserForm_Initializeを2つ書くと「Ambiguous name detected」というコンパイルエラーになるため、どちらか一方だけを使ってください。

Private Sub UserForm_Initialize()
    ListBox1.List = Worksheets("Sheet1").Range("A1:A10").Value
End Sub

方法	コード量	実行速度（大量データ時）	セルとの連動	向いている場面
AddItem	やや多い（ループ処理向き）	普通	なし（一度追加したら独立）	条件付きで動的に項目を組み立てたい場合
RowSource	最小	普通	あり（セル変更が反映される）	シンプルにセル範囲をそのまま出したい場合
List配列代入	少ない	速い（一括処理）	なし（代入時点のスナップショット）	件数が多い・処理速度を優先したい場合

04 GET VALUE リストボックスから値を取得する方法 ListIndex・Value・List(index)の関係を正しく理解する

リストに選択肢を表示できたら、次に必要なのは選ばれた値を取得する処理です。ここでつまずく人が非常に多いポイントなので、丁寧に見ていきます。

4-1. ListIndexプロパティ：選択位置を取得する

ListIndexプロパティは、選択されている項目の位置（インデックス）を返します。重要なのは、先頭の項目が0番から始まる点、そして何も選択されていない場合は-1が返る点です。

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "リストから項目を選択してください"
        Exit Sub
    End If

    MsgBox "選択位置: " & ListBox1.ListIndex & vbCrLf & _
           "選択項目: " & ListBox1.List(ListBox1.ListIndex)
End Sub

4-2. Valueプロパティ：選択項目の値を直接取得する

Valueプロパティを使うと、ListIndexを経由せずに選択項目の値を直接取得できます。単一選択のリストボックスであれば、こちらの方がシンプルに書けます。

Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "リストから項目を選択してください"
        Exit Sub
    End If

    MsgBox "選択項目: " & ListBox1.Value
End Sub

複数列のリストボックス（ColumnCountを2以上に設定している場合）では、ValueはBoundColumnプロパティで指定した列の値を返します。既定ではBoundColumnは1（1列目）です。

4-3. List(index) と Value の違い

取得方法	書き方	特徴
ListIndex + List(index)	ListBox1.List(ListBox1.ListIndex)	位置（何番目か）を経由して値を取る。複数列の任意の列を指定して取得できる
Value	ListBox1.Value	BoundColumnで指定した列の値を直接取得。単一選択ならこちらがシンプル
Text	ListBox1.Text	表示上のテキストを取得（多くの場面でValueと同じ挙動になる）

05 MULTISELECT 複数選択を扱う方法（MultiSelect） MultiSelectプロパティとSelected配列の組み合わせ

リストボックスの大きな強みの一つが、複数の項目を同時に選択できることです。これを実現するのがMultiSelectプロパティです。

5-1. MultiSelectプロパティの3つの設定値

設定値	定数名	動作
0（既定値）	fmMultiSelectSingle	単一選択のみ。1項目しか選べない
1	fmMultiSelectMulti	クリックするたびに選択/解除が切り替わる複数選択
2	fmMultiSelectExtended	Shiftキーで範囲選択、Ctrlキーで個別追加選択（Windowsのエクスプローラーと同じ操作感）

Private Sub UserForm_Initialize()
    ListBox1.List = Array("東京", "大阪", "名古屋", "福岡", "札幌")
    ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

5-2. Selected配列で複数の選択項目を取得する

MultiSelectを有効にすると、ListIndexやValueは正しく機能しなくなります（単一の位置・値しか表せないため）。複数選択された項目を取得するには、Selectedプロパティをループで走査します。

Private Sub CommandButton1_Click()
    Dim i As Long
    Dim result As String

    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
            result = result & ListBox1.List(i) & vbCrLf
        End If
    Next i

    If result = "" Then
        MsgBox "1件も選択されていません"
    Else
        MsgBox "選択された項目:" & vbCrLf & result
    End If
End Sub

06 PROPERTIES 主要メソッド・プロパティ体系一覧 ListBoxで実務上よく使うものを1枚で把握する

ここまで登場したものも含め、リストボックスでよく使うメソッド・プロパティを体系的に整理します。

6-1. メソッド一覧

メソッド	説明
AddItem	リストに項目を1件追加する
RemoveItem	指定したインデックスの項目を1件削除する（例: ListBox1.RemoveItem 2）
Clear	リスト内の全項目を削除する（RowSource経由のデータには使用不可）

6-2. プロパティ一覧

プロパティ	説明
List	リストの内容を配列として取得・設定する
ListCount	リストに含まれる項目数を取得する（読み取り専用）
ListIndex	選択されている項目の位置（0始まり、未選択は-1）
Value	選択項目の値（BoundColumnで指定した列）を取得・設定する
Text	選択項目の表示テキストを取得・設定する
Selected	各項目の選択状態をTrue/Falseで取得・設定する
MultiSelect	複数選択の可否・モードを設定する
ColumnCount	表示する列数を設定する（既定は1列）
ColumnWidths	各列の幅をポイント単位の文字列で指定する（例: "50pt;100pt"）
BoundColumn	Valueプロパティが参照する列番号を指定する
RowSource	連動させるワークシート上のセル範囲を指定する
ListStyle	リストの見た目（プレーン表示／オプションボタン風表示）を切り替える
TopIndex	スクロール位置（一番上に表示される項目のインデックス）を取得・設定する

07 TROUBLESHOOTING よくあるエラーとトラブルシューティング 実務でつまずきやすい3つのパターンと対処法

リストボックス関連の実行時エラーは、原因パターンがある程度決まっています。ここでは代表的な3つを、症状・原因・対処法のセットで解説します。

7-1. 実行時エラー381「オブジェクト配列のインデックスが有効範囲にありません」

最も頻出するエラーです。ListIndexが-1（未選択）の状態で List(ListIndex) や Selected(ListIndex) にアクセスしようとすると発生します。

' NG例：未選択チェックがない
Private Sub CommandButton1_Click()
    MsgBox ListBox1.List(ListBox1.ListIndex)  ' 未選択時にエラー
End Sub

' OK例：先頭で必ずチェックする
Private Sub CommandButton1_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "項目を選択してください"
        Exit Sub
    End If
    MsgBox ListBox1.List(ListBox1.ListIndex)
End Sub

7-2. 実行時エラー380「プロパティの値が不正です」

RowSourceで既にセル範囲を指定しているリストボックスに対して、AddItemやListプロパティで追加の書き込みを行おうとすると発生することがあります。RowSourceによる「連動」とAddItem等による「個別追加」は同時に使えないという制約があるためです。

7-3. フォームを開き直すたびに選択肢が重複する

エラーメッセージは出ないものの実務でよくあるトラブルが、フォームを再度開くたびにリストの項目が二重・三重に増えていくという現象です。これは、UserForm_InitializeでAddItemを実行する際に、既存の項目をClearしないまま追加していることが原因です。

' NG例：Clearを忘れると開くたびに項目が増える
Private Sub UserForm_Initialize()
    Dim i As Long
    For i = 1 To 10
        ListBox1.AddItem Worksheets("Sheet1").Cells(i, 1).Value
    Next i
End Sub

' OK例：追加前に必ずClearする
Private Sub UserForm_Initialize()
    Dim i As Long
    ListBox1.Clear
    For i = 1 To 10
        ListBox1.AddItem Worksheets("Sheet1").Cells(i, 1).Value
    Next i
End Sub

08 RISK 【独自】VBAマクロが「属人化」する構造的リスク 動くコードと、保守できる組織は別の問題

ここまで、リストボックスの使い方を技術的に解説してきました。ここからは少し視点を変えて、「このマクロを、誰が長く保守していくのか」という経営・組織側の問題を取り上げます。多くの現場で見落とされがちですが、実はここが最も大きなリスクです。

8-1. なぜVBAマクロは属人化しやすいのか

VBAマクロやUserFormを使った入力システムは、多くの場合「業務に詳しい特定の1人」が独学で作り上げるという経緯をたどります。その人にとっては使い慣れた資産でも、組織全体から見ると次のようなリスクを抱えています。

8-2. 「動くコード」と「保守できる組織」は別の問題

この記事で紹介したリストボックスの初期化や複数選択の処理も、正直なところ「1回動くコードを書く」だけならそれほど難しくありません。難しいのは、そのコードを半年後・1年後に別の人が読んで、正しく修正できる状態を保つことです。

弊社（株式会社GENAI）でも、社内のExcel業務効率化のためにマクロやスクリプトを組む場面が日常的にありますが、以前は「作った人しか触れない」状態のコードが積み上がっていく問題を抱えていました。これはVBAに限らず、業務効率化のために書かれた小規模なコード全般に共通する課題です。

09 AI DELEGATION 【独自】フォーム開発をAIエージェントに任せる時代へ VBAの読解・修正・ドキュメント化をClaude Codeに任せる考え方

前章で触れた「属人化」の問題に対して、近年現実的な選択肢になってきたのがAIコーディングエージェントの活用です。ここでは、Anthropic社が提供するClaude Codeを例に、VBAのようなレガシーな社内システムの保守にAIエージェントをどう組み込めるかを紹介します。

9-1. 属人化した既存VBAコードの「読解」をAIに任せる

属人化の最大の問題は「誰もコードを読めない・意図が分からない」ことでした。この点、Claude CodeのようなAIエージェントは既存のVBAコードを読み込み、処理内容を自然な日本語で説明することが得意です。「このリストボックスの初期化処理は何をしているか説明して」と尋ねれば、AddItemなのかRowSourceなのか、どのセル範囲を参照しているのかまで含めて言語化してくれます。

これにより、後任者が過去のマクロを引き継ぐ際に、作成者本人に確認しなくてもコードの意図を把握できるようになります。属人化対策として最も工数がかかっていた「仕様の言語化」を、AIエージェントに代行させられるということです。

9-2. 新規フォーム・リストボックスの実装もAIに指示できる

読解だけでなく、新しいUserFormやリストボックスの実装自体も、AIエージェントに任せられる範囲が広がっています。「担当者一覧をリストボックスで複数選択できるフォームを作って」といった業務要件を自然言語で伝えるだけで、AddItemやMultiSelectを含むコードの叩き台を生成させることが可能です。人間の役割は、生成されたコードをレビューし、業務要件と合っているかを確認することに変わります。

9-3. GENAI社内での実運用（参考値）

弊社（株式会社GENAI）では、Claude Max 20xプラン（月額$200・約30,000円）を契約し、経営・営業・広告・開発・経理・秘書業務まで社内のあらゆる業務でClaude Codeを活用しています。開発領域では、WordPressやLP制作、業務効率化のためのスクリプトを都度書いては使い捨てる運用が中心で、コードを書く工数自体を大きく圧縮できている肌感です。

もちろん、AIが生成したコードをそのまま無条件に信用するのではなく、人間による最終レビューは必須です。特にExcelマクロは業務データを直接扱うため、生成されたコードが意図通り動くかの確認工程は省略できません。それでも、「ゼロから調べながら書く」「属人化した過去のコードを1行ずつ追う」といった作業の初速を、AIエージェントが大きく引き上げてくれるのは実感として間違いありません。

10 CONCLUSION まとめ リストボックスの使い方から、保守体制の作り方まで

この記事では、VBAのリストボックスについて、基本的な配置方法から初期化・値取得・複数選択・主要プロパティ・エラー対策まで、実務で使えるコード例つきで解説しました。最後にポイントを振り返ります。

リストボックス自体の実装は、この記事のコード例をベースにすれば十分に対応できるはずです。一方で、「このマクロを長期的に誰が保守するのか」という問いに答えを持っている会社は、実はまだ多くありません。VBAに限らず、社内の業務効率化コードをどう資産として残していくか、AIエージェントの活用も含めて検討してみることをお勧めします。

VBAマクロの保守・AIエージェント活用を、AI鬼管理が一緒に設計します

「作った人しか触れないマクロ」を、AIエージェントで説明可能・修正可能な状態に。
弊社の実運用ノウハウをベースに、個別に導入設計のご相談を承ります。

よくある質問

Q. リストボックスとコンボボックスは結局どちらを使えばいいですか？

A. 選択肢を常に一覧表示させたい場合や、複数の項目を同時に選ばせたい場合はリストボックスが適しています。逆に、選択肢の数が多くて画面スペースを節約したい場合や、単一選択で十分な場合はコンボボックスの方が使いやすいです。フォームのレイアウトと「複数選択が必要かどうか」の2点で判断すると迷いにくくなります。

Q. AddItemとRowSource、どちらで初期化するのが正解ですか？

A. どちらも正解になり得ますが、性質が異なります。RowSourceはセル範囲とコードの記述量が最小で済む一方、条件分岐しながら項目を組み立てるような柔軟な処理には向きません。AddItemやList配列代入はコード量は増えますが、条件付きの動的な項目組み立てがしやすく、実行速度も安定します。用途に応じて使い分けるのが実務での基本です。

Q. リストボックスで何も選択されていないかどうかはどう判定しますか？

A. ListIndexプロパティを確認します。何も選択されていない状態ではListIndexが-1になるため、条件分岐で「If ListBox1.ListIndex = -1 Then」のように判定します。この確認を行わずにList(ListIndex)などにアクセスすると、実行時エラー381（オブジェクト配列のインデックスが有効範囲にありません）が発生するため、値を取得する処理の先頭には必ずこのチェックを入れてください。

Q. 複数選択したリストボックスから、選択された全項目を取得する方法を教えてください。

A. MultiSelectプロパティを有効にした状態では、ListIndexやValueで単一の値を取得することはできません。代わりに、For文でListCount回ループを回しながら、Selected(i)プロパティがTrueかどうかを1件ずつ確認し、Trueだった項目のList(i)を配列や文字列に集める処理を書きます。この記事のサンプルコードをそのまま流用できます。

Q. フォームを何度も開くとリストの項目が増えていくのはなぜですか？

A. UserForm_Initializeイベント内でAddItemを実行する際に、既存の項目をClearしないまま追加を繰り返していることが原因です。フォームを開くたびにInitializeイベントが実行されるため、Clearを挟まないと項目が二重・三重に積み上がっていきます。AddItemやList代入の直前に必ずListBox1.Clearを実行することで解消します。

Q. リストボックスに複数列（IDと名称など）を表示させることはできますか？

A. 可能です。ColumnCountプロパティを2以上に設定したうえで、AddItemで1列目を追加した後にList(行番号, 列番号)の形式で2列目以降の値を個別に設定します。列幅はColumnWidthsプロパティで調整でき、実際に取得する値の列はBoundColumnプロパティで指定できます。ID・名称のペアを表示しつつ、Valueで取得するのはIDだけ、といった制御が可能です。

Q. VBAマクロの保守が属人化してしまった場合、何から手をつければいいですか？

A. まず、現在動いているマクロの一覧と、それぞれの目的・使用頻度を洗い出すところから始めます。次に、コードの意図が分からないものについては、AIコーディングエージェントにコードを読み込ませて仕様を言語化させるのが効率的です。すべてを一度に作り直す必要はなく、「使用頻度が高く、担当者が1人しかいないマクロ」から優先的に説明可能な状態にしていくのが現実的な進め方です。

AIAI鬼管理

AI鬼管理へのお問い合わせ

この記事を読んで気になった方へ。
AI鬼管理の専門スタッフが、御社に最適な
業務自動化プランを無料でご提案します。

お客様情報

会社名・屋号*必須

会社名を入力してください

業種*必須 選択してください IT・ソフトウェア 製造業 建設・不動産 小売・EC 飲食・宿泊 医療・介護 教育・研修 士業・コンサル 人材・BPO その他

業種を選択してください

お名前*必須

お名前を入力してください

メールアドレス*必須

※法人・事業用のメールアドレスでお願いします（Gmail等の個人用フリーメールは受付できません）

正しいメールアドレスを入力してください

電話番号任意

---

現在の課題について

現在感じている課題*必須

人手不足で業務が回らない 社長・経営者が現場を離れられない 定型業務に時間を取られている AIを導入したいが何から始めればいいかわからない 外注・人件費コストが高い 業務フローが属人化している 社員のITリテラシーにばらつきがある

1つ以上選択してください

効率化・自動化したい業務*必須

営業・顧客対応（CRM・メール等） 経理・請求書・入金管理 採用・人事・労務管理 マーケティング・SNS・広告運用 カスタマーサポート・問い合わせ対応 資料作成・レポート・議事録 データ入力・集計・分析 社内の情報共有・ナレッジ管理

1つ以上選択してください

上記業務に現在かけている月額コスト*必須 選択してください まだかけていない（これから検討） 〜10万円 10〜30万円 30〜50万円 50〜100万円 100万円以上 その他（自由入力）

月額コストを選択してください

その他、ご相談内容任意

---

面談日時の選択

ご希望の日時*必須

約1時間のオンライン面談（Google Meet）です

空き枠を取得中...

面談日時を選択してください

この内容で面談を予約する

予約確定後、Google Calendarの招待メールをお届けします。
しつこい営業は一切ございません。