Ako vytvoriť vlastné funkcie programu Excel? (s príkladmi)
Aby sme vytvorili vlastnú funkciu, musíme napísať kód pre prácu s našimi vlastnými funkciami, ktorý sa nazýva „UDF“. Custom Functions sú používateľom definované funkcie v programe Excel, takže na ich vytvorenie je potrebné dôkladne poznať kódovanie VBA.
Príklad č. 1 - Pridajte ľubovoľné dve čísla
Napríklad ak chcete pridať akékoľvek dve čísla, ukážeme vám jednoduchú funkciu definovanú používateľom (UDF).
- Stlačte Alt + F11 a vložte modul.
- Napíšte kód do modulu a vytvorte vlastnú funkciu.
Každá vlastná funkcia by mala začínať slovom „Funkcia“, za ktorým nasleduje názov vzorca.
Akákoľvek funkcia má svoje argumenty alebo parametre podobne ako vlastné funkcie; musíme definovať tieto parametre. Pretože pridávame iba dve čísla, definujme tieto parametre a priraďme dátové typy týmto premenným argumentov.
Keď sú parametre definované s dátovým typom, musíme definovať aj dátové typy výsledných výsledkov. Definujme výsledok ako hodnotu „Celé číslo“.
Do tohto „Funkčného postupu“ napíšeme kód vzorca.
Kód:
Sčítanie funkcií (Num1 ako celé číslo, Num2 ako celé číslo) Ako sčítanie celých čísel = Num1 + Num2 Koncová funkcia
To znamená, že výsledkom názvu funkcie „Sčítanie“ bude súčet hodnôt Num1 a Num2.
- Teraz sa vráťte k pracovnému hárku a zadajte ľubovoľné dve celé čísla.
- Tieto dve čísla teraz pridáme. Otvorte znamienko rovnosti a zadajte názov vlastnej funkcie „Dodatok“.
Vyberte prvé a druhé číslo zadaním oddeľovača ako čiarku (,).
- Výsledok získate stlačením klávesu Enter.
Wow!!! Rovnako ako funkcia SUMA, aj my sme dostali výsledok súčtu dvoch čísel.
Teraz sa pozrite na tieto čísla.
Skúste tieto dve čísla pridať teraz.
Chybovú hodnotu sme dostali, pretože argumenty údajového typu „Num1 a Num2“ sú „Integer“, tj. Tieto dva argumenty môžu obsahovať hodnoty od -32767 do 32767, takže tieto chyby spôsobí čokoľvek iné.
Teraz skúste pridať tieto dve čísla.
Aj to spôsobí hodnotu pod chybou.
Aj keď sú jednotlivé hodnoty argumentov v medziach dátového typu Integer, stále sa vyskytla táto chyba, pretože celkový súčet týchto čísel je väčší ako celočíselná medzná hodnota.
Pretože sme typ výsledku deklarovali tiež ako „celé číslo“, výsledkom pridania dvoch čísel by mal byť tiež limit celého čísla.
Príklad č. 2 - Pridajte všetky nepárne čísla
Excel nemá vstavanú funkciu, ktorá by mohla pridať všetky nepárne čísla zo zoznamu čísel. Nemusíme sa však báť, vytvoríme vlastnú funkciu programu Excel, ktorá to podporí.
Otvorte okno editora VBA a pomenujte procedúru Function.
Zadajte parameter pre túto funkciu ako „Rozsah“.
To znamená, že pre túto funkciu poskytujeme vstupnú hodnotu pre túto funkciu ako „rozsah“ hodnôt buniek.
Pretože potrebujeme prechádzať cez viac ako jednu bunku, musíme vo VBA použiť slučku „Pre každú“, takže otvorte slučku „Pre každú“.
Do tejto slučky pridajte nasledujúci kód.
Kód:
Funkcia AddOdd (Rng As Range) Pre každú bunku In Rng If cell.Value Mod 2 0 Then AddOdd = AddOdd + cell.Value Ďalšia bunka Koniec Funkcia
Na otestovanie čísla musíme použiť funkciu „MOD“. Keď je hodnota každej bunky vydelená číslom 2 a zvyšok sa nerovná nule, potom by náš kód mal pridať všetky nepárne hodnoty čísel.
Teraz sa vráťte k pracovnému hárku a otvorte vlastnú funkciu programu Excel.
Vyberte rozsah čísel od A1 do D8.
Stlačením klávesu Enter získate výsledok „nepárneho“ čísla. “
Takže v rozsahu A1 až D8 máme súčet nepárnych čísel 84.
Príklad č. 3 - Pridajte všetky párne čísla
Podobne funkcia dole pridá všetky párne čísla.
Kód:
Funkcia AddEven (Rng As Range) Pre každú bunku v Rng If cell.Value Mod 2 = 0 Potom AddEven = AddEven + cell.Value Nasledujúca bunka Koniec Funkcia
Táto funkcia pridá iba párne číslo. V tomto prípade sme použili logiku toho, že ak je hodnota každej bunky vydelená číslom 2 a zvyšok je rovný nule, potom kód pridá iba tieto hodnoty bunky.
Takto pomocou kódovania VBA môžeme vytvárať vlastné vlastné funkcie.
Na čo treba pamätať
- Vytvorenie vlastných funkcií nie je nič iné ako funkcie definované používateľom.
- Aby ste mohli vytvárať vlastné funkcie, mali by ste mať znalosti pokročilých kódovacích schopností VBA.
- Pri vytváraní vlastných funkcií programu Excel je dôležité mať na pamäti argumenty a ich dátové typy.
