如何在Word表中插入顏色編碼的下拉列表?
假設我的Word文檔中有一個表,現在,我想在表的列中插入顏色編碼的下拉列表。 這意味著當我從下拉菜單中選擇一個選項時,單元格顏色變為紅色,而當我在下拉菜單中選擇另一選項時,單元格顏色變為綠色,如下面的屏幕截圖所示。 您如何在Word文檔中解決這項工作?
使用VBA代碼在Word文檔中插入顏色編碼的下拉列表
以下步驟可以幫助您根據需要完成此任務,首先,插入下拉列表,然後為下拉列表應用顏色。 請這樣做:
1。 在表格中選擇要插入下拉列表的單元格,然後單擊 開發者 > 下拉列表內容控制 圖標,請參見屏幕截圖:
2。 下拉列表插入到特定的單元格,然後單擊 開發者 > 氟化鈉性能,請參見屏幕截圖:
3。 在 內容控制屬性 對話框,請執行以下操作:
(1.)將標題名稱輸入到 稱呼 文本框;
(2.)點擊 加入 按鈕轉到 添加選擇 對話;
(3.)在 添加選擇 對話框中,將下拉列表項輸入到 顯示名稱 文本框。
4. 重複步驟3,根據需要插入其他下拉列表項。
5。 創建第一個下拉列表後,您可以根據需要將其複制並粘貼到其他單元格中。 看截圖:
6。 然後,您應該應用VBA代碼,請按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
7。 在 Microsoft Visual Basic for Applications 窗口,雙擊 這個文件 來自 工程項目 窗格以打開模式,然後將以下代碼複製並粘貼到空白模塊中。
VBA代碼:將顏色編碼的下拉列表插入Word文檔的表中:
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 是創建下拉列表時的標題名稱,並且 完成, 進行中, 不開始 是下拉列表中的項目,您可以將其更改為自己的項目。 您還可以根據需要更改顏色。
8。 然後保存並關閉代碼窗口,現在,當您從下拉列表中選擇一項時,其相對顏色將被單元格填充,請參見屏幕截圖:
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!
🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔,全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇(PDF/TXT/DOC/HTML...) / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具,請前往我們的 刪除組...
➕ 創意插入: 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入組...
🔍 精準選擇:精確定位 特定頁面 / 表 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具...