如何在 Excel 中勾選一個核取方塊時取消另一個核取方塊的勾選？

如下方影片所示，假設有一份需要最終確認的採購清單。在檢查清單時，您發現某些類別中已勾選的項目超出預算，需要重新選擇。由於清單過長，現在您需要一種更有效的方法，在某一類別中勾選新核取方塊時自動取消原先已勾選的核取方塊。本教程逐步演示該方法，幫助您完成操作。

使用 VBA 程式碼在勾選新核取方塊時取消另一個核取方塊的勾選

使用 VBA 程式碼在勾選新核取方塊時取消另一個核取方塊的勾選

如上述示範所示，名為 Checkbox1、 Checkbox2、Checkbox3、...、Checkbox10 的十個核取方塊被分為三組，並位於表格中的不同類別中。

在此範例中，Checkbox1、2、3 屬於一組，Checkbox4、5、6、7 屬於另一組，Checkbox8、9、10 則在同一組。在每一組中，一次只能勾選一個核取方塊。當勾選某個核取方塊時，另一個核取方塊會自動取消勾選。

現在讓我們看看如何應用以下 VBA 程式碼來解決這個問題。

1. 右鍵點擊工作表標籤，然後從快捷選單中點擊 檢視程式碼。

2. 在開啟的 Microsoft Visual Basic for Applications 視窗中，將以下 VBA 程式碼貼到工作表（程式碼）視窗中。

VBA 程式碼：在勾選新核取方塊時取消另一個核取方塊的勾選

Dim xBol As Boolean
'Updated by Extendoffice 20220816
Private Sub CheckBox1_Change()
SetCheckBoxes "CheckBox1"
End Sub

Private Sub CheckBox2_Change()
SetCheckBoxes "CheckBox2"
End Sub

Private Sub CheckBox3_Change()
SetCheckBoxes "CheckBox3"
End Sub

Private Sub CheckBox4_Change()
SetCheckBoxes "CheckBox4"
End Sub

Private Sub CheckBox5_Change()
SetCheckBoxes "CheckBox5"
End Sub

Private Sub CheckBox6_Click()
SetCheckBoxes "CheckBox6"
End Sub

Private Sub CheckBox7_Click()
SetCheckBoxes "CheckBox7"
End Sub
Private Sub CheckBox8_Click()
SetCheckBoxes "CheckBox8"
End Sub
Private Sub CheckBox9_Click()
SetCheckBoxes "CheckBox9"
End Sub
Private Sub CheckBox10_Click()
SetCheckBoxes "CheckBox10"
End Sub

Private Function SetCheckBoxes(mCheckBoxName As String)
Dim x As Long
Dim xAllArr
Dim xArrItem
Dim xI, xJ
If Not xBol Then Exit Function
'In the following line, the checkboxes enclosed in double quotes belong to the same group, and each checkbox is separated by a comma. To add more checkbox groups, please enclose the checkboxes in new double quotes.
xAllArr = Array("CheckBox1,CheckBox2,CheckBox3", "CheckBox4,CheckBox5,CheckBox6,CheckBox7", "CheckBox8,CheckBox9,CheckBox10")
For xI = LBound(xAllArr) To UBound(xAllArr)
If InStr(xAllArr(xI), mCheckBoxName) > 0 Then
xBol = False
xArrItem = Split(xAllArr(xI), ",")
For xJ = LBound(xArrItem) To UBound(xArrItem)
If xArrItem(xJ) <> mCheckBoxName Then
Me.OLEObjects(xArrItem(xJ)).Object.Value = False
End If
Next
End If
Next
xBol = True
End Function

Private Sub Worksheet_Activate()
xBol = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xBol = True
End Sub

注意事項：

3. 按下 Alt + Q 鍵關閉 Microsoft Visual Basic for Applications 視窗。

接著，當您勾選某一組中的新核取方塊時，原先已勾選的核取方塊將自動取消勾選，如下方 GIF 所示。

示範：在 Excel 中勾選核取方塊時取消另一個核取方塊的勾選