Hoe voert u een macro uit op basis van een celwaarde in Excel?
Stel dat u meerdere macro’s in uw werkmap hebt en deze nu wilt uitvoeren op basis van een celwaarde. In dit artikel bespreek ik verschillende scenario’s die u mogelijk tegenkomt tijdens het dagelijks gebruik van Excel.
Voer een macro uit of activeer deze als cel Waarde is gelijk aan specifieke tekst bevat met VBA-code
Voer een macro uit of activeer deze als de celwaarde groter of kleiner is dan een specifieke waarde met VBA-code
Bijvoorbeeld: als de waarde in cel A1 tussen 10 en 50 ligt, wordt macro1 uitgevoerd; is de waarde groter dan 50, dan wordt macro2 uitgevoerd. Om deze taak in Excel uit te voeren, past u de volgende VBA-code toe.
1. Klik met de rechtermuisknop op het bladtab waarop u de macro wilt uitvoeren op basis van een celwaarde en kies vervolgens Code weergeven in het contextmenu. Plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege module:
VBA-code: voer macro uit als celwaarde groter of kleiner is dan:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Opmerking: in de bovenstaande code:
A1is de cel die de specifieke waarde bevat op basis waarvan u de macro wilt uitvoeren;
Case 10 To 50: Macro1: dit betekent dat als de waarde tussen 10 en 50 ligt, Macro1 wordt uitgevoerd;
Case Is > 50: Macro2: dit betekent dat wanneer de waarde groter is dan 50, Macro2 wordt uitgevoerd.
Pas de namen van deze macro's en criteria naar uw wens aan. U kunt ook extra criteria toevoegen door het Case-script te volgen.
2. Sluit vervolgens dit codevenster. Vanaf nu wordt Macro1 geactiveerd wanneer u een waarde tussen 10 en 50 invoert in cel A1; als de ingevoerde waarde groter is dan 50, wordt Macro2 uitgevoerd.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Voer een macro uit of activeer deze als cel Waarde is gelijk aan specifieke tekst bevat met VBA-code
Als u een macro wilt activeren op basis van specifieke tekst in een cel – bijvoorbeeld macro1 uitvoeren zodra „Delete” wordt ingevoerd en macro2 zodra „Insert” wordt getypt – dan helpt de volgende code u daarbij.
1. Klik met de rechtermuisknop op het blad waarop u de macro wilt uitvoeren op basis van de celwaarde en kies vervolgens Code weergeven in het contextmenu. Plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege module:
VBA-code: voer macro uit als celwaarde een specifieke tekst is
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Opmerking: in de bovenstaande code zijn „Delete” en „Insert” de celteksten op basis waarvan u macro’s wilt uitvoeren, en zijn Macro1 en Macro2 de macro’s die u wilt uitvoeren op basis van die tekst. Pas deze naar wens aan.
2. Sla deze code op en sluit dit venster. Vanaf nu wordt macro1 geactiveerd zodra u de tekst „Delete” in cel A1 invoert; wanneer u „Insert” invoert, wordt macro2 uitgevoerd.
Gerelateerde artikelen:
Hoe voert u een macro uit zodra de celwaarde in Excel verandert?
Hoe voert u automatisch een macro uit vóór het afdrukken in Excel?
Hoe voert u een macro uit op basis van de waarde die u in een keuzelijst in Excel selecteert?
Hoe voert u een macro uit door op hyperlinks te klikken in Excel?
Hoe voert u een macro uit zodra een werkblad wordt geselecteerd in een werkmap?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins