Copilotでリストボックス表示制御を追加｜実務VBA

2026/6/20 Copilot, Excel・VBA, 生成AI

1 前回コードの問題点
2 今回やること
3 実際のCopilotとのやり取り
- 3.1 利用者 → Copilot
- 3.2 Copilot → 利用者
4 この修正で何が変わったのか
5 「選択してください」の意味
6 初期選択（ListIndex = 0）
7 なぜ配列を作り直しているのか
8 実務でのインパクト
9 なぜ今回も1回で終わったのか
10 まとめ
11 リンク

前回コードの問題点

前回は

・ユニーク化
・並び替え

ここまで仕上げました。

正直、この時点でかなり使える状態です。

ですが、実務ではさらにもう一段階の壁があります。

それが表示のわかりにくさです。

例えばこんな状態になります。

・何も選択されていない
・初期状態が分からない
・空白に見えて不安になる

ユーザーは「これ動いてるの？」と感じます。

つまり UI（見た目・操作感）の問題です。

ここを整えないと、どれだけロジックが良くても使われません。

なので今回は表示制御を追加して「迷わないUI」に仕上げる

これをやります。

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

今回やること

やることはシンプルです。

・先頭に「選択してください」を追加
・初期状態でそれを選択状態にする
・選択されていない状態を防ぐ

この3つです。

たったこれだけですが、体感は大きく変わります。

実際のCopilotとのやり取り

利用者 → Copilot

先ほどのコードに表示制御を追加してください。

■修正内容
・ListBoxの先頭に「選択してください」を追加
・フォーム表示時にそれを選択状態にする
・既存の並び順・ユニーク化は維持

コード全体を修正して提示してください。

Copilot → 利用者

以下に、表示制御を追加した完全版コードを提示します。

Option Explicit

'---------------------------------------------
' フォーム初期化時にリストを読み込み、
' 先頭の「選択してください」を選択状態にする
'---------------------------------------------
Private Sub UserForm_Initialize()

    LoadUniqueItemsToListBox

    ' 先頭（「選択してください」）を選択状態にする
    If Me.ListBox1.ListCount > 0 Then
        Me.ListBox1.ListIndex = 0
    End If

End Sub

'---------------------------------------------
' dataシートのE列から項目名をユニーク抽出し、
' 昇順に並び替えて UserForm1 の ListBox1 に設定
'---------------------------------------------
Public Sub LoadUniqueItemsToListBox()

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim i As Long
    Dim value As String
    Dim arr As Variant
    Dim arrWithHeader() As String
    Dim n As Long

    ' dataシートを取得
    Set ws = ThisWorkbook.Worksheets("data")

    ' A列を基準に最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Dictionary（重複排除用）を作成
    Set dict = CreateObject("Scripting.Dictionary")

    '---------------------------------------------
    ' E列（2行目～最終行）を走査してユニーク化
    '---------------------------------------------
    For i = 2 To lastRow
        value = Trim(ws.Cells(i, "E").value)

        ' 空白は除外
        If value <> "" Then
            If Not dict.Exists(value) Then
                dict.Add value, True
            End If
        End If
    Next i

    '---------------------------------------------
    ' Dictionary のキーを配列として取得
    '---------------------------------------------
    If dict.Count = 0 Then Exit Sub
    arr = dict.Keys

    '---------------------------------------------
    ' 配列を昇順にソート（バブルソート）
    '---------------------------------------------
    Call SortArrayAscending(arr)

    '---------------------------------------------
    ' 先頭に「選択してください」を追加した配列を作成
    '---------------------------------------------
    ReDim arrWithHeader(0 To UBound(arr) + 1)

    arrWithHeader(0) = "選択してください"

    For n = 0 To UBound(arr)
        arrWithHeader(n + 1) = arr(n)
    Next n

    '---------------------------------------------
    ' UserForm1.ListBox1 に設定
    '---------------------------------------------
    With UserForm1.ListBox1
        .Clear
        .List = arrWithHeader
    End With

End Sub


'---------------------------------------------
' 配列を昇順に並び替える（バブルソート）
'---------------------------------------------
Private Sub SortArrayAscending(ByRef arr As Variant)

    Dim i As Long, j As Long
    Dim temp As String

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

End Sub

この修正で何が変わったのか

ここが一番重要です。

見た目の変更に見えますが、実は違います。

ユーザー体験が変わっています。

「選択してください」の意味

これがあるだけで

・未選択状態が明確になる
・ユーザーが迷わない
・入力ミスが減る

という効果があります。

実務ではかなり重要です。

初期選択（ListIndex = 0）

これも地味ですが重要です。

これがないと

・何も選ばれていない状態になる
・ユーザーが操作に迷う

になります。

最初から選択状態にすることで

「ここから選ぶんだな」

と直感的に分かります。

なぜ配列を作り直しているのか

ポイントはここです。

既存配列にそのまま追加できないため

・新しい配列を作る
・先頭に案内文を入れる
・後ろにデータを詰める

という処理をしています。

この「一手間」がUIを大きく変えます。

実務でのインパクト

この修正、かなり効きます。

・ユーザーが迷わない
・操作説明が不要になる
・ミス入力が減る

そして何より

「ちゃんとした業務ツールになる」

ここが大きいです。

なぜ今回も1回で終わったのか

理由はシンプルです。

・表示内容を具体的に指定
・初期状態も指定
・既存仕様も明示

この3つです。

AIは「何をどう見せたいか」が分かると一発で仕上げてきます。

まとめ

今回は、リストボックスに表示制御を追加しました。

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

これで

並び順OK
ユニーク化OK
表示も分かりやすい

という状態になりました。

つまり「誰でも使えるUI」に進化しています。

実務では、動くコードより使われるコードが重要です。

今回のような表示制御は、その差を埋める最後の一手です。

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

リンク

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