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

如下圖所示，您需要使用核取方塊來醒目提示一整列或單個儲存格。當核取方塊被勾選時，指定的列或儲存格會自動被醒目提示。但如何在 Excel 中實現這一功能呢？本文將向您展示兩種方法來實現它。

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

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

您可以建立一個條件格式規則，以使用核取方塊來醒目提示儲存格或列。請按照以下步驟操作：

第一步：將所有核取方塊連結到指定的儲存格

1. 您需要通過點擊「開發工具」 > 「插入」 > 「核取方塊 （表單控制項）」手動逐個插入核取方塊到儲存格中。

2. 現在核取方塊已經插入到 I 列的儲存格中。請選擇 I1 中的第一個核取方塊，在公式欄中輸入公式 =$J1，然後按 Enter 鍵。

提示：如果您不想讓核取方塊與相鄰的儲存格產生關聯值，可以將核取方塊連結到另一工作表的儲存格，例如 =Sheet3!$E1。

3. 重複步驟 1，直到所有的核取方塊都連結到相鄰的儲存格或另一工作表中的儲存格。
注意：所有連結的儲存格應該是連續的並且位於同一列中。

第二步：建立條件格式規則

現在您需要逐步建立條件格式規則，具體步驟如下：

1. 選擇需要用核取方塊來醒目提示的列，然後點擊「常用」標籤下的「條件格式」>「新建規則」。參見截圖：

2. 在「新建格式規則」對話框中，您需要：

現在條件格式規則已經建立。當勾選核取方塊時，對應的列將會自動被醒目提示，如下圖所示。

使用 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

3. 按下 F5 鍵運行程式碼。（注意：您應該將游標放在程式碼的第一部分才能應用 F5 鍵）在彈出的 Kutools for Excel 對話框中，請選擇您想要插入核取方塊的區域，然後點擊「確定」按鈕。這裡我選擇範圍 I1:I6。參見截圖：

4. 然後核取方塊將被插入到所選的儲存格中。勾選任一核取方塊，對應的列將會自動被醒目提示，如下圖所示。

相關文章：

• 如何在 Excel 中勾選核取方塊時改變指定儲存格的值或顏色？
• 如何在 Excel 中勾選核取方塊時在儲存格中插入日期戳記？
• 如何根據 Excel 中的儲存格值自動勾選核取方塊？
• 如何根據 Excel 中的核取方塊篩選資料？
• 如何在 Excel 中隱藏列時也隱藏核取方塊？
• 如何在 Excel 中創建帶有多個核取方塊的下拉列表？