300 Exempel

Användardefinierad funktion

User Defined Function

Nedan kommer vi att titta på ett program i Excel VBA som skapar en Användardefinierad funktion . Excel har en stor samling funktioner. I de flesta situationer är dessa funktioner tillräckliga för att få jobbet gjort. Om inte kan du skapa din egen funktion som heter User Defined Function eller anpassad Excel -funktion . Du kan komma åt en användardefinierad funktion precis som alla andra Excel -funktioner.





Vi vill skapa en funktion som heter SUMEVENNUMBERS som hittar summan av jämna tal för ett slumpmässigt valt intervall.

Situation:





Användardefinierad funktion i Excel VBA

Användardefinierade funktioner måste placeras i en modul.



1. Öppna Visual Basic Editor och klicka på Infoga, modul.

hur man beräknar endast räntebetalningar i Excel

2. Lägg till följande kodrad:

FungeraSUMEVENNUMBERS (rng)SomRäckvidd)

Namnet på vår funktion är SUMEVENNUMBERS. Delen mellan parenteserna innebär att vi ger Excel VBA ett intervall som input. Vi heter vårt sortiment rng, men du kan använda valfritt namn.

3. Därefter deklarerar vi ett Range -objekt och kallar det cell.

IngencellSomRäckvidd

4. Vi vill kontrollera varje cell i ett slumpmässigt valt område (detta område kan vara av valfri storlek). I Excel VBA kan du använda slingan för varje nästa för detta. Lägg till följande kodrader:

För VarjecellIrng

Nästacell

Obs: cellen väljs slumpmässigt här, du kan använda valfritt namn.

hur man subtraherar två rader i excel

5. Därefter kontrollerar vi för varje värde i detta intervall om det är jämnt eller inte. Vi använder Mod -operatören för detta. Mod -operatören ger resten av en division. Till exempel 7 mod 2 = 1 eftersom 7 dividerat med 2 är lika med 3 med återstoden av 1. Med detta sagt är det enkelt att kontrollera om ett tal är jämnt eller inte. Endast om resten av ett tal dividerat med 2 är 0, är ​​talet jämnt. Till exempel 8 mod 2 = 0 eftersom 8 dividerat med 2 är lika med 4 med återstoden av 0. Lägg till följande If -sats till For Each Next -slingan.

Omcell.VärdeMot2 = 0Sedan

Slutet Om

6. Endast om detta påstående är sant lägger vi till värdet i SUMEVENNUMBERS. Lägg till följande kodrad i if -satsen.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Värde

7. Glöm inte att avsluta funktionen (utanför slingan).

Slutet Fungera

8. Nu kan du använda denna funktion, precis som alla andra Excel -funktioner, för att hitta summan av jämna tal för ett slumpmässigt valt intervall.

Resultat:

hur man väljer alla i Excel

Användardefinierat funktionsresultat

Bra gjort! Så enkelt är användardefinierade funktioner i Excel VBA. Obs! Den här funktionen är endast tillgänglig i denna arbetsbok.

2/5 klar! Läs mer om funktioner och subs>
Gå till nästa kapitel: Applikationsobjekt



^