如何在Excel中使用命名範圍的數據填充組合框?
您可以通過將某個範圍添加到組合框的ListFillRange屬性中,來指定一個帶有該範圍數據的組合框(ActiveX 控件)。但是,您知道如何在Excel中使用命名範圍的數據填充組合框嗎?例如,您已經在工作表中命名了一個單元格範圍,現在需要將這個範圍名稱指定給一個組合框。當在一個組合框中選擇範圍名稱時,此命名範圍內的所有單元格值將自動填充到另一個組合框中。本文將介紹一種VBA方法來解決這個問題。
使用VBA代碼用命名範圍的數據填充組合框
請按照以下步驟操作,以在Excel中使用命名範圍的數據填充組合框。
1. 請選擇工作表中的所有標題(在此情況下,我選擇A1:E1),然後在 名稱框中輸入一個名稱,如下截圖所示。
2. 選擇每個列的數據(不包括其標題),然後在名稱框中分別命名該列。見截圖:
在此情況下,我分別將範圍A2:A8、B2:B8、C2:C8、D2:D8和E2:E8命名為日期、商店、項目、銷售和工作日。
3. 然後通過點擊開發工具 > 插入 > 組合框(ActiveX 控件)插入一個組合框。見截圖:
4. 重複步驟3,在工作表中插入另一個組合框。
5. 右鍵單擊工作表標籤,然後從上下文菜單中點擊 查看代碼。見截圖:
6. 在打開的Microsoft Visual Basic for Applications窗口中,請將以下VBA代碼複製並粘貼到代碼窗口中。
VBA代碼:用命名範圍的數據填充組合框
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
注意:在代碼中,ComboBox1是您將列出所有範圍名稱的組合框的名稱,而ComboBox2是將填充指定命名範圍數據的組合框的名稱。“Headers”是您在步驟1中創建的範圍名稱。
7. 點擊開發工具 > 設計模式以關閉設計模式。
8. 單擊工作表中的任何單元格以激活代碼。單擊第一個組合框中的箭頭按鈕,您可以看到所有命名範圍都列在其中。見截圖:
當在第一個組合框中選擇一個命名範圍時,相應的單元格數據將填充到第二個組合框中,如下截圖所示:
輕鬆在Excel中創建帶有複選框的下拉列表:
Kutools for Excel 的帶有複選框的下拉列表功能可以幫助您根據需要輕鬆在指定範圍、當前工作表、當前工作簿或所有打開的工作簿中創建帶有複選框的下拉列表。
立即下載並試用!(30-天免費試用)
相關文章:
- 如何在Excel中將組合框值複製到活動單元格?
- 如何在Excel中顯示組合框輸出的日期格式?
- 如何防止或禁用在Excel中的組合框中輸入文字?
- 如何在工作簿打開時用指定數據填充組合框?
- 如何在Excel下拉列表中選擇值時自動填充其他單元格?
最佳辦公效率工具
🤖 | Kutools AI 助手:基於智能執行方式革新數據分析:智能執行 | 生成代碼 | 創建自訂公式 | 分析數據並生成圖表 | 調用 Kutools 函數… |
熱門功能:查找、標記重複值或識別重複項 | 刪除空行 | 合併列或單元格而不丟失數據 | 四捨五入無需公式 ... | |
高級 LOOKUP: 多條件 VLookup | 多值 VLookup | 多表查找 | 模糊查找 .... | |
高級下拉列表:快速創建下拉列表 | 依賴下拉列表 | 多選下拉列表 .... | |
列管理器: 添加特定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 比較區域和列 ... | |
特色功能:網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿與工作表管理器 | 資源庫(自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按列表發送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體/斜體/刪除線...) ... | |
頂級 15 種工具集: 12 個文本工具(添加文本、刪除特定字符、...) | 50+ 圖表 類型(甘特圖、...) | 40+ 實用 公式(基於生日計算年齡、...) | 19 個插入工具(插入QR碼、根據路徑插入圖片、...) | 12 個轉換工具(金額轉大寫、匯率轉換、...) | 7 個合併與分割工具(高級合併行、分割儲存格、...) | ... 還有更多 |
使用 Kutools for Excel 提升您的 Excel 技巧,體驗前所未有的高效。 Kutools for Excel 提供超過 300 種高級功能來提高生產力並節省時間。 點擊這裡獲取您最需要的功能...
Office Tab 將標籤式界面帶到 Office,讓您的工作更加輕鬆
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中啟用標籤式編輯和閱讀。
- 在同一窗口的新標籤中打開和創建多個文檔,而不是在新窗口中。
- 將您的生產力提高 50%,每天為您減少數百次鼠標點擊!