Copilotで階層連動コンボボックス作成｜実務VBA | 40代シングルマザー派遣社員。正社員に転職するか悩む。

1 今回の業務内容とゴール
2 実際のCopilotとのやり取り
- 2.1 利用者 → Copilot
- 2.2 Copilot → 利用者
3 このコードの本質
- 3.1 単純条件ではなく「結合条件」
- 3.2 なぜこのやり方をするのか
4 実務でのメリット
5 今回あえてやっていないこと
6 次回やること
7 まとめ
8 リンク

今回の業務内容とゴール

今回も、Excelの実務で実際にCopilotを使って解決した案件です。

テーマは一段レベルアップして

条件付きで連動するコンボボックス

です。

前回までの「単純な連動」と違い、今回は

組み合わせ条件でユニーク化

が入ります。

これ、実務ではかなり重要です。

例えば

・同じ項目名でも調査票が違うと中身が違う
・同じ品目名でも上位条件で意味が変わる

こういうケースです。

今回のゴールは

・ユニーク化
・階層連動
・条件付き抽出

この3つです。

ここまで来ると、ほぼ業務アプリです。

ただし今回は「まず1回で動かす」

ここに集中します。細かい改善は次回に回します。

今回取り扱うデータも経済産業省の公開データ「生産動態統計年報（2024年）」です。

■■■スポンサーリンク■■■

実際のCopilotとのやり取り

利用者 → Copilot

Excel VBAで、UserForm1に配置されたコンボボックスを
階層連動させるコードを作成してください。

■対象フォーム
・UserForm1
・cmb調査票名
・cmb項目名
・cmb品目名
・cmbアイテム名

■元データ（dataシート）
・D列：調査票名
・E列：項目名
・F列：品目名
・G列：アイテム名
・2行目～最終行（A列基準）

■要件
・各リストはユニーク化（Dictionary使用）
・空白は除外
・上位選択に応じて下位を絞り込む
・可読性重視でコメント付き

■抽出条件（重要）
・調査票名 → 項目名
・調査票名×項目名 → 品目名
・調査票名×項目名×品目名 → アイテム名

※結合条件で一致する行のみを対象にすること

■動作
・フォーム起動時は調査票名のみロード
・選択変更時は下位をクリアして再読込

コードは省略せず、完全な形で提示してください。

Copilot → 利用者

以下に、要件を満たす完全なコードを提示します。

Option Explicit
'---------------------------------------------
' フォーム初期化：調査票名のみロード
'---------------------------------------------
Private Sub UserForm_Initialize()
    Load調査票名
End Sub

'---------------------------------------------
' 調査票名変更 → 項目名を再ロード
'---------------------------------------------
Private Sub cmb調査票名_Change()
    '下位をクリア
    cmb項目名.Clear
    cmb品目名.Clear
    cmbアイテム名.Clear
    If cmb調査票名.ListIndex >= 0 Then
        Load項目名 cmb調査票名.value
    End If
End Sub

'---------------------------------------------
' 項目名変更 → 品目名を再ロード
'---------------------------------------------
Private Sub cmb項目名_Change()
    cmb品目名.Clear
    cmbアイテム名.Clear

    If cmb調査票名.ListIndex >= 0 And cmb項目名.ListIndex >= 0 Then
        Load品目名 cmb調査票名.value, cmb項目名.value
    End If
End Sub


'---------------------------------------------
' 品目名変更 → アイテム名を再ロード
'---------------------------------------------
Private Sub cmb品目名_Change()
    cmbアイテム名.Clear

    If cmb調査票名.ListIndex >= 0 _
       And cmb項目名.ListIndex >= 0 _
       And cmb品目名.ListIndex >= 0 Then

        Loadアイテム名 cmb調査票名.value, cmb項目名.value, cmb品目名.value
    End If
End Sub

'===========================================================
'  調査票名のロード（最上位）
'===========================================================
Private Sub Load調査票名()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dic As Object
    Dim i As Long
    Dim val As String

    Set ws = ThisWorkbook.Worksheets("data")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dic = CreateObject("Scripting.Dictionary")

    'D列（調査票名）をユニーク化
    For i = 2 To lastRow
        val = Trim(ws.Cells(i, "D").value)
        If val <> "" Then
            If Not dic.Exists(val) Then dic.Add val, True
        End If
    Next i

    'コンボボックスへセット
    cmb調査票名.List = dic.Keys
End Sub

'===========================================================
'  項目名のロード（調査票名 → 項目名）
'===========================================================
Private Sub Load項目名(ByVal 調査票 As String)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dic As Object
    Dim i As Long
    Dim val As String

    Set ws = ThisWorkbook.Worksheets("data")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dic = CreateObject("Scripting.Dictionary")

    '調査票名一致 → E列（項目名）をユニーク化
    For i = 2 To lastRow
        If Trim(ws.Cells(i, "D").value) = 調査票 Then
            val = Trim(ws.Cells(i, "E").value)
            If val <> "" Then
                If Not dic.Exists(val) Then dic.Add val, True
            End If
        End If
    Next i

    cmb項目名.List = dic.Keys
End Sub

'===========================================================
'  品目名のロード（調査票名 × 項目名 → 品目名）
'===========================================================
Private Sub Load品目名(ByVal 調査票 As String, ByVal 項目 As String)
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dic As Object
    Dim i As Long
    Dim val As String
    Dim condition As String

    Set ws = ThisWorkbook.Worksheets("data")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dic = CreateObject("Scripting.Dictionary")
    
    condition = 調査票 & "|" & 項目

    '調査票名 & 項目名一致 → F列（品目名）をユニーク化
    For i = 2 To lastRow
        If ws.Cells(i, "D").value & "|" & ws.Cells(i, "E").value = condition Then

            val = Trim(ws.Cells(i, "F").value)
            If val <> "" Then
                If Not dic.Exists(val) Then dic.Add val, True
            End If
        End If
    Next i

    cmb品目名.List = dic.Keys
End Sub

'===========================================================
'  アイテム名のロード（調査票名 × 項目名 × 品目名 → アイテム名）
'===========================================================
Private Sub Loadアイテム名(ByVal 調査票 As String, _
                           ByVal 項目 As String, _
                           ByVal 品目 As String)

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dic As Object
    Dim i As Long
    Dim val As String
    Dim condition As String

    Set ws = ThisWorkbook.Worksheets("data")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dic = CreateObject("Scripting.Dictionary")
    
    condition = 調査票 & "|" & 項目 & "|" & 品目

    '3条件一致 → G列（アイテム名）をユニーク化
    For i = 2 To lastRow
        If ws.Cells(i, "D").value & "|" & ws.Cells(i, "E").value & "|" & ws.Cells(i, "F").value = condition Then

            val = Trim(ws.Cells(i, "G").value)
            If val <> "" Then
                If Not dic.Exists(val) Then dic.Add val, True
            End If
        End If
    Next i

    cmbアイテム名.List = dic.Keys
End Sub

このコードの本質

今回の進化ポイントは、条件の作り方です。

単純条件ではなく「結合条件」

condition = 調査票 & "|" & 項目

これで

複数条件を1つにまとめている

という状態になります。

つまり

AND条件を文字列で作っている

ということです。

なぜこのやり方をするのか

理由はシンプルです。

・コードがシンプルになる
・条件の拡張がしやすい
・ミスが減る

実務では

この「条件のまとめ方」

がかなり効きます。

実務でのメリット

この構造にすると

・誤った組み合わせが出ない
・選択ミスが減る
・データの整合性が保たれる

つまり「壊れないUI」になります。

今回あえてやっていないこと

今回のコードはまだ完成ではありません。

あえて残しています。

・並び順がバラバラ
・UIが未整備
・処理が毎回全件ループ
・列番号が固定

つまり、まだ「荒い状態」です。

次回やること

次回からここを修正していきます。

・Dictionaryで項目名 → 列番号管理
・並び順の統一
・UI改善（選択してください）
・高速化（配列化）

ここまでやると、完全に業務ツールになります。

まとめ

今回は

条件付きユニーク化 × 階層連動

をCopilotで一発作成しました。

ポイントは、単純なフィルタではなく、組み合わせ条件で制御しているところです。

そして今回も重要なのは、コードを書いていないという点です。

やったのは

・条件を整理
・プロンプトに落とす

これだけです。

ただしここから先は、調整力が必要になります。

次回からはその「仕上げ」をやっていきます。

■■■スポンサーリンク■■■

リンク

■■■スポンサーリンク■■■