如何在Word表格中插入颜色编码的下拉列表？

Author: Xiaoyang Last Modified: 2025-05-08

假设您的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窗口中，双击“Project”窗格中的“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

注意：在上面的代码中，“状态”是创建下拉列表时使用的标题名称，“已完成”、“进行中”和“未开始”是下拉列表项。您可以根据需要更改这些值及其对应的颜色。