/ / Vlastní průměrná funkce v aplikaci Excel VBA

Vlastní průměrné funkce v aplikaci Excel VBA

Níže se podíváme na program v Excel VBA který vytváří a Funkce definovaná uživatelem který vypočítá průměrný náhodně vybraného rozsahu s vyloučením jedné nebo více hodnot, které jsou odlehčující a neměly by být zprůměrovány.

Situace:

Vlastní průměrné funkce v aplikaci Excel VBA

Uživatelem definované funkce je třeba umístit do modulu.

1. Otevřete editor jazyka a klepněte na Vložit, modul.

2. Přidejte následující řádek kódu:

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

Jméno naší funkce je CUSTOMAVERAGE. Část mezi konzolami znamená, že Excel VBA nabízí rozsah a dvě celočíselné proměnné jako vstup. Jmenujeme náš rozsah rng, jednu proměnnou Integer, kterou nazýváme nižší, a jednu proměnnou Integer nazýváme horní, ale můžete použít libovolná jména.

3. Dále deklarujeme objekt Range a dvě proměnné typu Integer. Nazýváme buňku objektu Range. Jedna celočíselná proměnná nazýváme celkovou a jednu celočíselnou proměnnou, kterou počítáme.

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

4. Chceme zkontrolovat každou buňku v náhodně vybraném rozsahu (tento rozsah může mít libovolnou velikost). V aplikaci Excel VBA můžete pro tento účel použít smyčku For Each Next. Přidejte následující řádky kódu:

For Each cell In rng

Next cell

Poznámka: Zde jsou náhodně vybrána rng a buňka, můžete použít libovolná jména. Nezapomínejte na tyto názvy ve zbytku kódu.

5. Dále kontrolujeme každou hodnotu v tomto rozmezí, pokud spadá mezi dvěma hodnotami (dolní a horní). Pokud je hodnota true, inkrementujeme celkově o hodnotu buňky a inkrementujeme počítat o 1. Přidejte následující řádky kódu do smyčky.

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

6. Chcete-li vrátit výsledek této funkce (požadovaný průměr), přidejte následující kódový řádek mimo smyčku.

CUSTOMAVERAGE = total / count

7. Nezapomeňte ukončit funkci. Přidejte řádek:

End Function

8. Nyní můžete tuto funkci použít stejně jako libovolná jiná funkce aplikace Excel pro výpočet průměru čísel mezi dvěma hodnotami.

Výsledek:

Vlastní průměrný výsledek funkce

Jako kontrolu můžete odstranit všechny hodnoty, které jsounižší než 10 a vyšší než 30 a použijte standardní funkci Průměr v aplikaci Excel, abyste zjistili, zda aplikace Excel vypočítá stejný průměr jako naše vlastní vlastní průměrná funkce.

Vlastní průměrná kontrola funkce

Naše vlastní průměrná funkce funguje! Poznámka: tato funkce je k dispozici pouze v tomto sešitu.

Také si přečtěte: