Excel 核取方塊：在 Excel 中添加、選擇、刪除和使用核取方塊

核取方塊是一種互動工具，用於選擇或取消選擇選項。您經常會在網頁表單或填寫調查時看到它們。在 Excel 中，通過選中或取消選中核取方塊，您可以增加多種可能性，使您的工作表更加動態和互動。例如，您可以創建清單、插入動態圖表等。

在本教程中，我將解釋如何插入、選擇和刪除核取方塊，以及一些在 Excel 中使用它們的範例。

兩種類型的核取方塊（核取方塊表單控制項 vs. 核取方塊 ActiveX 控制項）

要插入核取方塊，您需要確保功能區上顯示開發者選項卡。開發者選項卡默認未啟用，因此您需要首先啟用它。

1. 在 Excel 工作簿中，請點擊文件 > 選項。在Excel 選項對話框中，點擊自訂功能區，然後勾選開發者選項，最後點擊確定按鈕關閉此對話框。

2. 現在，開發者選項卡出現在 Excel 功能區中，如下圖所示。您可以根據需要從開發者選項卡訪問各種互動控制項。

Microsoft Excel 提供兩種類型的核取方塊——核取方塊表單控制項和核取方塊 ActiveX 控制項：

核取方塊表單控制項比核取方塊 ActiveX 控制項簡單得多，而核取方塊 ActiveX 控制項在設計上更靈活，可以作為代碼中的對象使用。對於我們的日常工作，表單控制項已經足夠，因此我們在大多數情況下會使用它們。

核取方塊表單控制項 vs. 核取方塊 ActiveX 控制項：

• ActiveX 控制項提供更多格式選項，您可以使用它們進行精緻和靈活的設計；
• 表單控制項內置於 Excel 中，而 ActiveX 控制項是單獨加載的，因此它們可能偶爾會凍結；
• 某些計算機默認不信任 ActiveX 控制項，因此您需要從信任中心手動啟用它們；
• 可以通過 VBA 編輯器以程式方式訪問核取方塊 ActiveX 控制項；
• ActiveX 僅由 Windows 提供，Mac OS 不支持它。

注意：在接下來的教程中，我所談到的所有核取方塊都是核取方塊表單控制項。

在 Excel 中添加一個或多個核取方塊

要插入一個或多個核取方塊，本節可能對您有所幫助。

2.1 插入一個核取方塊

要插入核取方塊，請按以下步驟操作：

1. 點擊開發者選項卡，然後從控制項組中點擊插入，然後在表單控制項下選擇 核取方塊。然後，點擊您想插入核取方塊的儲存格，核取方塊將出現在該儲存格附近，請參見截圖：

2. 然後，將游標放在核取方塊選擇框的邊緣上。當它變為移動指針時，您可以點擊並拖動核取方塊到您需要的儲存格中，請參見截圖：

2.2 插入多個核取方塊

如果您在工作表中需要多個核取方塊，這裡將介紹一些快速的方法。

使用填充控制柄選項插入多個核取方塊

要快速插入多個核取方塊，請按照上述方法添加一個核取方塊，然後使用填充控制柄選項將核取方塊填充到其他儲存格。

1. 點擊選擇核取方塊所在的儲存格。

2. 向下拖動填充控制柄以填充核取方塊，如下圖所示：

使用 VBA代碼插入多個核取方塊

以下 VBA代碼也可以幫助您快速輕鬆地插入核取方塊列表。請按以下步驟操作：

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

2. 然後，點擊插入 > 模組，並將以下代碼粘貼到模組視窗中。

VBA代碼：將多個核取方塊插入到儲存格列表中

Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

3. 按 F5 鍵運行此代碼。將彈出一個提示框，提醒您選擇要插入核取方塊的儲存格範圍。請參見截圖：

4. 然後，點擊確定按鈕，核取方塊將立即整齊地插入到儲存格中。請參見截圖：

使用方便的功能插入多個核取方塊

如果您有 Kutools for Excel，使用其批量插入核取方塊功能，您可以立即將核取方塊插入到空白儲存格或有數據的儲存格中。

1. 選擇要插入核取方塊的儲存格範圍。

2. 然後，點擊 Kutools > 插入 > 批量插入核取方塊，請參見截圖：

3. 然後，選定的儲存格將填充核取方塊，如下圖所示：

將核取方塊插入到空白儲存格中	將核取方塊插入到數據儲存格中

更改核取方塊名稱和標題文字

在 Excel 中使用核取方塊時，您應該區分核取方塊名稱和標題名稱。標題名稱是您在核取方塊旁邊看到的文字，而核取方塊名稱是您選擇核取方塊時在名稱框中看到的名稱，如下圖所示：

核取方塊名稱	標題名稱

要更改標題名稱，請右鍵單擊核取方塊，然後從上下文選單中選擇 編輯文字，並輸入您想要的新名稱，請參見截圖：

要更改核取方塊名稱，您應選擇核取方塊，然後在名稱框中輸入您需要的名稱，如下圖所示：

將一個或多個核取方塊連結到儲存格

使用核取方塊時，您經常需要將核取方塊連結到儲存格。如果選中該框，儲存格顯示 TRUE，如果未選中，儲存格顯示 FALSE 或空白。本節將介紹如何在 Excel 中將一個或多個核取方塊連結到儲存格。

4.1 使用格式控制功能將一個核取方塊連結到儲存格

要將核取方塊與某個儲存格關聯，請按以下步驟操作：

1.右鍵單擊核取方塊，然後從上下文選單中選擇格式控制，請參見截圖：

2. 在格式對象對話框中，選擇控制選項卡，從儲存格連結框中選擇要連結到核取方塊的儲存格，或手動輸入儲存格引用，請參見截圖：

3. 點擊確定關閉對話框，現在，核取方塊已連結到特定儲存格。如果選中它，顯示 TRUE，取消選中則顯示 FALSE，如下演示所示：

4.2 使用 VBA代碼將多個核取方塊連結到儲存格

要使用格式控制功能將多個核取方塊連結到儲存格，您需要反覆執行上述步驟。如果需要連結數百或數千個核取方塊，這將非常耗時。在這裡，我將介紹一個 VBA代碼來一次性將多個核取方塊連結到儲存格。

1. 前往包含核取方塊的工作表。

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

3. 然後，點擊插入 > 模組，並將以下代碼粘貼到模組視窗中。

VBA代碼：一次性將多個核取方塊連結到儲存格

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

注意：在此代碼中， i =2，數字2 是核取方塊的起始行，xCChar = "C"，字母 C 是您要連結核取方塊的列。您可以根據需要更改它們。

4. 按 F5 鍵運行此代碼。活動工作表中的所有核取方塊將立即連結到指定的儲存格。當選中核取方塊時，其相對儲存格將顯示 TRUE，取消選中則顯示 FALSE，請參見截圖：

選擇一個或多個核取方塊

要在工作表中複製或刪除核取方塊，您應首先選擇核取方塊。要選擇一個或多個核取方塊，請按以下步驟操作：

選擇單個核取方塊：（兩種方法）

• 右鍵單擊核取方塊，然後在其內部的任意位置單擊。
• 或者
• 按住 Ctrl 鍵，然後單擊核取方塊。

選擇多個核取方塊：

按住 Ctrl 鍵，然後逐一單擊要選擇的核取方塊。

刪除一個或多個核取方塊

刪除一個核取方塊對我們來說很容易，您只需選擇它，然後按鍵盤上的刪除鍵即可。當涉及到多個核取方塊時，您如何在 Excel 中做到這一點？

6.1 使用 VBA代碼刪除多個核取方塊

要刪除工作表中的所有核取方塊，您可以應用以下 VBA代碼。

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

2. 然後，點擊插入 > 模組，並將以下代碼粘貼到模組視窗中。

VBA代碼：刪除當前工作表中的所有核取方塊

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3. 然後，按 F5 鍵執行代碼。特定工作表中的所有核取方塊將立即被刪除。

6.2 使用簡單功能刪除多個核取方塊

使用 Kutools for Excel 的批量刪除核取方塊功能，您可以僅需幾次點擊即可從選定範圍或整個工作表中刪除核取方塊。

1. 選擇包含您要刪除的核取方塊的儲存格範圍或整個工作表。

2. 然後，點擊 Kutools > 刪除 > 批量刪除核取方塊，請參見截圖：

3. 然後，選定範圍中的所有核取方塊將立即被刪除。

在 Excel 中分組核取方塊

當您想要一起移動或調整多個核取方塊的大小時，分組核取方塊可能有助於一次性控制所有核取方塊。本節將介紹如何在 Excel 工作表中分組多個核取方塊。

7.1 使用分組功能分組核取方塊

在 Excel 中，分組功能可以幫助分組多個核取方塊，請按以下步驟操作：

1. 按住 Ctrl 鍵，然後逐一單擊要分組的核取方塊，請參見截圖：

2. 然後，右鍵單擊並從上下文選單中選擇分組 > 分組，請參見截圖：

3. 一旦所有選定的核取方塊被分組，您可以一次性移動或複製它們。

7.2 使用分組框命令分組核取方塊

此外，您還可以使用分組框將多個核取方塊分組在一起。請按照以下步驟操作：

1. 前往開發者選項卡，然後點擊插入 > 分組框（表單控制項），請參見截圖：

2. 然後，拖動鼠標繪製一個分組框，並根據需要更改分組框標題名稱：

3. 現在，您可以將核取方塊插入到分組框中，點擊開發者 > 插入 > 核取方塊（表單控制項），請參見截圖：

4. 然後拖動鼠標繪製一個核取方塊，並根據需要修改標題名稱，請參見截圖

5. 同樣，將其他核取方塊插入到分組框中，您將獲得如下圖所示的結果：

範例：如何在 Excel 中使用核取方塊

從以上信息中，我們了解了一些核取方塊的基本知識。在本節中，我將介紹如何在 Excel 中使用核取方塊進行一些互動和動態操作。

範例1：使用核取方塊創建待辦事項清單

待辦事項清單對於標記我們日常工作中已完成的任務非常有用。在典型的待辦事項清單中，已完成的任務會有刪除線格式，如下圖所示。在核取方塊的幫助下，您可以快速創建一個互動式待辦事項清單。

要使用核取方塊創建待辦事項清單，請按照以下步驟操作：

1. 請將核取方塊插入到您想使用的儲存格列表中，請參見截圖：（點擊了解如何插入多個核取方塊）

2. 插入核取方塊後，您應該將每個核取方塊連結到單獨的儲存格。

3. 將核取方塊連結到儲存格後，如果選中核取方塊，顯示 TRUE，未選中則顯示 FALSE，請參見截圖：

4. 接下來，應用條件格式功能執行以下步驟。選擇您要創建待辦事項清單的儲存格範圍 A2:C8，然後點擊首頁 > 條件格式 > 新規則以進入新格式規則對話框。

5. 在新格式規則對話框中，點擊使用公式來確定要格式化的儲存格選項，然後在選擇規則類型列表框中輸入此公式 =C2=TRUE，請參見截圖：

注意：C2 是連結到核取方塊的儲存格。

6. 然後，繼續點擊格式按鈕進入格式化儲存格對話框。在字體選項卡下，從效果部分勾選刪除線，並根據需要為已完成的待辦事項項目指定顏色，請參見截圖：

7. 然後，點擊確定 > 確定關閉對話框，現在，當您選中核取方塊時，其相應的項目將被格式化為刪除線，如下演示所示：

範例2：使用核取方塊創建動態圖表

有時，您可能需要在一個圖表中顯示大量數據和信息，這樣圖表會變得混亂。在這種情況下，您可以使用核取方塊在工作表中創建動態圖表。當您選中核取方塊時，對應的數據線將顯示；如果未選中，數據線將隱藏，如下演示所示。

本節將介紹兩個快速技巧來創建這種類型的圖表。

在 Excel 中使用核取方塊創建互動式圖表

通常，在 Excel 中，您可以通過以下步驟使用核取方塊創建動態圖表：

1. 插入一些核取方塊並重命名它們。在本例中，我將插入三個核取方塊並將它們重命名為 Apple、Orange 和 Peach，如截圖所示：

2. 然後，您應該將這些核取方塊連結到儲存格，請點擊選擇第一個核取方塊，然後右鍵單擊，選擇 格式控制，在格式對象對話框中，選擇控制選項卡，從儲存格連結框中選擇要連結的儲存格，請參見截圖：

3. 重複上述步驟將其他兩個核取方塊連結到不同的儲存格。現在，如果選中核取方塊，將顯示 TRUE，否則顯示 FALSE，如下演示所示：

4. 插入並連結核取方塊後，現在，您應該準備數據。將原始數據行和列標題複製到另一個地方，請參見截圖：

5. 然後應用以下公式：

• 在儲存格 B13 中：=IF($B$6,B2,NA())，並拖動填充控制柄填充從 B13 到 G13 的行；
• 在儲存格 B14 中：=IF($B$7,B3,NA())，並拖動填充控制柄填充從 B14 到 G14 的行；
• 在儲存格 B15 中：=IF($B$8,B4,NA())，並拖動填充控制柄填充從 B15 到 G15 的行。
• 這些公式將返回原始數據中的值，如果該產品的核取方塊被選中，否則返回 #N/A。請參見截圖：

6. 然後，請選擇從 A12 到 G15 的新數據範圍，然後點擊插入 > 插入折線或面積圖 > 折線圖以插入折線圖。

7. 現在，當您選中產品核取方塊時，其數據線將顯示，取消選中時將消失，如下演示所示：

8. 創建圖表後，您可以將核取方塊放置到圖表上，使其看起來整齊。點擊選擇繪圖區域，然後拖動縮小它，請參見截圖：

9. 按住 Ctrl 鍵選擇三個核取方塊，將它們拖到圖表上，然後右鍵單擊選擇置於頂層 >置於頂層，請參見截圖：

10. 核取方塊顯示在圖表上，繼續按住 Ctrl 鍵選擇核取方塊和圖表一個接一個，右鍵單擊選擇分組 > 分組，請參見截圖：

11. 現在，核取方塊與折線圖連結在一起。當您移動圖表時，核取方塊也會相應地移動。

使用簡單功能創建帶有核取方塊的互動式圖表

上述方法可能對您來說有些困難，這裡，我將介紹一種簡單的方法來解決此任務。使用 Kutools for Excel 的核取方塊折線圖功能，您可以輕鬆地創建帶有核取方塊的動態圖表。

1. 選擇要創建圖表的數據範圍，然後點擊 Kutools > 圖表 > 類別對比 > 核取方塊折線圖，請參見截圖：

2. 然後，彈出一個核取方塊折線圖對話框，選定的數據自動填充到單獨的文本框中。請參見截圖：

3. 然後，點擊確定按鈕，彈出一個提示框提醒您將創建一個隱藏工作表，其中包含一些中間數據，請點擊是按鈕，請參見截圖：

4. 帶有核取方塊的折線圖將成功創建，請參見截圖：

範例3：使用核取方塊創建下拉列表

從下拉列表中選擇多個項目是許多用戶的常見任務。一些用戶嘗試創建帶有核取方塊的下拉列表以選擇多個選項，如下演示所示。不幸的是，Excel 本身不支持創建帶有核取方塊的下拉列表。但在這裡，我將介紹 Excel 中兩種類型的多個核取方塊選擇。一種是帶有核取方塊的列表框，另一種是帶有核取方塊的下拉列表。

使用列表框創建帶有核取方塊的下拉列表

您可以使用列表框添加核取方塊以進行多選，而不是下拉列表。過程有點複雜，請按照以下步驟逐步操作：

1. 首先，請插入一個列表框，點擊開發者 > 插入 > 列表框（ActiveX 控制項）。請參見截圖：

2. 拖動鼠標繪製一個列表框，然後右鍵單擊它，從上下文選單中選擇屬性，請參見截圖：

3. 在屬性窗格中，請按以下方式設置操作：

• 在 ListFillRange 框中，輸入您想在列表框中顯示的數據範圍；
• 在 ListStyle 框中，從下拉列表中選擇1 - fmList StyleOption；
• 在 MultiSelect 框中，從下拉列表中選擇 1 – fmMultiSelectMulti；
• 最後，點擊關閉按鈕關閉它。

4. 然後，點擊您想輸出多選項的儲存格，並為其指定一個範圍名稱。請在名稱框中輸入範圍名稱“Outputitem”並按 Enter 鍵，請參見截圖：

5. 接下來，點擊插入 >形狀 > 矩形，然後拖動鼠標在列表框上方繪製一個矩形。請參見截圖：

6.右鍵單擊矩形並從上下文選單中選擇指定巨集。請參見截圖：

7. 在指定巨集對話框中，點擊新建按鈕，請參見截圖：

8. 在打開的 Microsoft Visual Basic for Applications 視窗中，將模組視窗中的原始代碼替換為以下 VBA代碼：

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

注意：在上述代碼中，Rectangle1 是形狀名稱，ListBox1 是列表框的名稱，Outputitem 是輸出儲存格的範圍名稱。您可以根據需要更改它們。

9. 然後，關閉代碼視窗。現在，點擊矩形按鈕將隱藏或顯示列表框。當列表框顯示時，選擇列表框中的項目，然後再次點擊矩形按鈕將選定的項目輸出到指定的儲存格中，請參見下面的演示：

使用驚人的功能創建帶有核取方塊的下拉列表

您可以使用強大的 Kutools for Excel 輕鬆地將核取方塊插入到真正的下拉列表中。使用其帶有核取方塊的下拉列表功能，Kutools允許您快速創建支持多選的下拉選單，這是 Excel 本身不支持的。這不僅增強了列表的功能，還顯著提高了效率和用戶體驗。

1. 首先，請在選定的儲存格中插入普通下拉列表，請參見截圖：

2. 點擊 Kutools > 下拉列表 > 啟用高級下拉列表。然後，再次從下拉列表中點擊帶有核取方塊的下拉列表。請參見截圖：

3. 在將核取方塊添加到下拉列表對話框中，請按以下方式配置：

• 2.1）選擇包含下拉列表的儲存格；
• 2.2）在分隔符框中，輸入您將用於分隔多個項目的分隔符；
• 2.4）點擊確定按鈕。
  

從現在開始，當您點擊帶有下拉列表的儲存格時，將彈出一個帶有核取方塊的列表，然後通過選中核取方塊選擇項目以將項目輸出到儲存格中，如下演示所示：

提示：如果您在對話框中勾選啟用搜索選項，您可以在下拉列表中進行搜索，如下圖所示：

範例4：選中核取方塊以更改行顏色

您是否曾嘗試根據選中的核取方塊更改行顏色？這意味著如果您選中核取方塊，相關行的顏色將會更改，如下圖所示，本節將介紹一些在 Excel 中解決此任務的技巧。

使用條件格式選中核取方塊以更改儲存格顏色

要通過選中或取消選中核取方塊來更改行顏色，Excel 中的條件格式功能可以幫助您。請按以下步驟操作：

1. 首先，將核取方塊插入到您需要的儲存格列表中，請參見截圖：

2. 接下來，您應該將這些核取方塊分別連結到每個核取方塊旁邊的儲存格，請參見截圖：

3. 然後，選擇您要更改行顏色的數據範圍，然後點擊首頁 > 條件格式 > 新規則，請參見截圖：

4. 在新格式規則對話框中，執行以下操作：

• 在選擇規則類型框中選擇使用公式來確定要格式化的儲存格選項；
• 在格式化值為真時的儲存格框中輸入此公式 =IF($F2=TRUE,TRUE,FALSE) ；
• 點擊格式按鈕指定您喜歡的行顏色。

注意：在公式中，$F2 是核取方塊的第一個連結儲存格。

5. 選擇顏色後，點擊確定 > 確定關閉對話框，現在，當您選中核取方塊時，對應的行將自動突出顯示，如下演示所示：

使用 VBA代碼選中核取方塊以更改行顏色

以下 VBA代碼也可以幫助您根據選中的核取方塊更改行顏色，請使用以下代碼：

1. 在您想通過核取方塊突出顯示行的工作表中，右鍵單擊工作表標籤並從右鍵選單中選擇檢視代碼。請參見截圖：

2. 將以下代碼複製並粘貼到打開的 Microsoft Visual Basic for Applications 視窗中：

VBA代碼：通過選中核取方塊突出顯示行

Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
    Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
    MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
    GoTo InputC
Else
    If xRng.Columns.Count = 1 Then
        For Each xCell In xRng
            With ActiveSheet.CheckBoxes.Add(xCell.Left, _
               xCell.Top, xCell.Width = 15, xCell.Height = 12)
               .LinkedCell = xCell.Offset(, 1).Address(External:=False)
               .Interior.ColorIndex = xlNone
               .Caption = ""
               .Name = "Check Box " & xCell.Row
            End With
            xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
        Next
    End If
    With xRng
     .Rows.RowHeight = 16
    End With
    xRng.ColumnWidth = 5#
    xRng.Cells(1, 1).Offset(0, 1).Select
    For Each xChk In ActiveSheet.CheckBoxes
      xChk.OnAction = "Sheet2.InsertBgColor"
    Next
End If
End Sub

Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
  xName = Right(xChk.Name, Len(xChk.Name) - 10)
  If (xName = Range(xChk.LinkedCell).Row) Then
   If (Range(xChk.LinkedCell) = "True") Then
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
   Else
    Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
   End If
  End If
Next
End Sub

注意：在上述代碼中，在此腳本 xChk.OnAction = "Sheet2.InsertBgColor" 中，您應將工作表名稱 Sheet2 更改為您自己的（Sheet2 是工作表的真實名稱，您可以從左側代碼視窗窗格中獲取）。請參見截圖：

3. 然後，將游標放在代碼的第一部分，並按 F5 鍵運行代碼。在彈出的 Kutools for Excel 對話框中，請選擇您想插入核取方塊的範圍，請參見截圖：

4. 然後，點擊確定按鈕，核取方塊將插入到選定的儲存格中，如下圖所示：

5. 從現在開始，如果您選中核取方塊，相關行將自動著色，如下圖所示：

範例5：如果選中核取方塊則計算或求和儲存格值

如果您有一個包含核取方塊列表的數據範圍，現在，您希望計算選中核取方塊的數量或根據選中核取方塊求和相應的值，如下圖所示。您如何在 Excel 中解決此任務？

要解決此任務，重要的一步是將核取方塊連結到數據旁邊的相對儲存格。選中的核取方塊將在連結的儲存格中顯示 TRUE，否則顯示 FALSE，然後，您可以使用計數或求和函數根據 TRUE 或 FALSE 值獲得結果。

1. 首先，您應該將核取方塊分別連結到儲存格，如果選中核取方塊，顯示 TRUE，未選中則顯示 FALSE，請參見截圖：

2. 然後，應用以下公式根據選中核取方塊計數或求和值：

通過選中核取方塊計數值：

=COUNTIF(D2:D10,TRUE)

注意：在此公式中，D2:D10 是您為核取方塊設置的連結儲存格範圍。

通過選中核取方塊求和值：

=SUMPRODUCT(($D$2:$D$10=TRUE)*$C$2:$C$10)

注意：在此公式中，D2:D10 是您為核取方塊設置的連結儲存格範圍，C2:C10 是您想要求和的儲存格列表。

範例6：如果選中核取方塊則返回特定值

如果您有一個核取方塊，當選中它時，應在儲存格中顯示特定值，當取消選中時，顯示空白儲存格，如下演示所示：

要完成此工作，請按以下步驟操作：

1. 首先，您應該將此核取方塊連結到一個儲存格。右鍵單擊核取方塊，選擇格式控制，在彈出的格式對象對話框中，選擇控制選項卡，從儲存格連結框中選擇要連結的儲存格，請參見截圖：

2. 然後，點擊確定按鈕關閉對話框。現在，在您想輸出結果的儲存格中輸入此公式：=IF(A5=TRUE,"Extendoffice","")，然後按 Enter 鍵。

注意：在此公式中，A5 是連結到核取方塊的儲存格，“Extendoffice”是特定文本，您可以根據需要更改它們。

3. 現在，當您選中核取方塊時，將顯示特定文本，取消選中時，將顯示空白儲存格，請參見下面的演示：