Přejít k hlavnímu obsahu

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ší 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

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...

Popis


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations