如何在 Excel 中建立包含多個核取方塊的下拉式清單？

傳統的 Excel 下拉式清單僅支援單一選取。為突破此限制並實現多重選取功能，我們將介紹兩種實用方法，協助您建立內含多個核取方塊的下拉式清單。

使用清單方塊建立含多個核取方塊的下拉列表
A：使用源數據建立清單方塊
B：為您將放置選中項目數量的儲存格命名
C：插入圖形以協助輸出選中項目數量
使用強大工具輕鬆建立含核取方塊的下拉列表
更多下拉列表教學……

使用清單方塊建立含多個核取方塊的下拉列表

如下方螢幕截圖所示，目前工作表中範圍 A2:A11 的所有名稱將作為儲存格 C4 中清單方塊的來源資料。點擊該方塊即可展開可選項目清單，而所選項目的數量則會顯示於儲存格 E4 中。若要實現此效果，請依照下列步驟操作：

A. 使用源數據建立清單方塊

1. 按一下 Developer > Insert > 清單方塊（ActiveX 控制項）。請參閱螢幕截圖：

2. 在目前工作表中插入清單方塊，按一下滑鼠右鍵，然後從快捷選單中選取 Properties。

3. 在 Properties 對話方塊中，請依下列方式進行設定。

• 3.1 在 ListFillRange 方塊中，輸入您要在清單中顯示的來源區域（此處我輸入範圍 ）A2:A11）；
• 3.2 在 ListStyle 方塊中，選取 1 - fmList StyleOption；
• 3.3 在 MultiSelect 方塊中，選取 1 – fmMultiSelectMulti；
• 3.4 關閉 Properties 對話方塊。請參閱螢幕截圖：

B：為您將放置選中項目數量的儲存格命名

若您希望將所有選中項目的數量輸出至指定儲存格（例如 E4），請依照下列步驟操作。

1. 選取儲存格 E4，在 Name Box 中輸入 ListBoxOutput，然後按下 Enter 鍵。

C. 插入圖形以協助輸出選中項目數量

1. 按一下 Insert > Shapes > Rectangle。請參閱螢幕截圖：

2. 在您的工作表中繪製矩形（此處我在儲存格 C4 繪製矩形）。接著按一下滑鼠右鍵，從右鍵選單中選取 Assign Macro。

3. 在 Assign Macro 對話方塊中，點選 New 按鈕。

4. 在開啟的 Microsoft Visual Basic for Applications 視窗中，請將 Module 視窗內的原始程式碼替換為下方的 VBA 程式碼。

VBA 程式碼：建立含多個核取方塊的清單

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

注意：在程式碼中，Rectangle 1 為圖形名稱；ListBox 1 為清單方塊名稱；選取選項與 Pickup Options 為圖形上顯示的文字；而 ListBoxOutput 則為輸出儲存格的名稱。這些名稱皆可依您的需求自由修改！

5. 同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 視窗。

6. 點擊矩形按鈕即可摺疊或展開清單方塊；清單方塊展開後，勾選所需項目的核取方塊進行選取，再點擊一次矩形按鈕，即可將所有選中項目的數量輸出至儲存格 E4. 請參閱下方示範：

7. 接著將活頁簿另存為 Excel 啟用巨集活頁簿，日後即可重複使用此程式碼！

使用強大工具建立含核取方塊的下拉列表

厭倦了繁瑣的 VBA 編碼嗎？Kutools for Excel 讓您輕鬆建立含核取方塊的下拉清單，實現無縫多重選取！無論是問卷調查、資料篩選或動態表單，這款使用者友善的工具都能大幅簡化工作流程，為您節省寶貴時間！

1. 開啟已設定資料驗證下拉列表的工作表，點選 Kutools > 下拉列表 > 啟用高級下拉列表。接著，再次從下拉列表中點選給下拉列表增加複選框。請參閱螢幕截圖：

2. 在 Add CheckBoxes to the Dropdown List 對話方塊中，請依下列方式進行設定。

• 2.1）選取包含下拉列表的儲存格；
• 2.2）在 Separator 方塊中，輸入您要用來分隔多個項目的分隔符號；
• 2.3）根據需要勾選啟用搜尋功能選項。（勾選後，即可在下拉列表中進行搜尋。）
• 2.4）點擊 OK 按鈕。

從現在起，當您點擊含有下拉列表的儲存格時，將會彈出清單方塊，透過勾選核取方塊來請選擇項目，並如下方示範所示輸出至儲存格。

若要深入了解此功能，請參閱此教學。

本文提供兩種方法，協助您輕鬆在 Excel 中建立包含核取方塊的下拉列表，歡迎選擇最適合您的方式！如果您想掌握更多 Excel 秘訣與技巧，我們的網站提供數千篇教學文章。

相關文章：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……