Zaškrtávací políčka Excelu: Přidat, vybrat, odstranit a použít zaškrtávací políčka v Excelu

Zaškrtávací políčko je interaktivní nástroj, který se používá k výběru nebo zrušení výběru možnosti, často je uvidíte na webových formulářích nebo při vyplňování průzkumů. V Excelu můžete přidat různé možnosti zaškrtnutím nebo zrušením zaškrtnutí políčka, díky kterému bude váš list dynamičtější a interaktivnější, jako je vytváření kontrolních seznamů pomocí zaškrtávacích políček, vkládání dynamického grafu pomocí zaškrtávacích políček atd.

V tomto tutoriálu představím, jak vložit, vybrat, odstranit zaškrtávací políčka, a uvedu několik příkladů jejich použití v Excelu.

---

Dva typy zaškrtávacích políček (ovládací prvek formuláře zaškrtávací políčko vs. ovládací prvek ActiveX zaškrtávací políčko)

Chcete-li vložit zaškrtávací políčko, musíte se ujistit, že se na pásu karet zobrazuje karta Vývojář. Karta Vývojář není ve výchozím nastavení aktivní, takže ji musíte nejprve povolit.

1. V sešitu aplikace Excel klikněte na Soubor > možnosti. V Možnosti aplikace Excel , klepněte na tlačítko OK Vlastní Stuha, pak zkontrolujte Vývojka a klepněte na tlačítko OK zavřete toto dialogové okno.

2. Nyní Vývojka karta se zobrazí na pásu karet aplikace Excel, jak je znázorněno na obrázku níže. Na kartě Vývojář můžete podle potřeby přistupovat k řadě interaktivních ovládacích prvků.

Microsoft Excel nabízí dva typy zaškrtávacích políček –Zaškrtávací políčko Řízení formuláře a Zaškrtávací políčko Ovládací prvek ActiveX:

Zaškrtávací políčko Kontrola formuláře je mnohem jednodušší než Zaškrtávací políčko Ovládací prvek ActiveXA Zaškrtávací políčko Ovládací prvek ActiveX je flexibilnější v designu a může být použit jako objekty v kódech. Pro naši každodenní práci jsou ovládací prvky formuláře dostačující, takže je ve většině případů využijeme.

Ovládací prvek formuláře zaškrtávací políčko vs. ovládací prvek ActiveX zaškrtávací políčko:

• Ovládací prvky ActiveX poskytují více možností formátování, můžete je použít pro sofistikovaný a flexibilní návrh;
• Ovládací prvky formuláře jsou integrovány do aplikace Excel, zatímco ovládací prvky ActiveX se načítají samostatně, takže mohou občas zamrznout;
• Některé počítače ve výchozím nastavení nedůvěřují ovládacím prvkům ActiveX, takže je musíte povolit ručně z Centra důvěryhodnosti;
• Zaškrtávací políčko Ovládací prvek ActiveX je přístupný programově prostřednictvím editoru VBA;
• ActiveX poskytuje pouze možnost Windows a Mac OS jej nepodporuje.

Poznámka: Všechna zaškrtávací políčka, o kterých mluvím v následujících výukových programech, jsou Zaškrtávací políčka Kontrola formuláře.

---

Přidejte jedno nebo více zaškrtávacích políček v aplikaci Excel

Chcete-li vložit jedno nebo více zaškrtávacích políček, může vám tato sekce pomoci.

2.1 Vložte jedno zaškrtávací políčko

Chcete-li vložit jedno zaškrtávací políčko, postupujte takto:

1, klikněte Vývojka klepněte na kartu Vložit z Řízení skupinu a poté vyberte Zaškrtávací políčko pod Ovládací prvky formuláře. Poté klikněte na buňku, do které chcete vložit zaškrtávací políčko, a zaškrtávací políčko se objeví poblíž této buňky, viz snímky obrazovky:

2. Poté umístěte kurzor na okraj výběrového pole pro zaškrtávací políčko. Když se změní na ukazatel přesunu, můžete kliknout a přetáhnout zaškrtávací políčko do buňky, kterou potřebujete, viz snímky obrazovky:

---

2.2 Vložit více zaškrtávacích políček

