/ / Funkcia definovaná používateľom v programe Excel VBA

Funkcia definovaná používateľom v programe Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA ktorý vytvorí Funkcia definovaná používateľom, Program Excel má veľkú zbierku funkcií. Vo väčšine situácií sú tieto funkcie postačujúce na to, aby ste túto prácu vykonali. Ak nie, môžete vytvoriť vlastnú funkciu s názvom Funkcia definovaná používateľom alebo vlastná funkcia Excel, Môžete pristupovať k funkcii definovanej používateľom rovnako ako k inej funkcii programu Excel.

Chceme vytvoriť funkciu SUMEVENNUMBERS, ktorá nájde súčet párnych čísel náhodne vybraného rozsahu.

situácie:

Funkcia definovaná používateľom 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 SUMEVENNUMBERS(rng As Range)

Názov našej funkcie je SUMEVENNUMBERS. Časť medzi zátvorkami znamená, že Excel VBA poskytuje rozsah ako vstup. Pomenujeme náš rozsah rng, ale môžete použiť akékoľvek meno.

3. Ďalej deklarujeme objekt Range a nazveme ho bunkou.

Dim cell As Range

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 je náhodne vybraná bunka, môžete použiť ľubovoľné meno.

5. Ďalej skontrolujeme, či je hodnota v tomto rozmedzí rovnomerná alebo nie. Pre tento účel používame operátor Mod. Operátor Mod dáva zvyšok rozdelenia. Takže 7 mod 2 by dal 1. 7 je rozdelený 2 (3 krát), aby sa dal zvyšok 1. Po tomto povedal, je ľahké skontrolovať, či číslo je dokonca alebo nie. Iba ak zvyšok čísla delené 2 je 0, číslo je rovnomerné. 8 mod 2 dáva 0, 8 je delené 2 presne 4 krát, a teda 8 je rovnomerné. Pridajte nasledujúci príkaz If do slučky For Each Next.

If cell.Value Mod 2 = 0 Then

End If

6. Len ak je toto tvrdenie pravdivé, pridáme hodnotu k SUMEVENNUMBERS. Pridajte nasledujúci riadok kódu do príkazu If.

SUMEVENNUMBERS = SUMEVENNUMBERS + cell.Value

7. Nezabudnite ukončiť funkciu (mimo slučky).

End Function

8. Teraz môžete použiť túto funkciu, rovnako ako akákoľvek iná funkcia programu Excel, aby ste našli súčet párnych čísel náhodne vybraného rozsahu.

výsledok:

Výsledok funkcie definovanej používateľom

Dobre hotovo! To znamená, ako ľahko sú definované používateľom definované funkcie v programe Excel VBA. Poznámka: Táto funkcia je k dispozícii iba v tomto zošite.

Tiež si prečítajte: