Jak spustit makro při změně hodnoty buňky v aplikaci Excel?
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
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
Poznámka: 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.
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
Poznámka: 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 pro 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 nyní bezplatnou zkušební verzi Kutools pro Excel!
Kutools pro 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
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...
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!