/ / Custom Prosječna funkcija u programu Excel VBA

Custom Average Function u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA što stvara a Korisnička funkcija koji izračunava prosječan slučajno odabranog raspona, isključujući jednu ili više vrijednosti koje su izuzetne i ne bi trebale biti prosječne.

Situacija:

Custom Average Function 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 CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

Naziv naše funkcije je CUSTOMAVERAGE. Dio između zagrada znači da Excel VBA daje niz i dvije integer varijable kao ulaz. Nazivamo raspon tona rng, jednu varijablu Integer koju nazivamo nižom, a jednu varijablu Integer zovemo gornju, ali možete koristiti bilo koja imena.

3. Dalje, izjavljujemo objekt raspona i dvije varijable tipa Integer. Pozivamo ćeliju za objekt Raspon. Jedna cjelobrojna varijabla koju nazivamo ukupna i jedna varijabla Integer koju nazivamo brojem.

Dim cell As Range, total As Integer, count As Integer

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: Rng i ćelija slučajno su odabrani ovdje, možete koristiti bilo koja imena. Ne zaboravite uputiti na ova imena u ostatku koda.

5. Zatim provjeravamo svaku vrijednost u tom rasponu ako padne između dvije vrijednosti (niže i gornje). Ako je istinito, ukupan broj vrijednosti povećava se za vrijednost ćelije i broj inkrementa broji se za 1. Dodajte sljedeće linije koda u petlju.

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. Da biste vratili rezultat ove funkcije (željeni prosjek), dodajte sljedeću liniju kodova izvan petlje.

CUSTOMAVERAGE = total / count

7. Nemojte zaboraviti završiti funkciju. Dodajte redak:

End Function

8. Sada možete koristiti ovu funkciju kao i bilo koja druga Excel funkcija za izračunavanje prosjeka brojeva koji pada između dvije vrijednosti.

Proizlaziti:

Usporedba prosječnog rezultata funkcije

Kao ček, možete izbrisati sve vrijednosti koje sumanji od 10 i veći od 30 i koristiti standardnu ​​prosječnu funkciju u programu Excel kako biste vidjeli da Excel izračunava isti prosjek kao i naša prilagođena prosječna funkcija.

Provjera prilagođene prosječne funkcije

Naša prilagođena prosječna funkcija funkcionira! Napomena: ta je funkcija dostupna samo u ovoj radnoj knjizi.

Također pročitajte: