Přejít k hlavnímu obsahu

Jak spustit makro při změně hodnoty buňky v aplikaci Excel?

Autor: Xiaoyang Naposledy změněno: 2024-10-24

Normálně v aplikaci Excel můžeme stisknutím klávesy F5 nebo tlačítka Spustit spustit kód VBA. Zkusili jste ale někdy spustit konkrétní kód makra, když se změní hodnota buňky? V tomto článku představím několik rychlých triků, jak zvládnout tuto práci v aplikaci Excel.

Spustit nebo zavolat makro, když se konkrétní hodnota buňky změní s kódem VBA

Spustit nebo zavolat makro, když se změní libovolná hodnota buňky v rozsahu s kódem VBA


šipka modrá pravá bublina Spustit nebo zavolat makro, když se konkrétní hodnota buňky změní s kódem VBA

Chcete-li spustit kód makra změnou hodnoty buňky, následující kód VBA vám může udělat laskavost, udělejte to takto:

1. Klikněte pravým tlačítkem na kartu listu, kterou chcete spustit, pokud se změní hodnota buňky, a poté vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Spustit makro při změně hodnoty buňky:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call Mymacro
    End If
End Sub

zvolte Zobrazit kód z kontextové nabídky a poté zkopírujte a vložte kód do modulu

Hodnocení: Ve výše uvedeném kódu, A1 je konkrétní buňka, na které chcete spustit kód, Mymakro je název makra, které chcete spustit. Změňte je prosím podle svých potřeb.

2. A poté uložte a zavřete okno s kódem, nyní, když zadáte nebo změníte hodnotu v buňce A1, konkrétní kód se spustí najednou.


šipka modrá pravá bublina Spustit nebo zavolat makro, když se změní libovolná hodnota buňky v rozsahu s kódem VBA

Pokud chcete spustit nebo aktivovat makro při změně hodnoty buňky v rozsahu buňky, může vám pomoci následující kód.

1. Klikněte pravým tlačítkem na kartu listu, kterou chcete spustit, pokud se změní hodnota buňky, a poté vyberte Zobrazit kód z kontextového menu a v otevřeném Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte následující kód do prázdného modulu:

Kód VBA: Spustit makro, když se hodnota kterékoli buňky změní v rozsahu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
Call Mymacro
End If
End Sub

zvolte Zobrazit kód z kontextové nabídky a poté zkopírujte a vložte kód do modulu

Hodnocení: Ve výše uvedeném kódu, A1: B100 jsou konkrétní buňky, na kterých chcete spustit kód, Mymakro je název makra, které chcete spustit. Změňte je prosím podle svých potřeb.

2. A poté uložte a zavřete okno s kódem, nyní, když zadáte nebo změníte hodnotu v kterékoli buňce A1: B100, konkrétní kód se provede najednou.


Odeberte všechna makra z více sešitů

Kutools for Excel's Dávkové odebrání všech maker nástroj vám pomůže odstranit všechna makra z více sešitů, jak potřebujete. Stáhněte si a vyzkoušejte zdarma Kutools for Excel teď!

odstranit všechna makra pomocí kutools

Kutools for Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!


Související články:

Jak spustit makro automaticky před tiskem v aplikaci Excel?

Jak spustit makro na základě hodnoty buňky v aplikaci Excel?

Jak spustit makro na základě hodnoty vybrané z rozevíracího seznamu v aplikaci Excel?

Jak spustit makro kliknutím na hypertextové odkazy v aplikaci Excel?

Jak spustit makro při výběru listu ze sešitu?

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  |  vzývat Kutools Funkce...
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
Použijte Kutools ve vašem preferovaném jazyce – podporuje angličtinu, španělštinu, němčinu, francouzštinu, čínštinu a více než 40 dalších!

Vylepšete si své excelové dovednosti s Kutools for Excela 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 výrazně vám usnadňuje 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!