如何在 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"則為各選項項目。您可依需求自由調整這些值及其對應的顏色！