Jak zvýraznit buňku nebo řádek pomocí zaškrtávacího políčka v aplikaci Excel?

Jak je znázorněno na snímku obrazovky níže, musíte řádek nebo buňku zvýraznit zaškrtávacím políčkem. Po zaškrtnutí políčka se automaticky zvýrazní určený řádek nebo buňka. Jak toho ale v Excelu dosáhnout? Tento článek vám ukáže dva způsoby, jak toho dosáhnout.

Zvýrazněte buňku nebo řádek pomocí zaškrtávacího políčka s podmíněným formátováním
Zvýrazněte buňku nebo řádek pomocí zaškrtávacího políčka s kódem VBA

Zvýrazněte buňku nebo řádek pomocí zaškrtávacího políčka s podmíněným formátováním

Můžete vytvořit pravidlo podmíněného formátování pro zvýraznění buňky nebo řádku pomocí zaškrtávacího políčka v aplikaci Excel. Postupujte prosím následovně.

Krok 1: Zaškrtávací políčko Propojit vše se zadanou buňkou

1. Zaškrtávací políčka musíte do buněk vložit po jednom ručně kliknutím Vývojka > Vložit > Zaškrtávací políčko (Kontrola formuláře).

2. Nyní byla do buněk ve sloupci I vložena zaškrtávací políčka. Zaškrtněte první zaškrtávací políčko v I1, zadejte vzorec = $ J1 do řádku vzorců a poté stiskněte vstoupit klíč.

Tip: Pokud nechcete, aby byly hodnoty v sousedních buňkách přidruženy k zaškrtávacím políčkům, můžete toto políčko propojit s buňkou jiného listu, například = List3! $ E1.

3. Opakujte krok 1, dokud nebudou všechna zaškrtávací políčka propojena se sousedními buňkami nebo buňkami v jiném listu.
Pozor: Všechny propojené buňky by měly být po sobě jdoucí a měly by být umístěny ve stejném sloupci.

Krok 2: Vytvořte pravidlo podmíněného formátování

Nyní musíte vytvořit pravidlo podmíněného formátování následujícím způsobem krok za krokem.

1. Zaškrtněte políčka, které chcete zvýraznit, a poté klikněte na Podmíněné formátování > Nové pravidlo pod Home záložka. Viz snímek obrazovky:

2. V Nové pravidlo pro formátování dialogové okno, musíte:

Nyní je vytvořeno pravidlo podmíněného formátování. Při zaškrtnutí zaškrtávacích políček budou odpovídající řádky automaticky zvýrazněny, jak je ukázáno na obrazovce s měchy.

Zvýrazněte buňku nebo řádek pomocí zaškrtávacího políčka s kódem VBA

Následující kód VBA vám také pomůže zvýraznit buňku nebo řádek pomocí zaškrtávacího políčka v aplikaci Excel. Postupujte prosím následovně.

1. V listu musíte zvýraznit buňku nebo řádek se zaškrtávacím políčkem. Klikněte pravým tlačítkem na ikonu Tab a zvolte Zobrazit kód z nabídky pravým tlačítkem otevřete Microsoft Visual Basic pro aplikace okno.

2. Poté zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Zvýrazněte řádek se zaškrtávacím políčkem v aplikaci 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. zmáčkni F5 klíč ke spuštění kódu. (Pozor: měli byste umístit kurzor do první části kódu a použít klávesu F5) Ve vyskakovacím okně Kutools pro Excel V dialogovém okně zaškrtněte políčka, které chcete vložit, a poté klikněte na ikonu OK knoflík. Zde vyberu rozsah I1: I6. Viz snímek obrazovky:

4. Poté se do vybraných buněk vloží zaškrtávací políčka. Zaškrtněte kterékoli ze zaškrtávacích políček, odpovídající řádek bude automaticky zvýrazněn, jak je uvedeno níže.

Související články:

• Jak změnit zadanou hodnotu buňky nebo barvu, když je v aplikaci Excel zaškrtnuto políčko?
• Jak vložit datové razítko do buňky, pokud je zaškrtnuto políčko v aplikaci Excel?
• Jak zajistit zaškrtnutí políčka na základě hodnoty buňky v aplikaci Excel?
• Jak filtrovat data na základě zaškrtávacího políčka v aplikaci Excel?
• Jak skrýt zaškrtávací políčko, když je řádek skrytý v aplikaci Excel?
• Jak vytvořit rozevírací seznam s více zaškrtávacími políčky v aplikaci Excel?