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

Jak změnit zadanou hodnotu buňky nebo barvu, když je v aplikaci Excel zaškrtnuto políčko?

Tento článek hovoří o změně hodnoty nebo barvy určené buňky pomocí zaškrtávacího políčka. Když je například zaškrtnuto určité políčko, hodnota nebo barva pozadí určené buňky se automaticky změní. Postupujte podle níže uvedených metod krok za krokem.

Pokud je zaškrtnuto políčko u vzorce, změňte zadanou hodnotu buňky
Pokud je zaškrtnuto políčko u kódu VBA, změňte zadanou hodnotu buňky
Pokud je zaškrtnuto políčko u kódu VBA, změňte určenou barvu buňky


Pokud je zaškrtnuto políčko u vzorce, změňte zadanou hodnotu buňky

Předpokládejme, že potřebujete buňku A1 naplnit hodnotou „test“, když je zaškrtnuto políčko 1. A zrušte zaškrtnutí políčka buňku. Postupujte prosím následovně.

Nejprve musíte propojit zaškrtávací políčko s určitou buňkou a poté k tomu použít vzorec.

1. Chcete-li propojit zaškrtávací políčko s určitou buňkou, vyberte ji, poté do řádku vzorců zadejte = odkaz na buňku a stiskněte klávesu Enter. Zde propojím zaškrtávací políčko 1 s buňkou C2 se zadáním = C2 po zaškrtnutí políčka do řádku vzorců.

Zaškrtávací políčko Ovládací prvek ActiveX klikněte pravým tlačítkem a vyberte Nemovitosti z nabídky pravého tlačítka myši. A v Nemovitosti V dialogovém okně zadejte propojenou buňku do Propojená buňka pole a poté zavřete dialogové okno. Viz screenshot:

2. Vyberte buňku, kterou potřebujete změnit její hodnotu (zde vyberu A1), pak zadejte vzorec = IF (C2, "Test", "") do řádku vzorců a stiskněte vstoupit klíč. Viz snímek obrazovky:

Poznámka: Ve vzorci je C2 propojenou buňkou zaškrtávacího políčka 1, „Test“ je hodnota, kterou musíte zobrazit v buňce A1, když je zaškrtnuto toto políčko.

Výsledky můžete vidět níže, snímky obrazovky zobrazené po zaškrtnutí nebo odškrtnutí příslušného zaškrtávacího políčka.


Pokud je zaškrtnuto políčko u kódu VBA, změňte zadanou hodnotu buňky

Můžete také změnit zadanou hodnotu buňky, když je políčko zaškrtnuto kódem VBA. Postupujte prosím následovně.

1. Klikněte pravým tlačítkem na kartu List s hodnotou buňky, kterou je třeba změnit na základě zaškrtávacího políčka, a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

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

Kód VBA: Změňte zadanou hodnotu buňky, když je zaškrtnuto políčko

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

Poznámka: V kódu, ChekBox 1 je název Zaškrtávací políčko (ovládací prvky ActiveX). Můžete to změnit podle potřeby.

3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

4. Vyberte prázdnou buňku (A1), u které chcete změnit její hodnotu, na základě zaškrtávacího políčka a zaškrtněte políčko 1 v listu. Teď a Kutools pro Excel Zobrazí se dialogové okno, zadejte hodnotu, kterou chcete vyplnit do vybrané prázdné buňky, a poté klikněte na OK knoflík. Viz screenshot:

Poté se zadaná hodnota okamžitě zobrazí ve vybrané buňce. Když zrušíte zaškrtnutí tohoto políčka, buňka bude prázdná.

Poznámka: Tento kód vám připomene kruhové zadání textové hodnoty, když pokaždé zaškrtnete políčko.


Pokud je zaškrtnuto políčko u kódu VBA, změňte určenou barvu buňky

Tato část vám ukáže, jak změnit určenou barvu buňky, když je políčko zaškrtnuto kódem VBA.

1. Klikněte pravým tlačítkem na ikonu Tab s barvou buňky, kterou musíte změnit na základě zaškrtávacího políčka, 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: Změňte určenou barvu buňky, když je zaškrtnuto políčko

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

Poznámka: V kódu, ChekBox 1 je název Zaškrtávací políčko (ovládací prvky ActiveX). Můžete to změnit podle potřeby.

3. Vyberte buňku, kterou potřebujete změnit její barvu pozadí, a poté zaškrtněte políčko. Můžete vidět, že barva výplně vybrané buňky se změní na červenou. A vybraná buňka bude po zrušení zaškrtnutí políčka vyplněna žádnou barvou pozadí. Zobrazit snímky obrazovky:


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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné 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 snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL