Hoe een macro uitvoeren op basis van een celwaarde in Excel?
Stel dat ik meerdere macrocodes heb in mijn werkboek, en nu wil ik deze codes uitvoeren op basis van de celwaarde. In dit artikel zal ik het hebben over verschillende situaties waarmee je mogelijk te maken hebt gehad tijdens je dagelijkse werk met Excel.
Macro uitvoeren of activeren als celwaarde gelijk is aan specifieke tekst met VBA-code
Macro uitvoeren of activeren als celwaarde groter of kleiner is dan een specifieke waarde met VBA-code
Bijvoorbeeld, als de waarde in cel A1 tussen 10 en 50 ligt, voer macro1 uit, en als de waarde groter is dan 50, voer macro2 uit. Om dit probleem in Excel op te lossen, pas dan de volgende VBA-code toe.
1. Klik met de rechtermuisknop op het bladtabblad waarop je de macro wilt uitvoeren op basis van een celwaarde, en kies dan Weergave Code uit het contextmenu. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege Module:
VBA-code: Macro uitvoeren 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:
A1 is de cel die de specifieke waarde bevat waarop je 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 als de waarde groter is dan 50, Macro2 wordt uitgevoerd.
Pas deze macronamen en criteria aan naar wens, en je kunt ook meer criteria toevoegen volgens het Case-script.
2. Sla daarna deze codewindow op en sluit het, nu zal, wanneer de waarde die je invoert tussen 10 en 50 ligt in cel A1, Macro1 worden geactiveerd, en als de ingevoerde waarde groter is dan 50, wordt Macro2 uitgevoerd.
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Macro uitvoeren of activeren als celwaarde gelijk is aan specifieke tekst met VBA-code
Als je de macro wilt activeren op basis van specifieke tekst in een cel, bijvoorbeeld om macro1 uit te voeren als de tekst “Delete” wordt ingevoerd, en macro2 uit te voeren als de tekst “Insert” wordt getypt. De volgende code kan je helpen.
1. Klik met de rechtermuisknop op het blad waarop je de macro wilt uitvoeren op basis van de celwaarde, en kies dan Weergave Code uit het contextmenu. Kopieer en plak in het geopende Microsoft Visual Basic for Applications-venster de volgende code in de lege Module:
VBA-code: Macro uitvoeren 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 waarop je macros wilt uitvoeren, en Macro1 en Macro2 zijn de macros die je wilt uitvoeren op basis van de tekst. Pas ze aan naar wens.
2. Sla deze code vervolgens op en sluit het venster. Nu, wanneer je de tekst “Delete” invoert in cel A1, wordt macro1 geactiveerd, en als de tekst “Insert” wordt ingevoerd, wordt macro2 uitgevoerd.
Gerelateerde artikelen:
Hoe een macro uitvoeren wanneer de celwaarde verandert in Excel?
Hoe een macro automatisch uitvoeren vóór het afdrukken in Excel?
Hoe een macro uitvoeren op basis van een waarde geselecteerd uit een keuzelijst in Excel?
Hoe een macro uitvoeren door op hyperlinks te klikken in Excel?
Hoe een macro uitvoeren wanneer een blad wordt geselecteerd uit een werkboek?
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