300 Eksempler

Brugerdefineret funktion

User Defined Function

Nedenfor ser vi på et program i Excel VBA der skaber en Brugerdefineret funktion . Excel har en stor samling funktioner. I de fleste situationer er disse funktioner tilstrækkelige til at få arbejdet udført. Hvis ikke, kan du oprette din egen funktion kaldet Brugerdefineret funktion eller brugerdefineret Excel -funktion . Du kan få adgang til en brugerdefineret funktion ligesom enhver anden Excel -funktion.



Vi vil oprette en funktion kaldet SUMEVENNUMBERS, der finder summen af ​​lige numre i et tilfældigt valgt område.

Situation:





Brugerdefineret funktion i Excel VBA

Brugerdefinerede funktioner skal placeres i et modul.



1. Åbn Visual Basic Editor og klik på Indsæt, modul.

hvordan man finder medianen på excel

2. Tilføj følgende kodelinje:

FungereSUMEVENNUMBERS (rng)SomRækkevidde)

Navnet på vores funktion er SUMEVENNUMBERS. Delen mellem parenteserne betyder, at vi giver Excel VBA et område som input. Vi navngiver vores sortiment rng, men du kan bruge et hvilket som helst navn.

3. Dernæst erklærer vi et Range -objekt og kalder det celle.

IngencelleSomRækkevidde

4. Vi vil kontrollere hver celle i et tilfældigt valgt område (dette område kan være af enhver størrelse). I Excel VBA kan du bruge For Every Next loop til dette. Tilføj følgende kodelinjer:

Til HvercelleIrng

Næstecelle

Bemærk: celle vælges tilfældigt her, du kan bruge et hvilket som helst navn.

hvordan man bruger tekst til kolonner i Excel

5. Dernæst kontrollerer vi for hver værdi i dette område, om den er lige eller ej. Vi bruger Mod -operatøren til dette. Mod -operatøren giver resten af ​​en division. For eksempel 7 mod 2 = 1, fordi 7 divideret med 2 er lig med 3 med en rest på 1. Når det er sagt, er det let at kontrollere, om et tal er lige eller ej. Kun hvis resten af ​​et tal divideret med 2 er 0, er tallet lige. For eksempel er 8 mod 2 = 0, fordi 8 divideret med 2 er lig med 4 med en rest på 0. Tilføj følgende If -sætning til For Every Next -løkken.

Hviscelle.VærdiMod2 = 0Derefter

Ende Hvis

6. Kun hvis denne erklæring er sand, tilføjer vi værdien til SUMEVENNUMBERS. Tilføj følgende kodelinje i If -sætningen.

SUMEVENNUMBERS = SUMEVENNUMBERS + celle.Værdi

7. Glem ikke at afslutte funktionen (uden for sløjfen).

Ende Fungere

8. Nu kan du bruge denne funktion, ligesom enhver anden Excel -funktion, til at finde summen af ​​lige numre i et tilfældigt valgt område.

Resultat:

hvordan man skriver e i Excel

Brugerdefineret funktionsresultat

Godt klaret! Så nemt er brugerdefinerede funktioner i Excel VBA. Bemærk: Denne funktion er kun tilgængelig i denne projektmappe.

2/5 gennemført! Lær mere om funktioner og subs>
Gå til næste kapitel: Applikationsobjekt



^