Pokud ve svém listu potřebujete více zaškrtávacích políček, zde pro vás budeme mluvit o několika rychlých způsobech.

 Vložit více zaškrtávacích políček s možností Fill Handle

Chcete-li rychle vložit více zaškrtávacích políček, přidejte jedno zaškrtávací políčko, jak je popsáno výše, a poté použijte možnost Vyplnit rukojeť k vyplnění zaškrtávacích políček do dalších buněk.

1. Klepnutím vyberte buňku, kde se nachází zaškrtávací políčko.

2. Přetažením úchytu výplně dolů vyplňte zaškrtávací políčka, jak je znázorněno na obrázku níže:

---

 Vložte více zaškrtávacích polí s kódem VBA

Následující kód VBA vám také může pomoci rychle a snadno vložit seznam zaškrtávacích políček. Postupujte prosím takto:

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2. Potom klepněte na tlačítko Vložit > Modula vložte následující kód do Modul okno.

Kód VBA: Vložte více zaškrtávacích políček do seznamu buněk

Sub InsertCheckBoxes()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

3. A pak stiskněte F5 klíč ke spuštění tohoto kódu. Zobrazí se okno s výzvou, které vám připomene, abyste vybrali rozsah buněk pro vložení zaškrtávacích políček. Viz snímek obrazovky:

4. Potom klepněte na tlačítko OK tlačítka se zaškrtávací políčka vloží do buněk úhledně najednou, viz snímek obrazovky:

---

 Vložit více zaškrtávacích políček s praktickou funkcí

Pokud máte Kutools pro Excel, S jeho Zaškrtávací políčka Dávkové vložení můžete okamžitě vložit zaškrtávací políčka do prázdných buněk nebo buněk s daty.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Vyberte rozsah buněk, kam chcete vložit zaškrtávací políčka.

2. Potom klepněte na tlačítko Kutools > Vložit > Zaškrtávací políčka Dávkové vložení, viz screenshot:

3. A poté jsou vybrané buňky vyplněny zaškrtávacími políčky, jak je znázorněno na následujících snímcích:

Vložte zaškrtávací políčka do prázdných buněk	Vložte zaškrtávací políčka do datových buněk

---

Změňte název zaškrtávacího políčka a text titulku

Při použití zaškrtávacího políčka v aplikaci Excel byste měli rozlišovat název zaškrtávacího políčka a název titulku. Název titulku je text, který vidíte vedle zaškrtávacího políčka, a název zaškrtávacího políčka je název, který vidíte v poli Název, když je zaškrtávací políčko zaškrtnuto, jak je znázorněno na níže uvedených snímcích:

Název zaškrtávacího políčka	Název titulku

Chcete-li změnit název titulku, klikněte pravým tlačítkem na zaškrtávací políčko a vyberte Upravit text z kontextové nabídky a zadejte nový požadovaný název, viz snímky obrazovky:

Chcete-li změnit název zaškrtávacího políčka, zaškrtněte políčko a poté do pole zadejte požadovaný název Pole pro jméno jak je ukázáno níže:

---

Propojit jedno nebo více zaškrtávacích políček s buňkami

Při použití zaškrtávacího políčka často potřebujete propojit zaškrtávací políčka s buňkami. Pokud je políčko zaškrtnuté, v buňce se zobrazí PRAVDA, a pokud není zaškrtnuto, v buňce se zobrazí NEPRAVDA nebo prázdná. Tato část představí, jak propojit jedno nebo více zaškrtávacích políček s buňkami v Excelu.

4.1 Propojit jedno zaškrtávací políčko s buňkou pomocí funkce Řízení formátu

Chcete-li zaškrtávací políčko přiřadit k určité buňce, postupujte takto:

1. Klikněte pravým tlačítkem na zaškrtávací políčko a poté vyberte Ovládání formátu z kontextové nabídky viz screenshot:

2. V Formátovat objekt v dialogovém okně pod ovládání kliknutím vyberte buňku, na kterou chcete vytvořit odkaz na zaškrtávací políčko ze seznamu Odkaz na buňku nebo zadejte odkaz na buňku ručně, viz snímek obrazovky:

