【VBA】検索フォームでデータを絞り込み・表示する方法（コピペOK）

記事ID: 171
タイトル: 【VBA】検索フォームでデータを絞り込み・表示する方法（コピペOK）
カテゴリ: シート操作
一次キーワード: VBA 検索フォーム データベース
想定読者: Excelのデータ一覧から必要な情報を素早く検索・絞り込みできるフォームを作りたい人
検索意図: VBAで検索フォームを作って、テキスト入力で一覧データを絞り込み・表示したい
読者の悩み（1文）: データが増えてCtrl+Fだけでは探しにくくなり、誰でも使える検索画面が欲しい
読了後にできること（1文）: UserFormで検索キーワードを入力すると、一致するデータがリストボックスに表示され、詳細表示やシート出力もできる
前提条件:
  - Excel版: Excel 2016以降 / Microsoft 365
  - OS: Windows 10/11
  - 保存形式: .xlsm（マクロ有効ブック）
  - 貼り付け場所: UserFormモジュール＋標準モジュール
  - 実行方法: マクロ実行（F5）またはボタン割り当て
更新日: 2026-03-25

—

この記事でわかること

VBAのUserFormで検索フォームを作り、キーワード入力でデータを絞り込み・リスト表示する方法を、コピペで動くコード付きで解説します。

• 対象：Ctrl+Fだけでは検索しにくくなってきた人、誰でも使える検索画面が欲しい人
• 所要時間：コピペ → 実行まで10分

—

どんな場面で使う？

• 数千行のデータからキーワードで素早く目的のレコードを見つけたいとき
• Ctrl+Fの検索では複数条件の絞り込みができなくて不便なとき
• VBA初心者でも使える見やすい検索画面をExcel内に作りたいとき
• 検索結果をダブルクリックして詳細を表示したり、別シートに出力したいとき

完成イメージ

実行前（検索フォームなし）：

1. Ctrl+F で検索ダイアログを開く
2. キーワードを入力して「次を検索」を繰り返す
3. 該当するデータが何件あるか分からない
4. 複数条件で絞り込みたいときはオートフィルタを設定

実行後（検索フォームあり）：

1. ボタンクリックで検索フォームが表示される
2. テキストボックスにキーワードを入力すると、リアルタイムで絞り込み結果がリストボックスに表示
3. 該当件数も表示される
4. ダブルクリックで詳細表示、「シート出力」ボタンで結果を別シートに書き出し

—

自分もデータが500行を超えたあたりで、Ctrl+Fの検索が辛くなった。「田中」で検索しても「田中太郎」と「田中花子」が交互にヒットして、一覧で見たいのに1件ずつしか確認できない。オートフィルタも毎回設定するのが面倒だった。

検索フォームを作ってからは、キーワードを入れるだけで該当データが一覧で出てくるので、探す時間が激減した。同僚にも「これ便利」と言ってもらえた。

この記事で、同じようにデータ検索に困っている人がサクッと検索フォームを作れるようになればうれしいです。

UserFormの基本はユーザーフォームで本格的な入力画面を作る方法で解説しています。オートフィルタによる絞り込みはオートフィルタでデータを絞り込み・解除する方法も参照してください。

—

実行前の準備

バックアップ推奨：シート出力機能がデータを書き込むので、先にファイルのコピーを取ってください。

データの前提

シート「データ」に以下のような一覧表があることを前提とします（1行目がヘッダー）。

シート名やヘッダーの列構成は、コード内の定数を書き換えれば変更できます。

Excelをマクロ有効ブック（.xlsm）で保存する

1. 「ファイル」→「名前を付けて保存」
2. ファイルの種類を「Excelマクロ有効ブック (*.xlsm)」に変更
3. 保存

—

手順（コピペ → 実行まで約10分）

ステップ1：UserFormを作成する

1. Alt + F11 でVBE（コードを書く画面）を開く
2. 「挿入」→「ユーザーフォーム」
3. フォームのプロパティで Name を frmSearch に変更

ステップ2：コントロールを配置する

フォーム上に以下のコントロールを配置します（ツールボックスからドラッグ＆ドロップ）。

コントロールのサイズや位置は後から調整できるので、まずはざっくり配置すればOKです。

ステップ3：UserFormにコードを貼り付ける

1. フォームをダブルクリックしてコードウィンドウを開く
2. 下の「UserFormコード（基本版）」をそのまま貼り付ける

ステップ4：標準モジュールにコードを貼り付ける

1. 「挿入」→「標準モジュール」
2. 下の「標準モジュールコード」を貼り付ける
3. Alt + F8 → ShowSearchForm を選んで「実行」

—

コード（基本版）– 部分一致検索＋リスト表示

UserFormコード（frmSearchに貼り付ける）

'============================================================
' ■ 検索フォーム（基本版）
'   → テキストボックスに入力したキーワードで部分一致検索
'   → 結果をリストボックスに一覧表示
'============================================================

'--- ★書き換えポイント ---
Private Const DATA_SHEET As String = "データ"  '← データがあるシート名
Private Const COL_COUNT  As Long = 4            '← 列数（A〜D列なら4）
'--- ★ここまで ---

'--- フォーム表示時の初期処理
Private Sub UserForm_Initialize()

    '--- リストボックスの列数を設定
    lstResult.ColumnCount = COL_COUNT

    '--- 列幅を設定（ポイント単位、セミコロン区切り）
    lstResult.ColumnWidths = "50;80;60;100"

    '--- 初期表示：全データを読み込む
    Call LoadData("")

End Sub

'--- 「検索」ボタンのクリック
Private Sub btnSearch_Click()
    Call LoadData(txtKeyword.Text)
End Sub

'--- データを読み込んでリストボックスに表示
Private Sub LoadData(keyword As String)

    Dim ws       As Worksheet
    Dim lastRow  As Long
    Dim i        As Long
    Dim j        As Long
    Dim matched  As Boolean
    Dim hitCount As Long

    Set ws = ThisWorkbook.Sheets(DATA_SHEET)
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    '--- リストボックスをクリア
    lstResult.Clear
    hitCount = 0

    '--- 2行目（データ開始行）からループ
    For i = 2 To lastRow

        '--- キーワードが空なら全件表示
        If keyword = "" Then
            matched = True
        Else
            '--- いずれかの列に部分一致すればヒット
            matched = False
            For j = 1 To COL_COUNT
                If InStr(1, CStr(ws.Cells(i, j).Value), keyword, vbTextCompare) > 0 Then
                    matched = True
                    Exit For
                End If
            Next j
        End If

        '--- ヒットした行をリストボックスに追加
        If matched Then
            lstResult.AddItem ws.Cells(i, 1).Value
            Dim k As Long
            For k = 2 To COL_COUNT
                lstResult.List(lstResult.ListCount - 1, k - 1) = ws.Cells(i, k).Value
            Next k
            hitCount = hitCount + 1
        End If

    Next i

    '--- 件数を表示
    lblCount.Caption = hitCount & " 件"

End Sub

標準モジュールコード

'============================================================
' ■ 検索フォームを表示（標準モジュール）
'============================================================
Sub ShowSearchForm()
    frmSearch.Show vbModeless  '← vbModeless でフォームを開いたままシート操作可能
End Sub

書き換えポイント

—

コード（実務版）– 複数条件AND検索＋ソート＋ダブルクリック詳細＋シート出力

自分は基本版を使ったあと、「部署と名前の両方で絞りたい」「結果を別シートに出したい」という要望が来て実務版に発展させた。これを作ってからは、チーム全員がこのフォームでデータを探すようになった。

実務版で追加するコントロール

基本版のコントロールに加えて、以下を追加します。

UserFormコード（実務版：frmSearchに貼り付ける）

'============================================================
' ■ 検索フォーム（実務版）
'   → 複数条件AND検索＋ソート＋ダブルクリック詳細＋シート出力
'============================================================

'--- ★書き換えポイント ---
Private Const DATA_SHEET   As String = "データ"   '← データがあるシート名
Private Const EXPORT_SHEET As String = "検索結果"  '← 出力先のシート名
Private Const COL_COUNT    As Long = 4             '← 列数（A〜D列なら4）
'--- ★ここまで ---

'--- ヘッダー名を保持する配列
Private headers() As String

'--- 検索結果の行番号を保持（ダブルクリック時にシート上の行を特定するため）
Private resultRows() As Long
Private resultCount  As Long

'============================================================
' フォーム表示時の初期処理
'============================================================
Private Sub UserForm_Initialize()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(DATA_SHEET)

    '--- ヘッダーを取得
    ReDim headers(1 To COL_COUNT)
    Dim j As Long
    For j = 1 To COL_COUNT
        headers(j) = CStr(ws.Cells(1, j).Value)
    Next j

    '--- リストボックスの列数・列幅を設定
    lstResult.ColumnCount = COL_COUNT
    lstResult.ColumnWidths = "50;80;60;100"

    '--- ソート列のコンボボックスを設定
    cmbSortCol.Clear
    cmbSortCol.AddItem "（ソートなし）"
    For j = 1 To COL_COUNT
        cmbSortCol.AddItem headers(j)
    Next j
    cmbSortCol.ListIndex = 0  ' 初期値：ソートなし

    '--- 初期表示：全データ
    Call SearchData

End Sub

'============================================================
' 検索処理（複数条件AND検索）
'============================================================
Private Sub SearchData()

    Dim ws       As Worksheet
    Dim lastRow  As Long
    Dim i        As Long
    Dim j        As Long
    Dim kw1      As String
    Dim kw2      As String
    Dim match1   As Boolean
    Dim match2   As Boolean

    Set ws = ThisWorkbook.Sheets(DATA_SHEET)
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    kw1 = Trim(txtKeyword.Text)
    kw2 = Trim(txtKeyword2.Text)

    '--- リストボックスをクリア
    lstResult.Clear
    resultCount = 0
    ReDim resultRows(1 To lastRow)  ' 最大サイズで確保

    '--- 2行目からループ
    For i = 2 To lastRow

        '--- 条件1の判定（空なら無条件で一致）
        If kw1 = "" Then
            match1 = True
        Else
            match1 = False
            For j = 1 To COL_COUNT
                If InStr(1, CStr(ws.Cells(i, j).Value), kw1, vbTextCompare) > 0 Then
                    match1 = True
                    Exit For
                End If
            Next j
        End If

        '--- 条件2の判定（空なら無条件で一致）
        If kw2 = "" Then
            match2 = True
        Else
            match2 = False
            For j = 1 To COL_COUNT
                If InStr(1, CStr(ws.Cells(i, j).Value), kw2, vbTextCompare) > 0 Then
                    match2 = True
                    Exit For
                End If
            Next j
        End If

        '--- AND条件：両方一致した行のみ追加
        If match1 And match2 Then
            resultCount = resultCount + 1
            resultRows(resultCount) = i

            lstResult.AddItem ws.Cells(i, 1).Value
            Dim k As Long
            For k = 2 To COL_COUNT
                lstResult.List(lstResult.ListCount - 1, k - 1) = ws.Cells(i, k).Value
            Next k
        End If

    Next i

    '--- 件数を表示
    lblCount.Caption = resultCount & " 件"

    '--- ソートが指定されている場合
    If cmbSortCol.ListIndex > 0 Then
        Call SortListBox(cmbSortCol.ListIndex - 1)  ' 0始まりの列インデックス
    End If

End Sub

'============================================================
' リストボックスのソート（バブルソート）
'============================================================
Private Sub SortListBox(colIdx As Long)

    Dim i As Long, j As Long
    Dim tempVal As String
    Dim tempRow As Long

    For i = 0 To lstResult.ListCount - 2
        For j = i + 1 To lstResult.ListCount - 1
            If lstResult.List(i, colIdx) > lstResult.List(j, colIdx) Then
                '--- リストボックスの行を入れ替え
                Dim c As Long
                For c = 0 To COL_COUNT - 1
                    tempVal = lstResult.List(i, c)
                    lstResult.List(i, c) = lstResult.List(j, c)
                    lstResult.List(j, c) = tempVal
                Next c
                '--- 行番号も入れ替え
                tempRow = resultRows(i + 1)
                resultRows(i + 1) = resultRows(j + 1)
                resultRows(j + 1) = tempRow
            End If
        Next j
    Next i

End Sub

'============================================================
' ボタンイベント
'============================================================

'--- 「検索」ボタン
Private Sub btnSearch_Click()
    Call SearchData
End Sub

'--- 「クリア」ボタン
Private Sub btnClear_Click()
    txtKeyword.Text = ""
    txtKeyword2.Text = ""
    cmbSortCol.ListIndex = 0
    Call SearchData
End Sub

