Du kan aktivere en makro i et Excel -ark, når en celle er lig med en foruddefineret værdi ved hjælp af følgende metoder:
1. Brug af Arbejdsark Skift begivenhed:
* trin:
1. Højreklik på På fanen Ark og vælg " Vis kode ".
2. I VBA -editoren skal du vælge " regneark "Fra" objektet "Dropdown og" Ændring "Fra" proceduren "Dropdown.
3. Indtast følgende kode:
`` VBA
Privat sub -regneark_change (ByVal -mål som rækkevidde)
Hvis Target.Address ="$ A $ 1", så udskift "$ A $ 1" med celleadressen
Hvis Target.Value ="YourPreDeFinedValue", så
Ring til YourMacroname 'Udskift "YourMacroname" med det faktiske makrobavne
Slut hvis
Slut hvis
Slut sub
`` `
* Udskift "$ A $ 1" `med den faktiske celle -adresse, du vil overvåge.
* Udskift `" YourProDeFinedValue "` med den værdi, du vil udløse makroen.
* Udskift `" Yourmacroname "` med det faktiske navn på den makro, du vil køre.
* Forklaring:
* Begivenheden `worksheark_change` udløser, når en celleværdi ændres i arket.
* Koden kontrollerer, om den ændrede celle er den specificerede celle, og om dens værdi matcher den foruddefinerede værdi.
* Hvis begge betingelser er opfyldt, kalder det den specificerede makro.
2. Brug af datavalidering:
* trin:
1. Vælg Den celle, du vil overvåge.
2. gå til data Tab og klik på Datavalidering .
3. i indstillingerne Fanen, vælg brugerdefineret Fra tillad dropdown.
4. i formlen felt, indtast:
`` `
=A1 ="YourPreDeFinedValue"
`` `
* Udskift `" YourProDeFinedValue "` med den faktiske værdi, du vil udløse makroen.
5. Gå til fejl alarm Fanen og vælg Vis fejl alarm, efter at ugyldige data er indtastet .
6. I fejlmeddelelsen Felt, indtast følgende:
`` `
Denne celle skal indeholde værdien "YourProDeFinedValue"
`` `
* Udskift `" YourProDeFinedValue "` med den faktiske værdi.
7. Klik på OK for at gemme indstillingerne.
8. Højreklik på på cellen og vælg " tildel makro ".
9. Vælg den makro, du vil køre, og klik på OK .
* Forklaring:
* Datavalidering begrænser cellen til kun at acceptere den foruddefinerede værdi.
* Når brugeren indtaster en ugyldig værdi, vises en fejlmeddelelse, og den makro, der er tildelt cellen, udføres.
3. Brug af en formel med en regneark_calculate begivenhed:
* trin:
1. Opret En formel i en skjult celle, der evaluerer til 'sandt', når den overvågede celle er lig med den foruddefinerede værdi. For eksempel i celle `B1`:
`` `
=A1 ="YourPreDeFinedValue"
`` `
* Udskift `" YourProDeFinedValue "` med den faktiske værdi.
2. Højreklik på På fanen Ark og vælg " Vis kode ".
3. i VBA -redaktøren, vælg " regneark "Fra" objektet "Dropdown og" Beregn "Fra" proceduren "Dropdown.
4. Indtast følgende kode:
`` VBA
Privat sub -regneark_calculate ()
Hvis rækkevidde ("B1"). Værdi =sandt derefter 'Udskift "B1" med cellen, der indeholder formlen
Ring til YourMacroname 'Udskift "YourMacroname" med det faktiske makrobavne
Rækkevidde ("B1"). Værdi =falsk 'Nulstil cellen til falsk
Slut hvis
Slut sub
`` `
* Udskift `" B1 "med den faktiske celleadresse, der indeholder formlen.
* Udskift `" Yourmacroname "` med det faktiske navn på den makro, du vil køre.
* Forklaring:
* Begivenheden `regneark_calculate 'udløser, når der opstår en beregning i arket.
* Koden kontrollerer, om værdien i formelcellen er 'sand'.
* Hvis det er 'sandt', kalder det den specificerede makro og nulstiller derefter formelcellen til 'falsk' for at forhindre gentagen udførelse.
Vælg den bedste metode baseret på dine specifikke krav og kompleksiteten i dit regneark.
