Jak automaticky spustit makro, když se změní výsledek vzorce buňky?
Předpokládejme, že mám seznam vzorců založených na datech ve sloupci A a sloupci B, jak je znázorněno na následujícím snímku obrazovky, nyní chci automaticky spustit konkrétní kód makra, když se změní výsledek vzorce se změnou relativních buněk. Existuje nějaký dobrý nápad vyřešit tuto práci v aplikaci Excel?
Automaticky spustit makro, když se výsledek vzorce buňky změní s kódem VBA
Automaticky spustit makro, když se výsledek vzorce buňky změní s kódem VBA
Následující kód VBA vám pomůže provést konkrétní kód automaticky, když se změní buňka výsledku vzorce, udělejte to takto:
1. Pravým tlačítkem klikněte na kartu listu, kterou chcete použít, a poté vyberte Zobrazit kód z kontextového menu 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: Automaticky spustit makro při změně výsledku vzorce buňky:
Private Sub Worksheet_Calculate()
'Updateby Extendoffice
Dim Xrg As Range
Set Xrg = Range("C2:C8")
If Not Intersect(Xrg, Range("C2:C8")) Is Nothing Then
Macro1
End If
End Sub
Pozor: Ve výše uvedeném kódu, C2: C8 je rozsah buněk vzorce, který chcete použít ,maco1 je název makra, které chcete spustit automaticky. Změňte to prosím podle svých potřeb.
2. Poté uložte a zavřete toto okno kódu, nyní, když se data v rozsahu A2: B8 změní tak, že způsobí změnu výsledku vzorce, váš konkrétní kód makra se spustí najednou.
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!