如何在Excel中讓一個群組只允許選擇一個核取方塊？

Author: Siluvia Last Modified: 2025-08-23

在某些Excel應用中，您可能需要讓使用者只能從一組核取方塊中選擇一個選項——模仿單選按鈕的行為。例如，如下圖所示，當您勾選第2列中的某個核取方塊時，該群組中的所有其他核取方塊都會立即被禁用，確保任何時候都只能選擇一個選項。這種限制在問卷表單、單選答案列表或儀表板中非常有用，可以防止多個答案同時被選擇。要在Excel中直接實現此功能，需要特定技術，例如使用VBA代碼。本文提供了一些實用解決方案，以實現Excel中核取方塊的“單選”效果，包含逐步指導和實際應用的重要注意事項。

A screenshot of a group of checkboxes in Excel where only one can be selected at a time

僅使用VBA代碼讓一個核取方塊可被選擇

僅使用VBA代碼讓一個核取方塊可被選擇

您可以使用以下VBA方法來確保一次只能選擇一個群組中的核取方塊。當您需要無縫且自動化的體驗時，這個解決方案特別適合——非常適用於複雜模板或當控制啟用/禁用邏輯很重要時。

1. 首先，在需要強制單選的地方插入核取方塊。對於這個解決方案，您必須使用ActiveX控件核取方塊，因為表單控件核取方塊不支持直接啟用/禁用機制。要插入ActiveX核取方塊，請前往開發工具選項卡 > 插入 > ActiveX控件 > 核取方塊。將所有核取方塊排列在您期望的群組內，如下圖所示：

A screenshot showing the insertion of ActiveX Control checkboxes in Excel

2. 同時按下Alt + F11打開Microsoft Visual Basic for Applications窗口。

3. 在編輯器窗口中，點擊插入 > 類模塊。這一步創建了一個新的類模塊，這是處理多個核取方塊事件所必需的。使用類模塊可以響應每個核取方塊的單獨點擊，無論存在多少個核取方塊。

A screenshot showing the option to insert a Class Module in Excel VBA

4. 在屬性窗格（通常位於左側）中找到新的類模塊，點擊它，然後在（名稱）框中將其從默認值（如Class1）重命名為ClsChk。然後，將以下代碼複製並粘貼到該類模塊的代碼窗口中。參考截圖如下：

A screenshot of the Properties pane in VBA for renaming the class to 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執行代碼，這將激活核取方塊群組的單選邏輯。測試行為，勾選任意一個核取方塊；所有其他核取方塊應立即取消勾選並被禁用。取消當前選擇將重新啟用所有核取方塊，以便您可以進行不同的選擇。

A screenshot of checkboxes in Excel where only one is enabled at a time after VBA code execution

注意：如果您從群組中添加或刪除任何核取方塊，則需要重新運行初始化VBA。這是因為每次執行代碼時，事件處理程序都會刷新，確保對控件群組的任何更改都能被VBA正確識別。

此方法的優勢在於它的全自動化——使用者無法意外選擇多個選項。然而，它僅適用於ActiveX控件，這些控件可能會受到Excel版本的限制，並且需要啟用宏。此外，將帶有ActiveX控件或宏的工作簿分發給其他用戶可能需要額外的安全權限。

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多