Note: The other languages of the website are Google-translated. Back to English
English English

Jak zajistit zaškrtnutí políčka na základě hodnoty buňky v aplikaci Excel?

Možná víte, jak změnit hodnotu buňky na základě zaškrtávacího políčka. Ale víte, jak zajistit automatické zaškrtnutí políčka na základě hodnoty buňky v aplikaci Excel? Tento článek vám ukáže metody, jak toho dosáhnout.

Zaškrtněte políčko na základě hodnoty buňky pomocí vzorce
Zaškrtněte políčko na základě hodnoty buňky s kódem VBA


Zaškrtněte políčko na základě hodnoty buňky pomocí vzorce

Předpokládejme, že chcete, aby bylo zaškrtávací políčko 1 zaškrtnuto automaticky, když se hodnota v buňce A1 rovná „Testovat“. Postupujte prosím následovně.

1. Po vložení zaškrtávacího políčka (Form Control) jej vyberte a propojte jej se zadanou buňkou C2 zadáním = C2 do řádku vzorců.

Pro Ovládací prvek ActiveX zaškrtávací políčko, klikněte na něj pravým tlačítkem a vyberte Nemovitosti z nabídky pravého tlačítka myši. A v Nemovitosti dialogové okno, zadejte propojená buňka do LinkedCell pole a poté zavřete dialogové okno. Viz screenshot:

2. Vyberte lemovanou buňku (C2) a zadejte vzorec = IF (A2 = "Test", TRUE, FALSE) do řádku vzorců a poté stiskněte vstoupit klíč.

Poznámka: Ve vzorci jsou A2 a Test buňka a hodnota buňky, na které je třeba provést automatické zaškrtnutí políčka.

3. Při zadávání hodnoty „Test“ do buňky A1 bude automaticky zaškrtnuto odpovídající políčko. Viz screenshot:

Poznámka: V tomto vzorci se nerozlišují velká a malá písmena.


Zaškrtněte políčko na základě hodnoty buňky s kódem VBA

Můžete spustit následující kód VBA a zaškrtnout políčko na základě hodnoty buňky v aplikaci Excel.

1. Klikněte pravým tlačítkem na ikonu Tab se zaškrtávacím políčkem na základě hodnoty buňky, klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.

Kód VBA: Zaškrtněte políčko na základě hodnoty buňky

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A2").Value = "Test" Then
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn
    Else
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
    End If
End Sub

Poznámka: V kódu jsou A2 a Test buňka a hodnota buňky, na které je třeba provést automatické zaškrtnutí políčka. Zaškrtávací políčko 1 je název zaškrtávacího políčka.

3. lis Další + Q klávesy pro zavření okna Microsoft Visual Basic pro aplikace.

Při zadávání hodnoty „Test“ do buňky A2 bude automaticky zaškrtnuto zadané zaškrtávací políčko.

Poznámka: Tento kód rozlišuje velká a malá písmena.

Tip: Pokud chcete hromadně vložit více zaškrtávacích polí do vybraného rozsahu, můžete zkusit Zaškrtávací políčka Dávkové vložení užitečnost Kutools pro Excelnebo dávkově vložte více tlačítek možností pomocí Tlačítka možnosti hromadného vkládání nástroj. Kromě toho můžete pomocí zaškrtávacího políčka odstranit všechna zaškrtávací políčka najednou Zaškrtávací políčka Dávkové odstranění nástroj, jak je uvedeno níže. Můžeš jít do stáhněte si Kutools pro Excel! (30denní bezplatná zkušební verze).


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (6)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Snažím se použít zaškrtávací políčko k zobrazení konkrétního textu na jiný list, když je zaškrtnuté nebo pravdivé, a zůstat prázdné, když není zaškrtnuté nebo nepravdivé.
Tento komentář byl moderátorem webu minimalizován
konkrétně pokud je to pravda, chtěl bych, aby zobrazoval 0700-0800 a pokud je to nepravda, zobrazí se prázdnou buňku.
Tento komentář byl moderátorem webu minimalizován
Queria saber como fazer isto com mais de um parâmetro de comparação. Příklad: quero que automaticamente minha célula A1 retorne o valor TRUE se e somente se outtras três células B1, C1 e D1 estiverem todas com o valor TRUE (caso pelo pelos uma delas esteja com o valor FALSE, a céuar olu valor FALSE, a céuar olu NEPRAVDIVÉ). Já tentei usar várias fórmulas usando o comando IF, mas sem êxito. Por favor, você sabe me dizer qual a fórmula certa para conseguir isto? :)
Tento komentář byl moderátorem webu minimalizován
Descobri! Apenas používá:

=if(and(B1=pravda, C1=pravda, D1=pravda), pravda, nepravda)
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Stáhl jsem si šablonu ze samotného Microsoft Office pro Excel.
Je zde sloupec se zaškrtávacím políčkem a zaškrtnutím.
Zaškrtnutí mohu aktivovat zadáním „1“, když to udělám, úloha bude nastavena světlejší barvou.

Ale neaktivuji zaškrtávací políčko. Je s barvou a není zaškrtnuta. Vidím to na řádku vzorců =ALS(G7="";"☐";"⬛") (Myslím, že ALS je IF. Můj jazyk je nastaven na holandštinu). Už jsem hledal, ale žádné výsledky. Neexistuje žádná kontrola formátu, ve vlastnostech také nic nevidím.
Tento komentář byl moderátorem webu minimalizován
můžu to udělat v google listu?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění