Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe een macro uit te voeren 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 het hebben over verschillende situaties die u mogelijk ondervindt in uw dagelijkse werk bij het gebruik van Excel.

Voer een macro uit of activeer deze als de celwaarde groter of kleiner is dan een specifieke waarde met VBA-code

Voer een macro uit of activeer deze als de celwaarde gelijk is aan de specifieke tekst met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Voer een 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 voert u macro50 uit als de waarde groter is dan 2. Voer de volgende VBA-code uit om deze taak in Excel op te lossen.

1. Klik met de rechtermuisknop op de bladtab die u de macro wilt laten uitvoeren op basis van een celwaarde en kies vervolgens Bekijk code vanuit het contextmenu en in de geopende Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: voer 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

doc-run-macro op basis van celwaarde 1

Notes: In de bovenstaande code:

A1 is de cel die de specifieke waarde bevat waarop u de macro wilt uitvoeren op basis van;

Geval 10 naar 50: Macro1: dit betekent Macro10 uitvoeren als de waarde tussen 50 en 1 ligt.

Case is> 50: Macro2: het betekent dat als de waarde groter is dan 50, Macro2 wordt uitgevoerd.

Wijzig de macro-namen en -criteria van deze scripties naar uw behoefte, en u kunt ook meer criteria toevoegen volgens de Geval scripts.

2. Bewaar en sluit vervolgens dit codevenster nu, wanneer de waarde die u invoert zich tussen 10 en 50 in cel A1 bevindt, wordt Macro1 geactiveerd, als de ingevoerde waarde groter is dan 50, wordt Macro2 uitgevoerd.


pijl blauwe rechterbel Voer een macro uit of activeer deze als de celwaarde gelijk is aan de specifieke tekst met VBA-code

Als u de macro wilt activeren op basis van specifieke tekst in een cel, bijvoorbeeld om de macro1 uit te voeren als de tekst "Verwijderen" is ingevoerd, en macro2 uit te voeren als tekst "Invoegen" is getypt. De volgende code kan u 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 de geopende Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:

VBA-code: voer macro uit als de celwaarde groter of kleiner is dan:

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 

doc-run-macro op basis van celwaarde 2

Notes: In de bovenstaande code, "Verwijder"En"bijvoegsel"Zijn 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. Verander ze alstublieft naar uw behoefte.

2. Sla vervolgens deze code op en sluit het venster, nu, wanneer u de tekst "Verwijderen" in cel A1 invoert, wordt macro1 geactiveerd, als de tekst "Invoegen" wordt ingevoerd, wordt macro2 uitgevoerd.


Gerelateerde artikelen:

Hoe de macro uit te voeren wanneer de celwaarde in Excel verandert?

Hoe voer ik de macro automatisch uit voordat ik in Excel afdruk?

Hoe een macro uitvoeren op basis van de waarde geselecteerd uit de vervolgkeuzelijst in Excel?

Hoe de macro uit te voeren door op hyperlinks in Excel te klikken?

Hoe voer ik een macro uit wanneer een werkblad wordt geselecteerd uit een werkmap?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mani Chandran · 1 years ago
    I am working with result analysis. In this case, the data in the excel will be like this Name, Sub name , Crade. Now,i want to find the all pass or successful candidate numbers from the result. How can i get it. Because, i am having 6 different subject and their results in single excel sheet. If student failed in one subject he is not be a successful student. How do remove their name in all the subjects.
  • To post as a guest, your comment is unpublished.
    Siva · 1 years ago
    Requirement:
    Based on the selection
    There will be a dropdown list for following three properties of the same dimension as below.
    And there will be three derived cells which will be derived from the cells (G46,G47 and G48)

    Scenario:
    If I select a value from cost center drop down list , cost center derived cell(K46) should be populated with value selected from cost center drop down list(H46) and the other two derived cells (K47 and k48) should become blank.

    Similarly if I select value from Budget manager drop down list, Budget manager derived cell should be populated with value selected from Budget manager drop down list(H47) and the other two derived cells (K45 and k48) should become blank.
  • To post as a guest, your comment is unpublished.
    Richard · 2 years ago
    Hi, how about if you want to run a macro based on two cells? One cell being text based and the other cell having numerical values? Then you would want to call a macro if the two cells show exactly what you want, like "YES" for the first cell and 1 for the second cell, if not a pop box would show saying "Not Found".