/ / Vlastné priemerné funkcie v programe Excel VBA

Vlastná priemerná funkcia v programe Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA ktoré vytvárajú Funkcia definovaná používateľom ktorý vypočíta priemerný náhodne vybraného rozsahu s výnimkou jednej alebo viacerých hodnôt, ktoré sú extrémne vysoké a nemali by byť spriemerované.

situácie:

Vlastná priemerná funkcia v programe Excel VBA

Funkcie definované používateľom je potrebné umiestniť do modulu.

1. Otvorte Editor jazyka a kliknite na položku Vložiť, modul.

2. Pridajte nasledujúci riadok kódu:

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

Názov našej funkcie je CUSTOMAVERAGE. Časť medzi zátvorkami znamená, že Excel VBA poskytuje rozsah a dve celočíselné premenné ako vstup. Nazdávame náš rozsah rng, jednu premennú Integer nazývame nižšiu a jednu premennú Integer, ktorú nazývame horná, ale môžete použiť akékoľvek mená.

3. Ďalej deklarujeme objekt Range a dve premenné typu Integer. Voláme bunku objektu Range. Jedna celočíselná premenná nazývame celú a jednu celú premennú, ktorú nazývame počítať.

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

4. Chceme skontrolovať každú bunku v náhodne vybranom rozsahu (tento rozsah môže byť ľubovoľnej veľkosti). V programe Excel VBA môžete použiť túto funkčnú slučku. Pridajte nasledujúce riadky kódu:

For Each cell In rng

Next cell

Poznámka: tu a náhodne vybrané rng a bunka môžete použiť akékoľvek mená. Nezabudnite sa na tieto mená odvolať vo zvyšku kódu.

5. Ďalej kontrolujeme každú hodnotu v tomto rozsahu, ak spadá medzi dve hodnoty (nižšia a horná). Ak je pravda, celkový prírastok sa zvyšuje o hodnotu bunky a inkrementujeme počítaním o 1. Pridajte do slučky nasledujúce riadky kódu.

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

6. Ak chcete vrátiť výsledok tejto funkcie (požadovaný priemer), pridajte nasledujúci riadok kódu mimo slučku.

CUSTOMAVERAGE = total / count

7. Nezabudnite ukončiť funkciu Pridať riadok:

End Function

8. Teraz môžete použiť túto funkciu rovnako ako akákoľvek iná funkcia programu Excel na výpočet priemeru čísel, ktoré spadajú medzi dve hodnoty.

výsledok:

Vlastný priemerný výsledok funkcie

Ako kontrola môžete odstrániť všetky hodnoty, ktoré súnižšia ako 10 a vyššia ako 30 a použite štandardnú funkciu Average v programe Excel a zistite, či Excel vypočíta rovnaký priemer ako vlastná priemerná funkcia.

Vlastná priemerná funkčná kontrola

Naša vlastná priemerná funkcia funguje! Poznámka: táto funkcia je k dispozícii iba v tomto zošite.

Tiež si prečítajte: