在 Excel 中選中復選框時如何取消選中另一個複選框？

如下圖所示，假設有一個採購清單需要您最終確定。 在查看列表時，您發現某些類別的選中項目超出預算，需要重新選擇。 由於列表太長，您現在需要一種更有效的方法來在類別中選中新復選框時自動取消選中原始選中的複選框。 本教程逐步演示了該方法，以幫助您完成它。

當使用 VBA 代碼選中一個新復選框時，取消選中另一個複選框

---

當使用 VBA 代碼選中一個新復選框時，取消選中另一個複選框

如上例所示，十個複選框命名為 複選框1, 複選框2, 複選框3，...， 複選框10 分為 3 組，位於表中的不同類別中。

本例中，Checkbox1、2、3為一組，Checkbox4、5、6、7為一組，Checkbox8、9,10、XNUMX為一組。 在每個組中，一次只允許選中一個複選框。 選中一個複選框時，會自動取消選中另一個複選框。

現在讓我們看看如何應用下面的 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。 按 其他 + Q 關閉鍵 Microsoft Visual Basic for Applications 窗口。

然後，當您選中組中的新復選框時，原始選中的複選框將自動取消選中，如下面的 gif 所示。

---

演示：在 Excel 中選中復選框時取消選中另一個複選框