Přejít k hlavnímu obsahu

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

Autor: Siluvia Naposledy změněno: 2024-10-25

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.

Snímek obrazovky zobrazující zvýrazněné řádky a buňky aktivované zaškrtávacími políčky v Excelu

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.

Snímek obrazovky s propojením zaškrtávacích políček s buňkami pro podmíněné formátování v Excelu

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.

Snímek obrazovky zobrazující po sobě jdoucí propojené buňky pro zaškrtávací políčka v Excelu

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:

Snímek obrazovky možností podmíněného formátování na kartě Domů v Excelu

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

2.1 Vyberte Pomocí vzorce určete, které buňky chcete formátovat možnost v Vyberte typ pravidla krabice;

2.2 Zadejte vzorec = IF ($ J1 = PRAVDA, PRAVDA, NEPRAVDA) do Formátovat hodnoty, kde je tento vzorec pravdivý krabice;
      Or = IF (List3! $ E1 = PRAVDA, PRAVDA, NEPRAVDA) pokud jsou zaškrtávací políčka propojena s jiným listem.

2.3 Klepněte na Formát tlačítko pro určení zvýrazněné barvy pro řádky;

2.4 Klepněte na OK knoflík. Viz screenshot:

Snímek obrazovky dialogového okna Nové pravidlo formátování pro zvýraznění pomocí zaškrtávacích políček v Excelu

Pozor: Ve vzorci $ J1 or $ E1 je první propojená buňka pro zaškrtávací políčka a ujistěte se, že byl odkaz na buňku změněn na absolutní sloupec (J1> $ J1 or E1> $ E1).

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.

Snímek obrazovky zobrazující řádky zvýrazněné na základě zaškrtávacích políček v aplikaci Excel


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

Snímek obrazovky editoru kódu VBA v Excelu pro přidání zaškrtávacích políček pro zvýraznění řádků

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:

Snímek obrazovky s výběrem rozsahu pro vložení zaškrtávacího políčka v Excelu pomocí Kutools

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.

Snímek obrazovky zobrazující zvýrazněné řádky, když je v Excelu zaškrtnuto políčko


Související články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více
Používejte Kutools ve vašem preferovaném jazyce – podporuje angličtinu, španělštinu, němčinu, francouzštinu, čínštinu a více než 40 dalších!

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!