Hoe een macro automatisch uitvoeren wanneer het resultaat van een cel formule verandert?
Stel dat ik een lijst met formules heb die gebaseerd zijn op de gegevens in kolom A en kolom B, zoals in de volgende schermafbeelding te zien is. Nu wil ik een specifieke macrocode automatisch uitvoeren wanneer het resultaat van de formule verandert door wijzigingen in de bijbehorende cellen. Is er een goede manier om dit in Excel te doen?
Macro automatisch uitvoeren wanneer het resultaat van een cel formule verandert met VBA-code
Macro automatisch uitvoeren wanneer het resultaat van een cel formule verandert met VBA-code
De volgende VBA-code kan u helpen om een specifieke code automatisch uit te voeren wanneer de cel met het formuleresultaat verandert, doe het als volgt:
1. Klik met de rechtermuisknop op het tabblad van het werkblad dat u wilt gebruiken en kies vervolgens Weergave Code uit het contextmenu. In het geopende Microsoft Visual Basic for Applications-venster kopieert en plakt u de volgende code in de lege Module:
VBA-code: Macro automatisch uitvoeren wanneer het resultaat van een cel formule verandert:
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
Opmerking: In de bovenstaande code is C2:C8 het bereik van de formulecellen dat u wilt gebruiken, maco1 is de naam van de macro die u automatisch wilt uitvoeren. Pas dit aan naar uw behoefte.
2. Sla daarna deze codevenster op en sluit het. Nu wordt uw specifieke macrocode onmiddellijk geactiveerd wanneer de gegevens in het bereik A2:B8 veranderen, wat leidt tot wijzigingen in het formuleresultaat.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen