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

著者Xiaoyang変更日2025-04-17

Word 文書内の表に、選択内容に応じてセルの色が変わるドロップダウンリストを挿入したいとします。たとえば、ある選択肢を選ぶとセルが赤くなり、別の選択肢を選ぶと緑になるといった具合です（下記のスクリーンショット参照）。

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

以下の手順に従って、テーブルのセルにドロップダウンリストを挿入し、選択した項目に応じてセルの背景色を自動的に適用しましょう。

ドロップダウンを挿入したいテーブル内のセルを選択し、「開発」タブの「ドロップダウンリストコンテンツコントロール」をクリックします。
注：リボンに［開発］タブが表示されていない場合は、次のページをご確認ください：Word リボンで［開発］タブを表示する方法。
ドロップダウンが指定したセルに挿入されます。次に、「開発」タブの「プロパティ」をクリックします。

「コンテンツコントロールのプロパティ」ダイアログボックスで、以下の操作を行ってください。
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

注：上記のコードでは、「Status」はドロップダウンリストのタイトルとして使用され、「Complete」、「In Progress」、および「Not Start」がその選択肢となります。これらの値と対応する色は、必要に応じて自由に変更できます。