/ / User Defined Function u programu Excel VBA

Korisnička funkcija u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA koji stvara a Korisnička funkcija, Excel ima veliku zbirku funkcija. U većini situacija te funkcije su dovoljne za obavljanje posla. Ako ne, možete stvoriti vlastitu funkciju pod nazivom User Defined Function ili prilagođenu funkciju programa Excel, Možete pristupiti definiranoj funkciji korisnika kao i svaka druga funkcija programa Excel.

Želimo stvoriti funkciju pod nazivom SUMEVENNUMBERS koja pronalazi zbroj parnih brojeva slučajno odabranog raspona.

Situacija:

Korisnička funkcija u programu Excel VBA

Korisničke funkcije moraju biti postavljene u modul.

1. Otvorite Visual Basic Editor i kliknite Insert, Module.

2. Dodajte sljedeću liniju koda:

Function SUMEVENNUMBERS(rng As Range)

Naziv naše funkcije je SUMEVENNUMBERS. Dio između zagrada znači da Excel VBA daje raspon kao ulaz. Nazvali smo naš raspon rng, ali možete koristiti bilo koji naziv.

3. Dalje, izjavljujemo objekt Raspon i nazovemo ga.

Dim cell As Range

4. Želimo provjeriti svaku stanicu u nasumično odabranom rasponu (ovaj raspon može biti bilo koje veličine). U programu Excel VBA možete upotrijebiti za svaku sljedeću petlju. Dodajte sljedeće retke kôda:

For Each cell In rng

Next cell

Napomena: ovdje je slučajno odabrana stanica, možete upotrijebiti bilo koje ime.

5. Zatim provjeravamo svaku vrijednost u tom rasponu, bez obzira jeste li točni ili ne. Za to koristimo Mod operatera. Mod operater daje ostatak podjele. Dakle, 7 mod 2 bi 1. 7 podijeljeno s 2 (3 puta) da bi ostalo od 1. Nakon što je ovo rekao, lako je provjeriti je li brojčanik jednak ili ne. Samo ako je ostatak broja podijeljen s 2 jednak 0, broj je jednak. 8 mod 2 daje 0, 8 je podijeljen sa 2 točno 4 puta, a stoga 8 je čak ijedan. Dodajte sljedeću Ifovu izjavu na Svaku sljedeću petlju.

If cell.Value Mod 2 = 0 Then

End If

6. Samo ako je ova izjava istinita, dodamo vrijednost SUMEVENNUMBERS. Dodajte sljedeću liniju kodova u If izjavi.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. Ne zaboravite završiti funkciju (izvan petlje).

End Function

8. Sada možete koristiti ovu funkciju, baš kao i bilo koja druga funkcija programa Excel, kako biste pronašli zbroj parnih brojeva slučajno odabranog raspona.

Proizlaziti:

Rezultat funkcije definirane korisnikom

Dobro napravljeno! Napomena: Ova je funkcija dostupna samo u ovoj radnoj knjizi.

Također pročitajte: