如何在Word表中插入顏色編碼的下拉列表?

      網(wǎng)友投稿 341 2025-03-31

      如何在Word表中插入顏色編碼的下拉列表?

      假設(shè)我的Word文檔中有一個(gè)表,現(xiàn)在,我想在表的列中插入顏色編碼的下拉列表。 這意味著當(dāng)我從下拉列表中選擇一個(gè)選項(xiàng)時(shí),單元格顏色變?yōu)榧t色,而當(dāng)我在下拉列表中選擇另一選項(xiàng)時(shí),單元格顏色變?yōu)榫G色,如以下屏幕截圖所示。 您如何在Word文檔中解決這項(xiàng)工作?

      使用VBA代碼在Word文檔中插入顏色編碼的下拉列表

      使用VBA代碼在Word文檔中插入顏色編碼的下拉列表

      以下步驟可以幫助您根據(jù)需要完成此任務(wù),首先,插入下拉列表,然后為下拉列表應(yīng)用顏色。 請(qǐng)這樣做:

      1。 在表格中選擇要插入下拉列表的單元格,然后單擊 開發(fā)商 > 下拉列表內(nèi)容控制 圖標(biāo),請(qǐng)參見屏幕截圖:

      如何在Word表中插入顏色編碼的下拉列表?

      2。 下拉列表插入到特定的單元格,然后單擊開發(fā)商 > 租房,請(qǐng)參見屏幕截圖:

      3。 在 內(nèi)容控制屬性 對(duì)話框,請(qǐng)執(zhí)行以下操作:

      (1.)將標(biāo)題名稱輸入到 標(biāo)題 文本框;

      (2.)點(diǎn)擊 地址 按鈕轉(zhuǎn)到 添加選擇 對(duì)話;

      (3.)在 添加選擇 對(duì)話框中,將下拉列表項(xiàng)輸入到 顯示名稱 文本框。

      4. 重復(fù)步驟3,根據(jù)需要插入其他下拉列表項(xiàng)。

      5。 創(chuàng)建第一個(gè)下拉列表后,您可以根據(jù)需要將其復(fù)制并粘貼到其他單元格中。 看截圖:

      6。 然后,您應(yīng)該應(yīng)用VBA代碼,請(qǐng)按住 ALT + F11 鍵打開 Microsoft Visual Basic應(yīng)用程序 窗口。

      7。 在 Microsoft Visual Basic應(yīng)用程序 窗口,雙擊 這個(gè)文件 來自 工程項(xiàng)目窗格以打開模式,然后將以下代碼復(fù)制并粘貼到空白模塊中。

      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 是創(chuàng)建下拉列表時(shí)的標(biāo)題名稱,并且 完成:, 處理中, 不開始 是下拉列表中的項(xiàng)目,您可以將其更改為自己的項(xiàng)目。 您還可以根據(jù)需要更改顏色。

      8。 然后保存并關(guān)閉代碼窗口,現(xiàn)在,當(dāng)您從下拉列表中選擇一項(xiàng)時(shí),其相對(duì)顏色將被單元格填充,請(qǐng)參見屏幕截圖:

      最佳辦公生產(chǎn)力工具

      Kutools for Word - 通過 Over 提升您的文字體驗(yàn)100 顯著特點(diǎn)!

      深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.

      ?? 文檔掌握: 分頁(yè)  /  合并文件  /  以各種格式導(dǎo)出選擇(PDF/TXT/DOC/XLSX)  /  批量轉(zhuǎn)換為PDF  /  將頁(yè)面導(dǎo)出為圖像  /  一次打印多個(gè)文件 ...

      ? 內(nèi)容編輯: 批量查找和替換 跨多個(gè)文件   /  調(diào)整所有圖片的大小   /  轉(zhuǎn)置表行和列  /  將表格轉(zhuǎn)換為文字 ...

      ?? 輕松清潔: 掃開 多余的空間  /  分節(jié)符  /   所有標(biāo)題  /  文本框  /  超鏈接  /  如需更多刪除工具,請(qǐng)前往我們的刪除

      ? 創(chuàng)意插入: 插頁(yè) 千位分隔符  /  復(fù)選框  /  單選按鈕  /  二維碼/  條碼  /  對(duì)角線表  /  公式標(biāo)題  /  圖片說明  /  表標(biāo)題  /  多張圖片  /  在我們的插入組中發(fā)現(xiàn)更多信息

      ?? 精準(zhǔn)選擇: 精確定位特定頁(yè)面  /  表  /  形狀  /  標(biāo)題段落  /  使用我們的選擇組輕松導(dǎo)航

      ? 星級(jí)增強(qiáng): 快速導(dǎo)航至任何位置  /  自動(dòng)插入重復(fù)文本  /  在文檔窗口之間無縫切換  /  11 轉(zhuǎn)換工具 ...

      使用 Kutools 轉(zhuǎn)換您的 Word 任務(wù)。 ?? 立即下載并試用 30 天 ??。

      了解更多       免費(fèi)下載      購(gòu)買

      版權(quán)聲明:本文內(nèi)容由網(wǎng)絡(luò)用戶投稿,版權(quán)歸原作者所有,本站不擁有其著作權(quán),亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容,請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理,核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

      版權(quán)聲明:本文內(nèi)容由網(wǎng)絡(luò)用戶投稿,版權(quán)歸原作者所有,本站不擁有其著作權(quán),亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容,請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理,核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

      上一篇:企業(yè)數(shù)字化轉(zhuǎn)型的六個(gè)“法門”
      下一篇:excel雙縱坐標(biāo)怎么做?(excel中雙縱坐標(biāo)怎么畫)
      相關(guān)文章
      亚洲爆乳AAA无码专区| 亚洲AV日韩AV永久无码久久 | 亚洲日韩国产精品第一页一区| 欧洲亚洲综合一区二区三区 | ASS亚洲熟妇毛茸茸PICS| 亚洲精品视频在线观看视频| 亚洲av产在线精品亚洲第一站| 亚洲美女视频一区| 亚洲精品高清国产麻豆专区| 久久亚洲AV成人无码| 中文字幕亚洲色图| 亚洲国产精品xo在线观看| 亚洲精品不卡视频| 亚洲午夜精品一区二区公牛电影院| 亚洲欧洲日本天天堂在线观看| 亚洲婷婷在线视频| 亚洲人成在久久综合网站| 亚洲伊人精品综合在合线| 精品亚洲A∨无码一区二区三区| 亚洲国产精品久久久久网站| 亚洲亚洲人成综合网络| 亚洲熟妇无码另类久久久| 九九精品国产亚洲AV日韩| 亚洲av无码专区青青草原| 色婷婷六月亚洲婷婷丁香| 日本久久久久亚洲中字幕| 无码久久精品国产亚洲Av影片| 亚洲成AⅤ人影院在线观看| 国产成人亚洲精品91专区高清| 亚洲人成网站在线在线观看| 久久久久亚洲AV无码专区首JN| 亚洲第一精品在线视频| 亚洲国产成人久久精品影视| 亚洲AV人无码激艳猛片| 亚洲一二成人精品区| 亚洲香蕉免费有线视频| 亚洲色偷偷av男人的天堂| 亚洲国产福利精品一区二区| 精品亚洲AV无码一区二区三区| 在线综合亚洲中文精品| 久久亚洲AV成人无码国产电影|