如何在 Excel 中一次取消勾選或取消選擇所有核取方塊？

您要如何像以下螢幕截圖所示，在工作表中一次取消勾選或取消選擇所有已勾選的核取方塊呢？在本文中，我將介紹一些快速的程式碼來解決這個問題。

使用 VBA 程式碼取消勾選或取消選擇所有已勾選的核取方塊

使用 VBA 程式碼取消勾選或取消選擇所有已勾選的核取方塊

取消勾選或取消選擇所有已勾選的核取方塊（表單控制項）：

如果您的核取方塊是表單控制項，可以使用以下 VBA 程式碼一次性取消勾選它們：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼貼到 模組視窗中。

VBA 程式碼：取消勾選或取消選擇所有已勾選的核取方塊（表單控制項）：

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. 然後按 F5 鍵執行此程式碼，活動工作表中的所有已勾選核取方塊將立即被取消勾選。

取消勾選或取消選擇所有已勾選的核取方塊（ActiveX 控制項）：

如果核取方塊是 ActiveX 控制項，請應用以下 VBA 程式碼：

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下程式碼貼到 模組 視窗中。

VBA 程式碼：取消勾選或取消選擇所有已勾選的核取方塊（ActiveX 控制項）：

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. 然後按 F5 鍵執行此程式碼，活動工作表中的所有已勾選核取方塊將立即被取消選擇。

在選定區域中一次插入多個核取方塊

Kutools for Excel 的 批量插入核取方塊 功能可以幫助您快速一次插入多個核取方塊。 點擊下載 Kutools for Excel！