Hoe automatisch een macro uitvoeren wanneer het resultaat van de celformule verandert?
Stel dat ik een lijst met formules heb op basis van de gegevens in kolom A en kolom B zoals in de volgende schermafbeelding, nu wil ik automatisch een specifieke macrocode uitvoeren wanneer het formuleresultaat verandert met de relatieve cellen veranderen. Is er een goed idee om deze taak in Excel op te lossen?
Voer automatisch een macro uit wanneer het resultaat van de celformule verandert met VBA-code
Voer automatisch een macro uit wanneer het resultaat van de celformule verandert met VBA-code
De volgende VBA-code kan u helpen om een specifieke code automatisch uit te voeren wanneer de cel van het formule-resultaat verandert, doe dit als volgt:
1. Klik met de rechtermuisknop op de bladtab die u wilt gebruiken en kies vervolgens Bekijk code vanuit het contextmenu, in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de volgende code in de lege module:
VBA-code: voer de macro automatisch uit wanneer het resultaat van de celformule 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
Note: In de bovenstaande code, C2: C8 is het bereik van formulecellen dat u wilt gebruiken,maco1 is de naam van de macro die u automatisch wilt uitvoeren. Wijzig het naar uw behoefte.
2. Sla vervolgens dit codevenster op en sluit het, nu, wanneer de gegevens in het bereik A2: B8 veranderen om ervoor te zorgen dat het formuleresultaat verandert, wordt uw specifieke macrocode onmiddellijk geactiveerd.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!