Word表に色分けされたドロップダウンリストを挿入するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

Word文書内に表があり、その表の列に色分けされたドロップダウンリストを挿入したいとします。つまり、ドロップダウンからあるオプションを選択するとセルの背景色が赤になり、別のオプションを選択すると緑になる、というものです。以下のスクリーンショットをご覧ください：

Demo showing a cell's color changing when an item is selected from the drop-down list

VBAコードを使用してWord文書に色分けされたドロップダウンリストを挿入する

以下の手順では、表のセルにドロップダウンリストを挿入し、選択した項目に基づいてセルに背景色を適用する方法を説明します：

ドロップダウンを挿入したい表のセルを選択し、「開発」＞「ドロップダウンリストコンテンツコントロール」をクリックします。
注: リボンに「開発」タブが表示されない場合は、こちらを参照してください： Wordリボンに「開発」タブを表示する方法。
ドロップダウンは特定のセルに挿入されます。次に「開発」＞「プロパティ」をクリックします。

Drop-down inserted into a specific cell with Properties option highlighted

「コンテンツコントロールのプロパティ」ダイアログボックスで、次の操作を行います：
1. 「タイトル」テキストボックスにタイトル名を入力します。
2. 「追加」ボタンをクリックして「選択肢の追加」ダイアログを開きます。
3. 「表示名」テキストボックスにドロップダウンリストの項目を入力します。
ステップ3を繰り返して、必要に応じて他のドロップダウンリスト項目を挿入します。
最初のドロップダウンリストを作成したら、それをコピーして他のセルに貼り付けることができます。
ALT + F11を押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

Microsoft Visual Basic for Applicationsウィンドウで、「プロジェクト」ペインから「ThisDocument」をダブルクリックしてモジュールを開きます。その後、次のコードを空白のモジュールにコピーして貼り付けます：

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
With ContentControl.Range
    If ContentControl.Title = "Status" Then
        Select Case .Text
            Case "Complete"
                .Cells(1).Shading.BackgroundPatternColor = wdColorRed
            Case "In Progress"
                .Cells(1).Shading.BackgroundPatternColor = wdColorGreen
            Case "Not Start"
                .Cells(1).Shading.BackgroundPatternColor = wdColorBlue
            Case Else
                .Cells(1).Shading.BackgroundPatternColor = wdColorAutomatic
        End Select
    End If
End With
End Sub

注: 上記のコードでは、「ステータス」はドロップダウンリスト作成時に使用したタイトル名であり、「完了」、「進行中」、「未開始」は項目です。これらの値や対応する色は必要に応じて変更できます。