3, klikněte OK zavřete dialogové okno a nyní je zaškrtávací políčko propojeno s konkrétní buňkou. Pokud jej zaškrtnete, zobrazí se PRAVDA, zrušte zaškrtnutí, zobrazí se NEPRAVDA, jak je ukázáno níže:

---

4.2 Propojit více zaškrtávacích políček s buňkami pomocí kódu VBA

Chcete-li propojit více zaškrtávacích políček s buňkami pomocí funkce Řízení formátu, musíte výše uvedené kroky opakovat znovu a znovu. To bude časově náročné, pokud je potřeba propojit stovky nebo tisíce zaškrtávacích políček. Zde představím kód VBA pro propojení více zaškrtávacích políček s buňkami najednou.

1. Přejděte na pracovní list, který obsahuje zaškrtávací políčka.

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. Potom klepněte na tlačítko Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Propojte více zaškrtávacích políček s buňkami najednou

Sub LinkChecks()
'Update by Extendoffice
Dim xCB
Dim xCChar
i = 2
xCChar = "C"
For Each xCB In ActiveSheet.CheckBoxes
If xCB.Value = 1 Then
    Cells(i, xCChar).Value = True
Else
    Cells(i, xCChar).Value = False
End If
xCB.LinkedCell = Cells(i, xCChar).Address
i = i + 1
Next xCB
End Sub

Poznámka: V tomto kódu i = 2, číslo 2 je počáteční řádek vašeho zaškrtávacího políčka a xCChar = "C", dopis C je sloupec, se kterým chcete zaškrtávací políčka propojit. Můžete je změnit podle své potřeby.

4. A pak stiskněte F5 pro spuštění tohoto kódu jsou všechna zaškrtávací políčka v aktivním listu propojena se zadanými buňkami najednou. Při zaškrtnutí políčka se v jeho relativní buňce zobrazí PRAVDA, po zrušení zaškrtnutí políčka bude propojená buňka ukazovat NEPRAVDA, viz snímek obrazovky:

---

Vyberte jedno nebo více zaškrtávacích políček

Chcete-li zkopírovat nebo odstranit zaškrtávací políčka v listu, měli byste nejprve zaškrtnout políčka. Chcete-li vybrat jedno nebo více zaškrtávacích políček, postupujte takto:

Zaškrtněte jedno políčko: (dva způsoby)

• Klikněte pravým tlačítkem na zaškrtávací políčko a poté klikněte kamkoli do něj.
• OR
• Stiskněte Ctrl a poté klikněte na zaškrtávací políčko.

Vyberte více zaškrtávacích políček:

Stiskněte a přidržte tlačítko Ctrl a poté klikněte na zaškrtávací políčka, která chcete jedno po druhém vybrat.

---

Odstraňte jedno nebo více zaškrtávacích políček

Odstranění jednoho zaškrtávacího políčka je pro nás snadné, stačí jej vybrat a poté stisknout klávesu Delete na klávesnici. Když přijde na více zaškrtávacích políček, jak byste to mohli udělat v Excelu?

6.1 Odstraňte více zaškrtávacích políček s kódem VBA

Chcete-li odstranit všechna zaškrtávací políčka v listu, můžete použít následující kód VBA.

1. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.

2. Potom klepněte na tlačítko realizovatt> Modula vložte následující kód do Okno modulu.

Kód VBA: Odstraňte všechna zaškrtávací políčka v aktuálním listu

Sub RemoveCheckboxes()
'Update by Extendoffice
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub

3. Poté stiskněte tlačítko F5 klíč ke spuštění kódu. Všechna zaškrtávací políčka v konkrétním listu budou odstraněna najednou.

---

6.2 Odstranění více zaškrtávacích políček pomocí jednoduché funkce

S Kutools pro Excel" Zaškrtávací políčka Dávkové odstranění Můžete odstranit zaškrtávací políčka z řady výběrů nebo celých listů, jak potřebujete, pouze několika kliknutími.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Vyberte rozsah buněk nebo celý list obsahující zaškrtávací políčka, která chcete odstranit.

2. Potom klepněte na tlačítko Kutools > Vymazat > Zaškrtávací políčka Dávkové odstranění, viz screenshot:

3. A poté jsou všechna zaškrtávací políčka najednou z výběru odstraněna.

---

