Jak zvýraznit buňku nebo řádek pomocí zaškrtávacího políčka v aplikaci Excel?
Jak je ukázáno níže, musíte zvýraznit řádek nebo buňku zaškrtávacím políčkem. Když je zaškrtnuto políčko, zadaný řádek nebo buňka se automaticky zvýrazní. Ale jak toho dosáhnout v aplikaci Excel? Tento článek vám ukáže dvě metody, 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ě.
Propojit všechny zaškrtávací políčko 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.
2. 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.
Poznámka: 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.
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 Domů záložka. Viz snímek obrazovky:
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:
Poznámka: 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.
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. (Poznámka: 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?
Nejlepší nástroje pro produktivitu v kanceláři
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!
