如何在 Excel 中利用核取方塊醒目提示儲存格或整列？

作者Siluvia修改日期2024-10-25

如下方螢幕截圖所示，您可透過核取方塊來醒目提示特定列或儲存格——只要勾選核取方塊，對應的列或儲存格將自動套用醒目提示。但該如何在 Excel 中實現這項功能呢？本文將為您介紹兩種實用方法。

顯示 Excel 中由核取方塊觸發的醒目提示列與儲存格的螢幕截圖

使用使用條件格式以核取方塊醒目提示儲存格或列
 使用 VBA 程式碼以核取方塊醒目提示儲存格或列

使用使用條件格式以核取方塊醒目提示儲存格或列

您可以透過核取方塊，在 Excel 中建立條件格式規則，以醒目提示儲存格或整列。請依照下列步驟操作：

步驟一：將所有複選框連結至指定儲存格

1. 您需手動逐一在儲存格中插入核取方塊，方法是點選開發人員 > 插入 > 複選框（表單控制項）。

2. 現在複選框已插入至 I 欄的儲存格中。選取 I1 中的第一個複選框，在編輯欄中輸入公式 =$J1，然後按下 Enter 鍵。

提示：若您不希望在核取方塊旁的儲存格顯示關聯值，可將核取方塊連結至其他工作表的儲存格，例如 =Sheet 3!$E1.

Excel 中將核取方塊連結至儲存格以進行條件式格式設定的螢幕截圖

3. 重複步驟 1，直到所有複選框都已連結至相鄰儲存格或其他工作表中的儲存格。
注意：所有已連結的儲存格必須連續且位於同一欄中。

顯示 Excel 中連續連結至核取方塊的儲存格的螢幕截圖

步驟二：建立一個使用條件格式規則

接下來，請依照下列步驟逐步建立一個條件格式規則。

1. 選取您要以核取方塊醒目提示的列，然後按一下使用條件格式 > 新增規則（位於）開始索引標籤下方）。請參閱螢幕截圖：

Excel「開始」索引標籤下的條件式格式設定選項螢幕截圖

2. 在新增格式設定規則對話方塊中，您需執行下列操作：

2.1 選取使用公式來決定要格式化哪些儲存格選項，位於選取規則類型方塊中；

2.2 在 =IF($J1=TRUE,TRUE,FALSE) 輸入公式至符合此公式的值方塊中；
或輸入 =IF(Sheet 3!$E1=TRUE,TRUE,FALSE)（若複選框連結至其他工作表）。

2.3 按一下格式按鈕，以指定列的醒目提示色彩；

2.4 按一下確定按鈕。請參閱螢幕截圖：

Excel 中用於透過核取方塊進行醒目提示的「新增格式設定規則」對話框螢幕截圖

注意：在公式中，$J1 或 $E1為複選框的第一個連結儲存格，請務必將儲存格參照改為列絕對（J1 > $J1 或 E1 > $E1）。

條件格式規則現已設定完成。勾選複選框後，對應的列將自動醒目提示，如下方螢幕截圖所示。

顯示根據 Excel 中核取方塊選擇結果而醒目提示的列之螢幕截圖

使用 VBA 程式碼以核取方塊醒目提示儲存格或列

下列 VBA 程式碼可協助您在 Excel 中透過核取方塊醒目提示儲存格或整列。請依照以下步驟操作：

1. 在您要以核取方塊醒目提示儲存格或列的工作表中，於工作表索引標籤上按一下滑鼠右鍵，並從右鍵功能表中選取檢視程式碼，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 接著，將下方的 VBA 程式碼複製並貼上至程式碼視窗中。

VBA 程式碼：在 Excel 中以核取方塊醒目提示整列

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 = ActiveSheet.Name + ".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

Excel 中用於新增核取方塊以進行列醒目提示的 VBA 程式碼編輯器螢幕截圖

3. 按下 F5 鍵以執行程式碼。（注意：請先將游標置於程式碼的第一部分，再按 F5 鍵。）在跳出的 Kutools for Excel 對話方塊中，請選取您要插入複選框的範圍，然後點擊確定按鈕。此處我選取 I1:I6. 請參閱螢幕截圖：

使用 Kutools 在 Excel 中選取要插入核取方塊之範圍的螢幕截圖

4. 此時，複選框已插入至所選儲存格中。勾選任一核取方塊，對應的列便會自動醒目提示，如下方螢幕截圖所示。

顯示在 Excel 中勾選核取方塊時醒目提示的列之螢幕截圖

最佳 Office 生產力工具

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