'--- 「シート出力」ボタン
Private Sub btnExport_Click()

    If lstResult.ListCount = 0 Then
        MsgBox "出力するデータがありません。", vbExclamation
        Exit Sub
    End If

    Dim wsOut As Worksheet

    '--- 出力先シートがなければ作成、あれば既存をクリア
    On Error Resume Next
    Set wsOut = ThisWorkbook.Sheets(EXPORT_SHEET)
    On Error GoTo 0

    If wsOut Is Nothing Then
        Set wsOut = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        wsOut.Name = EXPORT_SHEET
    Else
        wsOut.Cells.Clear
    End If

    '--- ヘッダーを書き込み
    Dim j As Long
    For j = 1 To COL_COUNT
        wsOut.Cells(1, j).Value = headers(j)
    Next j

    '--- ヘッダー行の書式
    With wsOut.Range(wsOut.Cells(1, 1), wsOut.Cells(1, COL_COUNT))
        .Font.Bold = True
        .Interior.Color = RGB(68, 114, 196)
        .Font.Color = RGB(255, 255, 255)
    End With

    '--- データを書き込み
    Dim i As Long
    For i = 0 To lstResult.ListCount - 1
        For j = 0 To COL_COUNT - 1
            wsOut.Cells(i + 2, j + 1).Value = lstResult.List(i, j)
        Next j
    Next i

    '--- 列幅を自動調整
    wsOut.Columns.AutoFit

    MsgBox resultCount & " 件を「" & EXPORT_SHEET & "」シートに出力しました。", vbInformation

End Sub

'============================================================
' ダブルクリックで詳細表示
'============================================================
Private Sub lstResult_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    If lstResult.ListIndex < 0 Then Exit Sub

    Dim idx As Long
    idx = lstResult.ListIndex

    '--- 詳細情報を組み立て
    Dim detail As String
    Dim j As Long
    For j = 1 To COL_COUNT
        detail = detail & headers(j) & "：" & lstResult.List(idx, j - 1) & vbCrLf
    Next j

    '--- シート上の該当行番号も表示
    detail = detail & vbCrLf & "（シート上の行番号：" & resultRows(idx + 1) & "）"

    MsgBox detail, vbInformation, "詳細表示"

End Sub

標準モジュールコード（実務版も共通）

'============================================================
' ■ 検索フォームを表示（標準モジュール）
'============================================================
Sub ShowSearchForm()
    frmSearch.Show vbModeless
End Sub

書き換えポイント（実務版）

Dictionaryを使った高速検索に興味がある場合はDictionaryで重複チェック・集計を高速化する方法も参照してください。データが数万行を超える場合は、配列に一括読み込みしてから検索すると高速です。

—

よくある落とし穴6選

VBAの検索フォームで全角・半角が区別されるときの対処法

「『営業』で検索しても『営業部』がヒットしない」場合、InStr関数の比較モードを指定していないことが原因だ。InStr(1, 対象, キーワード, vbTextCompare)と書くことで、大文字小文字・全角半角を区別しない検索になる。vbTextCompareの指定を忘れずに。

VBAの検索フォームで大量データが遅いときの対処法

「1万行以上のデータで検索に何秒もかかる」場合、セルを1つずつ読んでいるためにループが遅くなっていることが原因だ。データを配列に一括読み込みしてからループで検索すれば、10倍以上高速化できる。配列への読み込みはdata = ws.Range("A1:E" & lastRow).Valueの1行でできる。

—

FAQ

Q1. テキストボックスに入力するたびにリアルタイムで検索したい場合は？

txtKeyword の Change イベントで検索処理を呼べばリアルタイム検索になります。

Private Sub txtKeyword_Change()
    Call SearchData
End Sub

ただし、データが多い場合は入力のたびに処理が走って重くなるため、Application.OnTime で0.3秒のディレイを入れるのがおすすめです。

Q2. 検索対象を特定の列だけに絞りたい場合は？

LoadData （基本版）や SearchData（実務版）の内側のループ For j = 1 To COL_COUNT を、検索対象の列番号だけに変更してください。

' 例：B列（2）とC列（3）だけを検索対象にする
Dim targetCols As Variant
targetCols = Array(2, 3)
Dim t As Long
For t = 0 To UBound(targetCols)
    If InStr(1, CStr(ws.Cells(i, targetCols(t)).Value), kw1, vbTextCompare) > 0 Then
        match1 = True
        Exit For
    End If
Next t

Q3. OR検索（どちらかに一致）に変更したい場合は？

実務版の AND 条件 If match1 And match2 Then を If match1 Or match2 Then に変えるだけです。

Q4. フォームをモーダル（シート操作不可）で表示したい場合は？

frmSearch.Show vbModeless を frmSearch.Show に変更すると、フォームを閉じるまでシート操作ができなくなります。データの誤編集を防ぎたい場合に有効です。

Q5. 検索結果をCSVで出力したい場合は？

シート出力後にExcelデータをCSVファイルに書き出す方法のコードを組み合わせれば、CSV出力もできます。自分はシート出力→CSV書き出しの2ステップで運用しています。

—

—

まとめ

この記事では、VBAのUserFormで検索フォームを作り、データを絞り込み・表示する方法を解説しました。

• 基本版 — テキストボックスに入力したキーワードで部分一致検索し、リストボックスに一覧表示
• 実務版 — 複数条件AND検索＋ソート＋ダブルクリック詳細表示＋検索結果のシート出力

Ctrl+Fを連打する日々から解放されます。自分もこの検索フォームを日常的に使っていて、もう手放せません。

関連記事:

• ユーザーフォームで本格的な入力画面を作る方法 — UserFormの基本操作やコントロールの配置方法を詳しく知りたい場合に
• オートフィルタでデータを絞り込み・解除する方法 — フォームを作らずにシート上で絞り込みたい場合に。フォームとオートフィルタの使い分けが分かります
• Dictionaryで重複チェック・集計を高速化する方法 — 検索の高速化やキーの重複チェックに活用したい場合に

—

次にやりたくなること

• ユーザーフォームで本格的な入力画面を作る方法 — 検索フォームに加えて、データの登録・編集フォームも作りたい場合に
• オートフィルタでデータを絞り込み・解除する方法 — フォームを使わずにシート上でサクッと絞り込みたい場合に
• Dictionaryで重複チェック・集計を高速化する方法 — 検索前にデータの重複チェックをしたい場合や、大量データでの検索を高速化したい場合に
• マクロをボタン1つで実行する方法 — 検索フォームの表示をシート上のボタンに割り当てたい場合に

—

Part 2: ルーブリック自己採点

判定：Go

—

Part 3: 自己編集レポート

• 編集サマリー: 目的=UserFormで検索フォームを作成 / 結論=部分一致検索（基本版）と複数条件AND検索+シート出力（実務版）の2段階 / 想定読者=Ctrl+Fだけではデータ検索が辛くなってきた実務者
• 修正方針（最重要3つ）:
1. コントロール配置の手順を明確化 → Name一覧表で対応
2. 大量データ対策 → 落とし穴#6で配列化のテクニックを案内
3. 全角半角の検索漏れ対策 → vbTextCompare指定＋落とし穴#3で対応
4. 筆者体験チェック結果:
5. (1)共感: OK — 導入に「Ctrl+Fが辛くなった」「500行超えて限界」の体験あり
6. (2)実感: OK — 「探す時間が激減」「同僚に便利と言われた」の実感あり
7. (3)動機: OK — 「サクッと検索フォームを作れるようになればうれしい」あり
8. 内部リンクチェック結果: 7本（/080, /062, /063, /013, /036, /019 + 本文中）。導入・本文中・まとめ・次にやりたくなることに配置。5本以上OK
9. 掲載可否: Yes

—

Part 4: セルフチェックリスト

• [x] 再現性（前提・貼り付け・実行・確認）
• [x] 安全性（バックアップ・破壊的操作の警告）
• [x] 落とし穴が3つ以上あるか（6つ）
• [x] FAQが3つ以上あるか（5つ）
• [x] 「次にやりたくなること」に内部リンクが2本以上あるか（4本）
• [x] 導入に「(1)共感→(2)実感→(3)動機」の3段階が入っているか
• [x] 落とし穴に筆者の失敗談が最低1つ入っているか
• [x] 実務版コード前後に「(2)実感」の補強が入っているか
• [x] 内部リンクが5本以上あるか（7本）
• [x] FAQ構造化データ（JSON-LD）が出力されているか
• [x] ルーブリック自己採点が完了しているか