300 Primeri

Uporabniško določena funkcija

User Defined Function

Spodaj si bomo ogledali program v Excel VBA ki ustvarja a Uporabniško določena funkcija . Excel ima veliko zbirko funkcij. V večini primerov te funkcije zadostujejo za delo. V nasprotnem primeru lahko ustvarite svojo funkcijo, imenovano User Defined Function oz funkcija Excel po meri . Do uporabniško določene funkcije lahko dostopate tako kot do katere koli druge Excelove funkcije.

Ustvariti želimo funkcijo, imenovano SUMEVENNUMBERS, ki najde vsoto parnih števil naključno izbranega obsega.



Stanje:



Uporabniško določena funkcija v Excelu VBA

Uporabniško določene funkcije je treba namestiti v modul.



1. Odprite Urejevalnik Visual Basic in kliknite Vstavi, modul.

kako najti razmerje dveh števil

2. Dodajte naslednjo vrstico kode:

FunkcijaSUMEVENNUMBERS (rngKotObseg)

Ime naše funkcije je SUMEVENNUMBERS. Del med oklepaji pomeni, da za vnos damo obseg programa Excel VBA. Našo ponudbo imenujemo rng, vendar lahko uporabite katero koli ime.



3. Nato razglasimo objekt Range in ga pokličemo v celico.

NobenegacelicaKotDoseg

4. Vsako celico želimo preveriti v naključno izbranem obsegu (ta obseg je lahko poljubne velikosti). V Excelu VBA lahko za to uporabite zanko Za vsako naslednjo. Dodajte naslednje vrstice kode:

Za VsakcelicaVrng

Naslednjicelica

Opomba: celica je tukaj naključno izbrana, lahko uporabite katero koli ime.

odštevanje ene celice od druge v excelu

5. Nato za vsako vrednost v tem obsegu preverimo, ali je sodo ali ne. Za to uporabljamo operaterja Mod. Operater Mod da preostanek delitve. Na primer, 7 mod 2 = 1, ker je 7, deljeno z 2, enako 3 s preostankom 1. Po tem lahko enostavno preverimo, ali je število sodo ali ne. Samo če je preostanek števila, deljeno z 2, 0, je število sodo. Na primer, 8 mod 2 = 0, ker je 8, deljeno z 2, enako 4 s preostankom 0. V zanko Za vsako naslednjo dodajte naslednjo izjavo If.

Čecelica.VrednostProti2 = 0Potem

Konec Če

6. Samo če je ta trditev resnična, vrednost dodamo SUMEVENNUMBERS. V stavek If dodajte naslednjo vrstico kode.

SUMEVENNUMBERS = SUMEVENNUMBERS + celica.Vrednost

7. Ne pozabite končati funkcije (zunaj zanke).

Konec Funkcija

8. Zdaj lahko s to funkcijo, tako kot katero koli drugo Excelovo funkcijo, poiščete vsoto parnih števil naključno izbranega obsega.

Rezultat:

kako uporabiti sedanjo vrednost v

Rezultat uporabniško določene funkcije

Dobro opravljeno! Tako enostavne so uporabniško določene funkcije v Excelu VBA. Opomba: ta funkcija je na voljo samo v tem delovnem zvezku.

2/5 Dokončano! Več o funkcijah in podprogramih>
Pojdi na naslednje poglavje: Objekt aplikacije



^