如何在Excel中使用復選框突出顯示單元格或行？

如下面的屏幕截圖所示，您需要使用復選框突出顯示行或單元格。 選中復選框后，指定的行或單元格將自動突出顯示。 但是如何在Excel中實現呢？ 本文將向您展示兩種實現方法。

使用條件格式復選框突出顯示單元格或行

用帶有VBA代碼的復選框突出顯示單元格或行 使用條件格式復選框突出顯示單元格或行

您可以創建條件格式規則，以在Excel中使用復選框突出顯示單元格或行。 請執行以下操作。

將所有復選框鏈接到指定的單元格

1.您需要通過單擊將復選框手動逐一插入到單元格中 開發商 > 插頁 > 復選框 （表單控制）.

2.現在，復選框已插入到I列中的單元格。請選中I1中的第一個復選框，輸入公式 = $ J1 進入欄，然后按 輸入 鍵。

Tips:：如果您不想讓相鄰單元格中的值與復選框相關聯，則可以將該復選框鏈接到另一個工作表的單元格，例如 = Sheet3！$ E1.

2.重復步驟1，直到所有復選框都鏈接到相鄰的單元格或另一個工作表中的單元格。

備注：所有鏈接的單元格應該是連續的，并且位于同一列中。

創建條件格式設置規則

現在，您需要按以下步驟創建條件格式設置規則。

1.選中需要用復選框突出顯示的行，然后單擊 條件格式 > 新規則 在下面 首頁 標簽。 看截圖：

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

2.1選擇 使用公式來確定要格式化的單元格 在選項 選擇規則類型 框;

2.2輸入公式 = IF（$ J1 = TRUE，TRUE，FALSE） 到 格式化此公式為真的值

框;

Or = IF（Sheet3！$ E1 = TRUE，TRUE，FALSE） 如果復選框鏈接到另一個工作表。

2.3點擊 格式 按鈕為行指定突出顯示的顏色；

2.4點擊 OK 按鈕。 看截圖：

備注： 在公式， $ J1 or $ E1 是復選框的第一個鏈接單元格，并確保單元格引用已更改為絕對列（J1> $ J1 or E1 > $E1).

現在，將創建條件格式設置規則。 選中復選框時，相應的行將自動突出顯示，如下圖所示。

用帶有VBA代碼的復選框突出顯示單元格或行

以下VBA代碼還可以幫助您在Excel中使用復選框突出顯示單元格或行。 請執行以下操作。

1.在工作表中，您需要突出顯示帶有復選框的單元格或行。 右鍵點擊 工作表標簽 并選擇 查看代碼 從右鍵菜單中打開 Microsoft Visual Basic應用程序 窗口。

2.然后將下面的VBA代碼復制并粘貼到“代碼”窗口中。

VBA代碼：在Excel中用復選框突出顯示行

Sub AddCheckBox()Dim xCell As RangeDim xRng As RangeDim I As IntegerDim xChk As CheckBoxOn Error Resume NextInputC:Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)If xRng Is Nothing Then Exit SubIf xRng.Columns.Count > 1 ThenMsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"GoTo InputCElseIf xRng.Columns.Count = 1 ThenFor Each xCell In xRngWith 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.RowEnd WithxRng.Rows(xCell.Row).Interior.ColorIndex = xlNoneNextEnd IfWith xRng.Rows.RowHeight = 16End WithxRng.ColumnWidth = 5#xRng.Cells(1, 1).Offset(0, 1).SelectFor Each xChk In ActiveSheet.CheckBoxesxChk.onAction = ActiveSheet.Name + ".InsertBgColor"NextEnd IfEnd SubSub InsertBgColor()Dim xName As IntegerDim xChk As CheckBoxFor Each xChk In ActiveSheet.CheckBoxesxName = Right(xChk.Name, Len(xChk.Name) - 10)If (xName = Range(xChk.linkedCell).Row) ThenIf (Range(xChk.linkedCell) = "True") ThenRange("A" & xName, Range(xChk.linkedCell).Offset(0, -2)).Interior.ColorIndex = 6ElseRange("A" & xName, Range(xChk.linkedCell).Offset(0, -2)).Interior.ColorIndex = xlNoneEnd IfEnd IfNextEnd SubCopy

3。 按 F5 鍵來運行代碼。 （備注：您應將光標置于代碼的第一部分以應用F5鍵）在彈出窗口中 Kutools for Excel 對話框，請選擇要插入的范圍復選框，然后單擊 OK 按鈕。 在這里，我選擇范圍I1：I6。 看截圖：

4.然后將復選框插入到選定的單元格中。 選中任何一個復選框，對應的行將自動突出顯示，如下圖所示。

相關文章:在Excel中選中復選框時，如何更改指定的單元格值或顏色？如果在Excel中選中復選框，如何在單元格中插入日期戳？如何根據Excel中的單元格值選中復選框？如何根據Excel中的復選框過濾數據？在Excel中隱藏行時如何隱藏復選框？如何在Excel中創建帶有多個復選框的下拉列表？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel