如何在 Excel 中設定群組內只能選取一個核取方塊？

作者Siluvia修改日期2025-07-24

在某些 Excel 應用情境中，您可能希望使用者從一組核取方塊中僅能選擇一個選項——模擬選項按鈕的行為。例如，如下圖所示，當您在第 2 列勾選其中一個核取方塊時，群組內所有其他核取方塊會立即自動取消勾選，確保任何時刻僅有一個選項被選中。此限制非常適用於問卷表單、單一答案選擇清單或儀表板等場景，有效防止使用者誤選多個答案。要在 Excel 中直接實現此功能，需運用特定技術，例如 VBA 程式碼。本文提供實用的解決方案，協助您輕鬆以核取方塊達成「單一選擇」效果，並附上清晰的逐步操作說明與實際應用時的重要注意事項。

Excel 中一組核取方塊的螢幕截圖，其中一次只能選取一個

僅允許透過 VBA 程式碼選取一個核取方塊

僅允許透過 VBA 程式碼選取一個核取方塊

您可以運用以下 VBA 方法，確保群組內一次僅能選取一個核取方塊，特別適合追求無縫自動化體驗的場景，例如複雜模板或需要精確控制啟用／停用邏輯的情況。

1. 首先，在需要強制單一選擇的位置插入核取方塊。此解決方案必須使用 ActiveX 控制項核取方塊，因為表單控制項核取方塊無法直接支援啟用／停用機制。若要插入 ActiveX 核取方塊，請前往開發人員索引標籤 >插入>ActiveX 控制項>複選框。請依照下圖所示，將所有核取方塊排列於您所需的群組中：

顯示在 Excel 中插入 ActiveX 控制項核取方塊的螢幕截圖

2. 按下 Alt+F11，即可開啟 Microsoft Visual Basic for Applications 視窗！

3. 在編輯器視窗中，按一下插入> 類別模組。此步驟將建立一個新的類別模組，用於處理多個核取方塊的事件——無論核取方塊數量多少，皆能針對每個方塊的點擊動作個別回應！

顯示在 Excel VBA 中插入類別模組選項的螢幕截圖

4. 在屬性窗格（通常位於左側）中，找到新建立的類別模組並點選它，然後在（名稱）方塊中，將預設名稱（例如 Class 1）重新命名為 ClsChk。接著，將下列程式碼複製並貼上至該類別模組的程式碼視窗中。請參閱下圖作為參考：

VBA 中「屬性」窗格的螢幕截圖，用於將類別重新命名為 ClsChk

VBA 程式碼 1：每次僅允許選取一個核取方塊

Option Explicit
Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
Call SelOneCheckBox(Chk)
End Sub

Sub SelOneCheckBox(Target As Object)
Dim xObj As Object
Dim I As String
Dim n As Integer
If Target.Object.Value = True Then

    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Value = False
        xObj.Object.Enabled = False
      End If
    Next
Else
    I = Right(Target.Name, Len(Target.Name) - 8)
    For n = 1 To ActiveSheet.OLEObjects.Count
      If n <> Int(I) Then
        Set xObj = ActiveSheet.OLEObjects.Item(n)
        xObj.Object.Enabled = True
      End If
    Next
End If
End Sub

5. 接下來，按一下插入> 模組，新增標準程式碼模組，並將下列程式碼複製貼上至模組視窗中。此程式碼將初始化所有核取方塊，並連結至上述定義的事件處理常式：

VBA 程式碼 2：每次僅允許選取一個核取方塊

Dim xCollection As New Collection
Public Sub ClsChk_Init()
Dim xSht As Worksheet
Dim xObj As Object
Dim xChk As ClsChk
   Set xSht = ActiveSheet
   Set xCollection = Nothing
    For Each xObj In xSht.OLEObjects
        If xObj.Name Like "CheckBox**" Then
            Set xChk = New ClsChk
            Set xChk.Chk = CallByName(xSht, xObj.Name, VbGet)
            xCollection.Add xChk
        End If
    Next
    Set xChk = Nothing
End Sub

6. 按下 F5 以執行程式碼，啟用核取方塊群組的單一選擇邏輯。測試時，只要勾選任一核取方塊，其餘所有方塊應立即取消勾選並停用；當您取消勾選當前選項後，所有核取方塊將重新啟用，讓您輕鬆切換至其他選項。

執行 VBA 程式碼後，Excel 中一次僅啟用一個核取方塊的螢幕截圖

注意：當您在群組中新增或刪除任何核取方塊後，都必須重新執行初始化 VBA 程式碼。這是因為每次執行程式碼時，系統都會重新整理事件處理常式，確保您對控制項群組所做的所有變更都能被 VBA 正確識別。

此方法的優點在於完全自動化，可避免使用者意外選取多個選項。然而，它僅適用於 ActiveX 控制項，可能受 Excel 版本限制，且需啟用巨集。此外，將包含 ActiveX 控制項或巨集的活頁簿分享給其他使用者時，可能還需額外的安全性權限。

最佳 Office 生產力工具

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