Hoe een macro uitvoeren op basis van de celwaarde in Excel?
Stel dat ik meerdere macrocodes in mijn werkmap heb en nu wil ik deze codes uitvoeren op basis van de celwaarde. In dit artikel zal ik ingaan op verschillende situaties die u kunt tegenkomen in uw dagelijkse werk bij het gebruik van Excel.
Voer de macro uit of activeer deze als de celwaarde gelijk is aan specifieke tekst met VBA-code
Voer de macro uit of activeer deze als de celwaarde groter of kleiner is dan een specifieke waarde met VBA-code
Als de waarde in cel A1 bijvoorbeeld tussen 10 en 50 ligt, voert u macro1 uit en als de waarde groter is dan 50, voert u macro2 uit. Om deze klus in Excel op te lossen, past u de volgende VBA-code toe.
1. Klik met de rechtermuisknop op de bladtab waarop u de macro wilt uitvoeren op basis van een celwaarde en kies vervolgens Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak de volgende code in de lege module:
VBA-code: voer een macro uit als de 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
Note: In de bovenstaande code:
A1 is de cel die de specifieke waarde bevat waarop u de macro wilt uitvoeren;
Geval 10 tot 50: Macro1: het betekent dat als de waarde tussen 10 en 50 ligt, Macro1 wordt uitgevoerd;
Geval is> 50: Macro2: dit betekent dat als de waarde groter is dan 50, Macro2 wordt uitgevoerd.
Wijzig deze macronamen en criteria naar uw behoefte, en u kunt ook meer criteria toevoegen volgens de SITUATIE scripts.
2. Sla vervolgens dit codevenster op en sluit het. Als de waarde die u invoert tussen 10 en 50 ligt in cel A1, wordt Macro1 geactiveerd, als de ingevoerde waarde groter is dan 50, wordt Macro2 uitgevoerd.
Voer de macro uit of activeer deze als de celwaarde gelijk is aan specifieke tekst met VBA-code
Als u de macro wilt activeren op basis van specifieke tekst in een cel, bijvoorbeeld om macro1 uit te voeren als de tekst "Verwijderen" is ingevoerd, en macro2 uit te voeren als de tekst "Invoegen" is getypt. De volgende code kan je een plezier doen.
1. Klik met de rechtermuisknop op het blad waarop u de macro wilt uitvoeren op basis van de celwaarde en kies vervolgens Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor applicaties venster, kopieer en plak 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
Note: In de bovenstaande code, "Verwijder"En"Invoegen鈥漐ijn de celteksten waarop u macro's wilt uitvoeren op basis van, en Macro1 en Macro2 zijn de macro's die u wilt uitvoeren op basis van tekst. Wijzig ze naar uw behoefte.
2. Sla vervolgens deze code op en sluit het venster. Als u nu de tekst "Verwijderen" invoert in cel A1, wordt macro1 geactiveerd, als de tekst "Invoegen" wordt ingevoerd, wordt macro2 uitgevoerd.
Gerelateerde artikelen:
Hoe een macro uitvoeren wanneer de celwaarde verandert in Excel?
Hoe macro automatisch uitvoeren voordat u afdrukt in Excel?
Hoe een macro uitvoeren op basis van de geselecteerde waarde in de vervolgkeuzelijst in Excel?
Hoe voer ik een macro uit door op hyperlinks in Excel te klikken?
Hoe voer ik een macro uit wanneer het blad is geselecteerd uit een werkmap?
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!