Seskupit zaškrtávací políčka v Excelu

Pokud chcete přesunout nebo změnit velikost více zaškrtávacích políček společně, seskupení zaškrtávacích políček může pomoci ovládat všechna zaškrtávací políčka najednou. Tato část bude hovořit o tom, jak seskupit více zaškrtávacích políček v listu aplikace Excel.

7.1 Seskupit zaškrtávací políčka pomocí funkce Skupina

V aplikaci Excel Skupina funkce může pomoci seskupit více zaškrtávacích políček, proveďte prosím toto:

1. Podrž Ctrl a poté kliknutím postupně zaškrtněte políčka, která chcete seskupit, viz snímek obrazovky:

2. Poté klikněte pravým tlačítkem a vyberte Skupina > Skupina z kontextové nabídky viz screenshot:

3. A všechna vybraná zaškrtávací políčka jsou seskupena, můžete je přesouvat, kopírovat je najednou.

---

7.2 Seskupit zaškrtávací políčka pomocí příkazu Group Box

Kromě toho můžete také použít Skupinová schránka seskupit více zaškrtávacích políček dohromady. Proveďte prosím následující kroky:

1. Přejděte na stránku Vývojka a klepněte na tlačítko Vložit > Skupinová schránka (ovládání formuláře), viz screenshot:

2. A pak přetažením myši nakreslete skupinový rámeček a změňte název titulku skupinového rámečku, jak chcete:

3. Nyní můžete do skupinového pole vložit zaškrtávací políčka, klikněte Vývojka > Vložit > Zaškrtávací políčko (ovládání formuláře), viz screenshot:

4. Poté přetažením myši nakreslete zaškrtávací políčko a podle potřeby upravte název titulku, viz snímky obrazovky

5. Podobně vložte další zaškrtávací políčka do skupinového pole a získáte výsledek, jak je znázorněno na obrázku níže:

---

Příklady: Jak používat zaškrtávací políčka v Excelu

Z výše uvedených informací víme některé základní znalosti o zaškrtávacích polích. V této části představím, jak používat zaškrtávací políčka pro některé interaktivní a dynamické operace v Excelu.

 Příklad 1: Vytvořte seznam úkolů se zaškrtávacími políčky

To do list je pro nás užitečné pro označení úkolů, které byly splněny v naší každodenní práci. V typickém seznamu úkolů mají zaškrtnuté dokončené úkoly přeškrtnutý formát jako na obrázku níže. Pomocí zaškrtávacích políček můžete rychle vytvořit interaktivní seznam úkolů.

Chcete-li vytvořit seznam úkolů se zaškrtávacími políčky, proveďte následující kroky:

1. Vložte zaškrtávací políčka do seznamu buněk, které chcete použít, viz snímek obrazovky: (Kliknutím zjistíte, jak vložit více zaškrtávacích políček)

2. Po vložení zaškrtávacích políček byste měli propojit každé zaškrtávací políčko se samostatnou buňkou.

3. Po propojení zaškrtávacích políček s buňkami, pokud je zaškrtávací políčko zaškrtnuté, zobrazí se PRAVDA, pokud není zaškrtnuto, zobrazí se NEPRAVDA, viz snímek obrazovky:

4. Poté byste měli použít Podmíněné formátování funkce k dosažení následujících operací. Vyberte oblast buněk A2:C8, pro kterou chcete vytvořit seznam úkolů, a klepněte na tlačítko Domů > Podmíněné formátování > Nové pravidlo přejděte na Nové pravidlo pro formátování dialogové okno.

5. V Nové pravidlo pro formátování dialog, klepněte na tlačítko Pomocí vzorce určete, které buňky chcete formátovat v Vyberte typ pravidla seznamu a poté zadejte tento vzorec = C2 = PRAVDA do Formátovat hodnoty, kde je tento vzorec pravdivý textové pole, viz screenshot:

Poznámka: C2 je buňka propojená se zaškrtávacím políčkem..

6. Poté pokračujte kliknutím na Formát pro přechod na Formát buněk dialogové okno. Pod Písmo karta, zkontrolujte Přeškrtnuté z Účinky a zadejte barvu pro dokončenou položku seznamu úkolů, jak chcete, viz snímek obrazovky:

7. Potom klepněte na tlačítko OK > OK pro zavření dialogů nyní, když zaškrtnete políčko, bude odpovídající položka přeškrtnuta, jak je ukázáno níže:

---

 Příklad 2: Vytvořte dynamický graf se zaškrtávacími políčky

Někdy může být potřeba zobrazit mnoho dat a informací v jednom grafu a graf bude v nepořádku. V tomto případě můžete použít zaškrtávací políčka k vytvoření dynamického grafu v listu. Při zaškrtnutí políčka se zobrazí odpovídající datový řádek, pokud zaškrtnutí zrušíte, bude datový řádek skryt, jak je ukázáno níže:

Tato část bude hovořit o dvou rychlých tricích pro vytvoření tohoto typu grafu v Excelu.

 Vytvořte interaktivní graf se zaškrtávacími políčky v Excelu

Normálně můžete v Excelu vytvořit dynamický graf pomocí zaškrtávacích políček s následujícími kroky:

1. Vložte některá zaškrtávací políčka a přejmenujte je. V tomto případě vložím tři zaškrtávací políčka a přejmenuji je na Apple, Orange a Peach, viz snímek obrazovky:

2. Poté byste měli tato zaškrtávací políčka propojit s buňkami, kliknutím vyberte první zaškrtávací políčko a poté klikněte pravým tlačítkem a vyberte Ovládání formátu, V roce Formátovat objekt v dialogovém okně pod ovládání na kartě z Odkaz na buňku zaškrtávacím políčku vyberte buňku, na kterou chcete odkazovat, viz snímek obrazovky:

3. Opakováním výše uvedeného kroku propojíte další dvě zaškrtávací políčka s jinými buňkami. Nyní, pokud zaškrtnete políčko, zobrazí se PRAVDA, v opačném případě se zobrazí NEPRAVDA, jak je ukázáno níže:

4. Po vložení a propojení zaškrtávacích políček byste nyní měli připravit data. Zkopírujte původní záhlaví datových řádků a sloupců na jiné místo, viz snímek obrazovky:

5. Poté použijte níže uvedené vzorce:

• V cele B13: = IF ($ B $ 6, B2, NA ())a přetažením úchytu výplně vyplňte řádek z B13 do G13;
• V cele B14: = IF ($ B $ 7, B3, NA ())a přetažením úchytu výplně vyplňte řádek od B14 do G14;
• V cele B15: = IF ($ B $ 8, B4, NA ())a přetažením úchytu výplně vyplňte řádek z B15 do G15.
• Tyto vzorce vracejí hodnoty z původních dat, pokud je políčko pro daný produkt zaškrtnuté, a #N/A, pokud není zaškrtnuté. Viz snímek obrazovky:

6. Poté vyberte nový rozsah dat od A12 do G15 a poté klikněte Vložit > Vložte spojnicový nebo plošný graf > Linka pro vložení spojnicového grafu.

7. Nyní, když zaškrtnete políčko produktu, zobrazí se jeho datový řádek, a když zaškrtnutí zrušíte, zmizí, jak je ukázáno níže:

8. Po vytvoření grafu můžete na graf umístit zaškrtávací políčka, aby vypadaly úhledně. Kliknutím vyberte oblast vykreslování a poté ji tažením zmenšete, viz snímek obrazovky:

9. A pak stiskněte Ctrl vyberte tři zaškrtávací políčka, přetáhněte je do grafu a poté kliknutím pravým tlačítkem vyberte Postavte se dopředu > Postavte se dopředu, viz screenshot:

10. A zaškrtávací políčka se zobrazí na grafu, pokračujte stisknutím Ctrl pro výběr zaškrtávacích polí a grafu jeden po druhém, kliknutím pravým tlačítkem vyberte Skupina > Skupina, viz screenshot:

11. Nyní jsou zaškrtávací políčka propojena se spojnicovým grafem. Když posunete graf, odpovídajícím způsobem se přesunou i zaškrtávací políčka.

---

 Vytvořte interaktivní graf se zaškrtávacími políčky se snadnou funkcí

Výše uvedená metoda může být pro vás poněkud obtížná, zde představím snadný způsob řešení tohoto úkolu. S Kutools pro ExcelJe Čárový graf zaškrtávacího políčka můžete snadno vytvořit dynamický graf se zaškrtávacími políčky.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Vyberte oblast dat, ze které chcete vytvořit graf, a klepněte na tlačítko Kutools > grafy > Porovnání kategorií > Čárový graf zaškrtávacího políčka, viz screenshot:

2. A pak, a Čárový graf zaškrtávacího políčka Zobrazí se dialogové okno, vybraná data se automaticky vyplní do samostatných textových polí, viz snímek obrazovky:

3. Potom klepněte na tlačítko OK a zobrazí se okno s výzvou, které vám připomene, že bude vytvořen skrytý list s některými přechodnými daty, klikněte prosím Ano tlačítko, viz screenshot:

4. A spojnicový graf se zaškrtávacími políčky bude úspěšně vytvořen, viz snímek obrazovky:

---

 Příklad 3: Vytvořte rozevírací seznam se zaškrtávacími políčky

Výběr více položek z rozevíracího seznamu může být pro většinu z nás běžným úkolem. Někteří uživatelé se snaží vytvořit rozevírací seznam se zaškrtávacími políčky pro výběr vícenásobného výběru, jak je ukázáno níže. V Excelu bohužel není možné vytvořit takové rozbalovací seznamy se zaškrtávacími políčky. Zde však představím dva typy výběru více zaškrtávacích políček v Excelu. Jeden je seznam se zaškrtávacími políčky a druhý je rozevírací seznam se zaškrtávacími políčky.

 Vytvořte rozevírací seznam se zaškrtávacími políčky pomocí seznamu

Místo rozevíracího seznamu můžete k přidání zaškrtávacích polí pro vícenásobný výběr použít seznam. Tento proces je trochu komplikovaný, postupujte podle níže uvedených kroků krok za krokem:

1. Nejprve prosím vložte seznam, klikněte Vývojka > Vložit > Seznam (ovládací prvek ActiveX). Viz snímek obrazovky:

2. Tažením myši nakreslete seznam a poté na něj klikněte pravým tlačítkem a vyberte Nemovitosti z kontextové nabídky viz screenshot:

3. V Nemovitosti podokno, nastavte operace následovně:

• v ListFillRange do pole se seznamem zadejte rozsah dat, který chcete zobrazit;
• v ListStyle zaškrtněte políčko 1 - Volba stylu fmList z rozevíracího seznamu;
• v Více násobný výběr zaškrtněte políčko 1 - fmMultiSelectMulti z rozevíracího seznamu;
• Nakonec jej zavřete kliknutím na tlačítko Zavřít.

4. Poté klikněte na buňku, do které chcete vytisknout více vybraných položek, a zadejte pro ni název rozsahu. Zadejte název rozsahu “Výstupní položka" do Pole pro jméno a stiskněte vstoupit klíč, viz screenshot:

5. A pak klikněte Vložit > Tvary > Obdélník, tažením myši nakreslete obdélník nad seznamem, viz snímek obrazovky:

6. Poté klikněte pravým tlačítkem na obdélník a vyberte Přiřadit makro z kontextové nabídky. Viz snímek obrazovky:

7. V Přiřadit makro dialog, klepněte na tlačítko Nový tlačítko, viz screenshot:

8. V otvoru Microsoft Visual Basic pro aplikace okně, nahraďte původní kód v okně Modul níže uvedeným kódem VBA:

Sub Rectangle1_Click()
'Updated by Extendoffice
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("Outputitem").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("Outputitem") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("Outputitem") = ""
    End If
End If
End Sub

Poznámka: Ve výše uvedeném kódu, Obdélník 1 je název tvaru, ListBox1 je název pole se seznamem a Výstupní položka je název rozsahu výstupní buňky. Můžete je změnit podle svých potřeb.

9. Potom zavřete okno kódu. Nyní kliknutím na obdélníkové tlačítko skryjete nebo zobrazíte seznam. Když se zobrazí seznam, vyberte položky v seznamu a znovu klikněte na obdélníkové tlačítko, aby se vybrané položky zobrazily do zadané buňky, viz ukázka níže:

---

 Vytvořte rozevírací seznam se zaškrtávacími políčky s úžasnou funkcí

