/ / Egyéni átlagos függvény az Excel VBA-ban

Egyéni átlagos funkció Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA amely létrehozza a Felhasználó által meghatározott funkció amely kiszámítja a átlagos egy véletlenszerűen kiválaszott tartományból, kivéve egy vagy több értéket, amely meghaladja és nem kell átlagolni.

Helyzet:

Egyéni átlagos funkció Excel VBA-ban

A felhasználó által definiált funkciókat egy modulba kell helyezni.

1. Nyissa meg a Visual Basic Editor alkalmazást, majd kattintson a Beszúrás, Modul lehetőségre.

2. Adja hozzá a következő kódot:

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

Funkunk neve egyedi. A zárójelek közötti rész azt jelenti, hogy az Excel VBA-nak egy tartományt és két Integer változót adunk bemenetként. Nevezzük tartományunkat rng, egy Integer változót hívunk alacsonyabbnak, és egy Integer változót hívunk felsőnek, de bármilyen nevet használhatunk.

3. Ezt követően kijelöljük a Range objektumot és két változót az Integer típusnak. Hívjuk a Range objektumcellát. Egy Integer változót nevezzünk teljes és egy Integer változónak, amit számlálunk.

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

4. Minden cellát egy véletlenszerűen kiválasztott tartományban szeretnénk ellenőrizni (ez a tartomány bármilyen méretű lehet). Az Excel VBA programban használhatja a For Every Next hurot ehhez. Adja hozzá a következő kódsorokat:

For Each cell In rng

Next cell

Megjegyzés: itt rng és cell véletlenszerűen vannak kiválasztva, bármilyen nevet használhat. Ne feledje, hogy ezekre a nevekre utal a kód többi részében.

5. Ezután ellenőrizzük az egyes értékeket ebben a tartományban, ha a két érték (alsó és felső) közé esik. Ha igaz, a cella értékével növekszünk, és növekményezzük a számot 1-tel. Adjuk hozzá a következő kódsorokat a hurokhoz.

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

6. A funkció eredményének (a kívánt átlag) visszaadásához adja hozzá a következő kódot a hurokon kívül.

CUSTOMAVERAGE = total / count

7. Ne felejtsd el befejezni a függvényt Add the line:

End Function

8. Most ezt a funkciót is használhatja, mint bármelyik másik Excel-funkciót, hogy kiszámítsa a két érték közé eső számok átlagát.

Eredmény:

Egyéni átlagos funkció eredmény

Ellenőrzésként törölheti az összes értéket10-nél alacsonyabb és 30-nál magasabb, és használja az Excel szabványos átlagos funkciót, hogy megnézze, hogy az Excel kiszámolja-e az átlagos átlagos funkcióval megegyező átlagot.

Egyéni átlagos funkcióellenőrzés

Saját átlagos funkcióunk működik! Megjegyzés: ez a funkció csak ebben a munkafüzetben érhető el.

Szintén olvasható: