如何在Word文檔中創建相關的下拉列表?
如左圖所示,您需要根據第一個下拉列表中的選項限制第二個下拉列表中的選項,您該怎麼做? 本文將向您展示一種在 Word 文檔中創建依賴下拉列表的方法。
使用VBA代碼在Word中創建相關的下拉列表
下面的 VBA 代碼可以幫助您在 Word 文檔中創建依賴下拉列表。 請按照說明一步一步來。
1.首先,您需要在Word文檔中插入兩個下拉列表。 請點擊 開發者 > 舊版表格 > 下拉式表格欄位。 看截圖:
2.右鍵單擊第一個下拉列表(此下拉列表應為父列表),然後單擊 屬性。 見截圖:
3.在開幕 下拉表單字段選項 對話框,您需要:
3.1將類別輸入 下拉項目 框,然後單擊 加入 按鈕,重複該操作,直到將所有類別添加到下拉列錶框中的項目中。
3.2輸入 吃貨 到 書籤 框。
3.3點擊 OK 按鈕。 看截圖:
4.右鍵單擊第二個下拉列表,單擊 氟化鈉性能 打開它的 下拉表單字段選項 對話框,然後在對話框中輸入 dd類別 到 書籤 框並單擊 OK 按鈕。 看截圖:
5。 按 其他 + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
6。 在裡面 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊 然後將下面的VBA代碼複製到“模塊”窗口中。
VBA代碼:在Word中創建從屬下拉列表
Sub Populateddfood()
'Update by Extendoffice 2018/10/25
Dim xDirection As FormField
Dim xState As FormField
On Error Resume Next
Set xDirection = ActiveDocument.FormFields("ddfood")
Set xState = ActiveDocument.FormFields("ddCategory")
If ((xDirection Is Nothing) Or (xState Is Nothing)) Then Exit Sub
With xState.DropDown.ListEntries
.Clear
Select Case xDirection.Result
Case "Fruit"
.Add "Apple"
.Add "Banana"
.Add "Peach"
.Add "Lychee"
.Add "Watermelon"
Case "Vegetable"
.Add "Cabbage"
.Add "Onion"
Case "Meat"
.Add "Pork"
.Add "Beef"
.Add "Mutton"
End Select
End With
End Sub
筆記:
1.在代碼中,請根據需要更改每種情況下的項目。
2. 吃貨 和 dd類別 應該與您在上面兩個中輸入的“書籤”選項匹配 下拉表單字段選項 對話框。
7.保存代碼,然後返回文檔。
8.右鍵單擊第一個下拉列表,然後單擊 氟化鈉性能 打開 下拉表單字段選項 對話框。 在對話框中,請從上方選擇上面的宏名稱(此處為Popolateddfood)。 Exit 下拉列表,然後單擊 OK 按鈕。
9.現在點擊 開發者 > 限制編輯 如下圖所示。
10。 在裡面 限制編輯 窗格,您需要:
10.1)檢查 只允許這種類型的編輯 在文件中 框;
10.2)選擇 填寫表格 從下拉列表中選擇;
10.3)點擊 是的,開始執行保護 按鈕;
10.4)在 開始執行保護 對話框中,輸入密碼,然後單擊 OK 按鈕。 看截圖:
現在創建了一個依賴下拉列表。 在第一個下拉列表中選擇水果時,在第二個下拉列表中只能選擇水果類別。
最佳辦公生產力工具
Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!
🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容 / 重寫文字 / 總結文件 / 查詢資料 基於文檔,全部在Word中
📘 文件掌握: 分頁 / 合併文件 / 以各種格式匯出選擇(PDF/TXT/DOC/HTML...) / 批次轉換為PDF / 將頁面匯出為圖像 / 一次列印多個文件...
✏ 內容編輯: 批量查找和替換 跨多個文件 / 調整所有圖片的大小 / 轉置表行和列 / 將表格轉換為文字...
🧹 輕鬆清潔: 移開 多餘的空間 / 分節符 / 所有標題 / 文本框 / 超鏈接 / 如需更多拆卸工具,請前往我們的 刪除組...
➕ 創意插入: 插入 千位分隔符 / 複選框 / 單選按鈕 / QR Code / 條碼 / 對角線表 / 公式標題 / 圖片說明 / 表格標題 / 多張圖片 / 發現更多 插入組...
🔍 精準選擇:精確定位 特定頁面 / 表 / 形狀 / 標題段落 / 增強導航功能 更多 選擇功能...
⭐ 星級增強: 快速導航至任何位置 / 自動插入重複文字 / 在文檔視窗之間無縫切換 / 11 轉換工具...