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 af funktioner. I de fleste situationer er disse funktioner tilstrækkelige til at få arbejdet gjort. 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 tal 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 (rngSomRækkevidde)

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



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

IngencelleSomRækkevidde

4. Vi ønsker at kontrollere hver celle i et tilfældigt valgt interval (dette interval kan være af enhver størrelse). I Excel VBA kan du bruge For Hver Næste løkke til dette. Tilføj følgende kodelinjer:

Til HvercelleIrng

Næstecelle

Bemærk: celle er tilfældigt valgt her, du kan bruge ethvert navn.

hvordan man bruger tekst til kolonner i Excel

5. Dernæst kontrollerer vi for hver værdi i dette interval, om den er jævn eller ej. Vi bruger Mod-operatøren til dette. Mod-operatøren giver resten af ​​en division. For eksempel er 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 ikke. 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-sløjfen.

Hviscelle.VærdiMod2 = 0Derefter

Ende Hvis

6. Kun hvis denne sætning 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 tal i et tilfældigt valgt område.

Resultat:

hvordan man skriver e i Excel

Brugerdefineret funktionsresultat

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

2/5 Færdig! Lær mere om funktioner og subs>
Gå til næste kapitel: Ansøgningsobjekt



^