Copilotで並び順統一とUI改善｜階層連動VBA仕上げ | 40代シングルマザー派遣社員。正社員に転職するか悩む。

1 今回の業務内容と改善テーマ
2 なぜこの2つが重要なのか
3 実際のCopilotとのやり取り
- 3.1 利用者 → Copilot
- 3.2 Copilot → 利用者
4 この修正の本質
5 実務での変化
6 次回やること
7 まとめ
8 リンク

今回の業務内容と改善テーマ

前回は

・列番号の動的管理
・壊れにくい構造

ここまで完成しました。

正直、この時点で「実務で使えるレベル」には入っています。

ただし、ここからが“現場で差が出る部分”です。

今回の改善テーマはこの2つです。

・並び順の統一
・UI改善（選択してください表示）

一見地味ですが、ここをやるかどうかで

使いやすさが別物になります。

なぜこの2つが重要なのか

まず並び順。

前回の状態は

Dictionaryでユニーク化しただけなので

表示順がバラバラになります。

これ、実務だとかなりストレスです。

・探しにくい
・ミスが増える
・操作が遅くなる

次にUI。

初期状態で何も表示されていないと

・どこから触ればいいか分からない
・未選択状態が分かりにくい

になります。

つまり今回の改善は「使う人のための修正」です。

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

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

実際のCopilotとのやり取り

利用者 → Copilot

既存の階層連動コンボボックスのコードを改善してください。

■修正内容
・各コンボボックスのリストを昇順で並び替える
・初期状態で「選択してください」を表示する
・各Changeイベント時にも未選択状態を分かりやすくする
・既存のロジック（列番号の動的取得・階層連動・ユニーク化）は維持

■その他
・可読性重視でコメント付き
・コードは省略せず全文提示してください

Copilot → 利用者

Option Explicit

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

'---------------------------------------------
' 調査票名変更 → 項目名を再ロード
'---------------------------------------------
Private Sub cmb調査票名_Change()
    '下位をクリアし、未選択状態を明示
    ResetCombo cmb項目名
    ResetCombo cmb品目名
    ResetCombo cmbアイテム名

    If cmb調査票名.ListIndex > 0 Then   '※0 は「選択してください」
        Load項目名 cmb調査票名.value
    End If
End Sub

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

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

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

    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 ResetCombo(cmb As MSForms.ComboBox)
    cmb.Clear
    cmb.AddItem "選択してください"
    cmb.ListIndex = 0
End Sub


'===========================================================
'  共通：Dictionary → 昇順ソートした配列を返す
'===========================================================
Private Function SortedKeys(dic As Object) As Variant
    Dim arr As Variant
    arr = dic.Keys

    '単純なバブルソート（高速化不要のため可読性優先）
    Dim i As Long, j As Long
    Dim tmp As String

    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                tmp = arr(i)
                arr(i) = arr(j)
                arr(j) = tmp
            End If
        Next j
    Next i

    SortedKeys = arr
End Function

'===========================================================
'  調査票名のロード（最上位）
'===========================================================
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

    '初期化
    ResetCombo cmb調査票名

    '昇順ソートしてセット
    Dim arr As Variant
    arr = SortedKeys(dic)

    Dim v As Variant
    For Each v In arr
        cmb調査票名.AddItem v
    Next v
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")

    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

    ResetCombo cmb項目名

    Dim arr As Variant
    arr = SortedKeys(dic)

    Dim v As Variant
    For Each v In arr
        cmb項目名.AddItem v
    Next v
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 = 調査票 & "|" & 項目

    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

    ResetCombo cmb品目名

    Dim arr As Variant
    arr = SortedKeys(dic)

    Dim v As Variant
    For Each v In arr
        cmb品目名.AddItem v
    Next v
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 = 調査票 & "|" & 項目 & "|" & 品目

    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

    ResetCombo cmbアイテム名

    Dim arr As Variant
    arr = SortedKeys(dic)

    Dim v As Variant
    For Each v In arr
        cmbアイテム名.AddItem v
    Next v
End Sub

この修正の本質

ここがかなり重要です。

今回やっていることは「データを整える」ではなく「表示を整える」です。

並び順が揃うだけで

・探す時間が減る
・誤選択が減る
・ストレスが減る

UI改善も同じです。

「選択してください」

これを入れるだけで

・状態が明確になる
・操作に迷わない

つまり

「ミスさせない設計」

になっています。

実務での変化

この2つを入れるだけで、別物になります。

・新人でも使える
・説明がいらない
・入力ミスが減る

現場では、速さより「ミスらないこと」の方が重要です。

次回やること

まだ終わりではありません。次はここをやります。

・高速化（配列化）

今は毎回ループしています。

データ量が増えると、確実に遅くなります。

ここを改善して、完全に業務ツールに仕上げます。

まとめ

今回は

・並び順の統一
・UI改善

この2つを追加しました。

やっていることはシンプルですが、実務ではかなり効きます。

特に重要なのは「使う人の視点」ここです。

動くコードは作れるようになります。

でも、使われるコードにするには、この改善が必要です。

そして今回も同じです。

コードは自分で書いていない

・やったのは整理
・やったのは指示

ここだけです。

ここまで来るとAIは「作るツール」ではなく「仕上げる相棒」になります。

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

リンク

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