Excel 核取方塊：在 Excel 中新增、選取、刪除及使用核取方塊

核取方塊是一種互動式工具，可用來選取或取消選取特定選項，常見於網頁表單或問卷填寫中。在 Excel 中，只要勾選或取消勾選核取方塊，就能為您的工作表開啟更多可能性，讓表格更加動態且具互動性——例如建立待辦清單、插入動態圖表等。

本教學將詳細說明如何在 Excel 中插入、選取與刪除核取方塊，並提供實用範例供您參考。

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

若要插入核取方塊，請先確認「開發人員」選項卡已在功能區中顯示。「開發人員」選項卡預設為隱藏狀態，您需手動啟用後方可使用。

1. 在 Excel 工作表中，請按一下檔案 > 選項。在 Excel 選項對話方塊中，按一下自訂功能區，勾選開發人員選項，再按一下確定按鈕即可關閉此對話方塊。

2. 現在，開發人員選項卡已出現在 Excel 功能區中，如下方截圖所示。您可以根據需求，從開發人員選項卡輕鬆存取各種互動式控制項！

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

複選框表單控制項比複選框 ActiveX 控制項簡單許多；而複選框 ActiveX 控制項在設計上更具彈性，且可作為物件用於程式碼中。就日常作業而言，表單控制項已綽綽有餘，因此我們在多數情況下都會優先採用它們。

複選框表單控制項與複選框 ActiveX 控制項比較：

• ActiveX 控制項提供更多格式設定選項，可用於打造精緻且彈性的設計；
• 表單控制項內建於 Excel 中，而 ActiveX 控制項需額外載入，因此偶爾可能凍結；
• 部分電腦預設不信任 ActiveX 控制項，您需手動從信任中心啟用；
• 複選框 ActiveX 控制項可透過 VBA 編輯器以程式方式存取；
• 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 鍵，再逐一點選您要選取的核取方塊。

刪除一個或多個核取方塊

刪除單一核取方塊對我們來說輕而易舉，只需選取它，再按下鍵盤上的 Delete 鍵即可。但若要一次處理多個核取方塊，您該如何在 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 輸入至 當此公式為 true 時格式化值文字方塊中，請參見截圖：

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

6. 接著，點擊格式按鈕，進入設定儲存格格式對話方塊。在字型索引標籤中，勾選效果區塊內的刪除線選項，並依需求為已完成的待辦清單項目指定顏色，如下圖所示：

7. 接著，點擊確定> 確定 以關閉對話方塊。現在，當您勾選複選框時，其對應項目將以下方示範的方式套用刪除線格式：

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

有時，您可能需要在單一圖表中呈現大量資料與資訊，卻因此導致圖表顯得混亂不清。此時，您可以透過工作表中的核取方塊建立動態圖表：勾選某個核取方塊時，對應的資料線隨即顯示；取消勾選時，該資料線則自動隱藏，如下方示範所示。

本節將介紹兩種在 Excel 中快速建立此類圖表的實用技巧。

在 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

注意：在上述程式碼中，Rectangle 1 為圖形名稱，ListBox 1 為清單方塊名稱，而 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 = "Sheet 2.InsertBgColor", 需將工作表名稱 Sheet 2 替換為您實際使用的工作表名稱（Sheet 2 僅為範例，可從左側程式碼視窗窗格取得正確名稱）。請參見截圖：

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,"[[PH_2]]","")，再按下 Enter 鍵。

注意：在此公式中，A5 為連結複選框的儲存格，「Extendoffice」為指定文字，可依需求自行變更。

3. 現在，當您勾選複選框時會顯示特定文字，取消勾選則顯示空白儲存格，請見下方示範：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……