Chcete-li přidat zaškrtávací políčka do skutečného rozevíracího seznamu, můžete použít výkonný nástroj – Kutools pro Excel, S jeho Rozevírací seznam se zaškrtávacími políčky můžete rychle a snadno vytvářet rozevírací seznamy s více zaškrtávacími políčky.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Nejprve prosím vložte normální rozevírací seznam do vybraných buněk, viz snímek obrazovky:

2. Potom klepněte na tlačítko Kutools > Rozbalovací seznam > Rozevírací seznam se zaškrtávacími políčky > Nastavení. Viz snímek obrazovky:

3. V Rozbalovací seznam s nastavením zaškrtávacích políček V dialogovém okně proveďte následující konfiguraci.

• v Naneste na určete rozsah použití, kde vytvoříte zaškrtávací políčka pro buňky rozevíracího seznamu. Podle svých potřeb můžete určit určitý rozsah, aktuální list, aktuální sešit nebo všechny otevřené sešity;
• v režim oddíl, zvolte Upravit volba;
• v oddělovač zadejte oddělovač pro oddělení vybraných položek;
• V Text Směr sekce, vyberte směr textu podle svých potřeb;
• Nakonec klepněte na tlačítko OK .

4. Po dokončení nastavení klikněte na Kutools > Rozbalovací seznam > Rozevírací seznam se zaškrtávacími políčky > Povolit rozevírací seznam zaškrtávacích políček aktivovat tuto funkci. Viz screenshot:

5. Od nynějška, když kliknete na buňku s rozevíracím seznamem, zobrazí se seznam se zaškrtávacími políčky a poté vyberte položky zaškrtnutím políček, aby se položky vytiskly do buňky, jak je ukázáno níže:

Kliknutím získáte podrobnější informace o této funkci…

---

 Příklad 4: Zaškrtnutím políčka změníte barvu řádku

Zkoušeli jste někdy změnit barvu řádku podle zaškrtnutého políčka? Což znamená, že barva souvisejícího řádku se změní, pokud zaškrtnete políčko, jak je znázorněno na obrázku níže, tato část bude hovořit o některých tricích pro řešení tohoto úkolu v aplikaci Excel.

 Zaškrtnutím políčka změníte barvu buňky pomocí podmíněného formátování

Chcete-li změnit barvu řádku zaškrtnutím nebo zrušením zaškrtnutí políčka, Podmíněné formátování funkce v Excelu vám může pomoci. Postupujte prosím takto:

1. Nejprve vložte zaškrtávací políčka do seznamu buněk, jak potřebujete, viz snímek obrazovky:

2. Dále byste měli tato zaškrtávací políčka propojit s buňkami vedle každého zaškrtávacího políčka samostatně, viz snímek obrazovky:

3. Potom vyberte rozsah dat, u kterého chcete změnit barvu řádku, a klepněte na tlačítko Domů > Podmíněné formátování > Nové pravidlo, viz screenshot:

4. V Nové pravidlo pro formátování v dialogovém okně proveďte následující operace:

• Vybrat Pomocí vzorce určete, které buňky chcete formátovat možnost v Vyberte typ pravidla krabice;
• Zadejte tento vzorec =IF($F2=PRAVDA,PRAVDA,NEPRAVDA) do Formátovat hodnoty, kde je tento vzorec pravdivý krabice;
• Klepněte na tlačítko Formát určete barvu, kterou chcete pro řádky.

Poznámka: Ve vzorci $ F2 je první propojená buňka zaškrtávacího políčka..

5. Po výběru barvy klikněte OK > OK zavřete dialogová okna a nyní, když zaškrtnete políčko, bude odpovídající řádek automaticky zvýrazněn, jak je ukázáno níže:

---

  Zaškrtnutím políčka změníte barvu řádku pomocí kódu VBA

Následující kód VBA vám také může pomoci změnit barvu řádku na základě zaškrtnutého políčka, proveďte prosím níže uvedený kód:

1. V listu, který chcete zvýraznit řádky zaškrtávacími políčky, klikněte pravým tlačítkem na záložku listu a vyberte Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

2. Zkopírujte a vložte níže uvedený kód do otevřeného Microsoft Visual Basic pro aplikace okno:

Kód VBA: Zvýrazněte řádky zaškrtnutím políčka

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 = "Sheet2.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

Poznámka: Ve výše uvedeném kódu, v tomto skriptu xChk.OnAction = "Sheet2.InsertBgColor", měli byste změnit název listu-Sheet2 ke svému (Sheet2 je skutečný název listu, můžete jej získat z levého panelu okna kódu). Viz snímek obrazovky:

3. Poté umístěte kurzor na první část kódu a stiskněte F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel dialogovém okně vyberte rozsah, do kterého chcete vložit zaškrtávací políčka, viz snímek obrazovky:

4. Potom klepněte na tlačítko OK tlačítko, zaškrtávací políčka se vloží do vybraných buněk, jak je znázorněno na obrázku níže:

5. Od nynějška, pokud zaškrtnete políčko, bude příslušný řádek vybarven automaticky, jak je znázorněno na obrázku níže:

---

 Příklad 5: Spočítat nebo sečíst hodnoty buněk, pokud je zaškrtávací políčko zaškrtnuté

Pokud máte rozsah dat se seznamem zaškrtávacích políček, nyní byste chtěli spočítat počet zaškrtnutých zaškrtávacích políček nebo sečíst odpovídající hodnoty na základě zaškrtnutých políček, jak je uvedeno níže. Jak byste mohli vyřešit tento úkol v Excelu?

K vyřešení tohoto úkolu je důležitým krokem propojení zaškrtávacích políček s relativními buňkami vedle dat. Zaškrtnuté políčko zobrazí v propojené buňce PRAVDA, jinak se zobrazí NEPRAVDA a poté můžete použít funkci počítání nebo součet k získání výsledku na základě hodnoty PRAVDA nebo NEPRAVDA.

1. Nejprve byste měli zaškrtávací políčka propojit s buňkami samostatně, pokud je políčko zaškrtnuté, zobrazí se PRAVDA, pokud není zaškrtnuto, zobrazí se NEPRAVDA, viz snímek obrazovky:

2. Poté použijte následující vzorce k počítání nebo sečtení hodnot na základě zaškrtnutých políček:

Počítat hodnoty podle zaškrtnutých políček:

= COUNTIF (D2: D10, PRAVDA)

Poznámka: V tomto vzorci D2: D10 je rozsah buněk odkazu, který jste nastavili pro zaškrtávací políčka.

Sečíst hodnoty podle zaškrtnutých políček:

= SUMPRODUCT (($ D $ 2: $ D $ 10 = TRUE) * $ C $ 2: $ C $ 10)

Poznámka: V tomto vzorci D2: D10 je rozsah buněk odkazů, které jste nastavili pro zaškrtávací políčka, a C2: C10 je seznam buněk, které chcete sečíst.

---

 Příklad 6: Pokud je zaškrtnuto políčko, vraťte konkrétní hodnotu

Pokud máte zaškrtávací políčko, při jeho zaškrtnutí by se v buňce měla objevit konkrétní hodnota a při jeho zrušení se zobrazí prázdná buňka, jak je ukázáno níže:

Chcete-li dokončit tuto práci, postupujte takto:

1. Nejprve byste měli toto zaškrtávací políčko propojit s buňkou. Klikněte pravým tlačítkem na zaškrtávací políčko a vyberte Ovládání formátu, ve vyskakovacím okně Formátovat objekt v dialogovém okně pod ovládání kliknutím vyberte buňku, kterou chcete propojit se zaškrtávacím políčkem z Odkaz na buňku rámeček, viz screenshot:

2. Potom klepněte na tlačítko OK tlačítko pro zavření dialogového okna. Nyní zadejte tento vzorec: =IF(A5=PRAVDA,"Extendoffice","") do buňky, kde chcete vytisknout výsledek, a poté stiskněte vstoupit klíč.

Poznámka: V tomto vzorci A5 je buňka, která odkazuje na zaškrtávací políčko, “Extendoffice“ je konkrétní text, můžete si je změnit podle svých potřeb.

3. Nyní, když zaškrtnete políčko, zobrazí se konkrétní text, po jeho zrušení se zobrazí prázdná buňka, viz ukázka níže: