Jak vytvořit vlastní funkce aplikace Excel? (s příklady)
Abychom mohli vytvořit vlastní funkci, musíme napsat kód pro fungování našich vlastních funkcí, který se nazývá „UDF“. Uživatelské funkce jsou uživatelem definované funkce v aplikaci Excel, takže k vytvoření těchto funkcí potřebujete důkladně znát kódování VBA.
Příklad č. 1 - Přidejte libovolná dvě čísla
Například pokud chcete přidat libovolná dvě čísla, ukážeme vám jednoduchou funkci definovanou uživatelem (UDF).
- Stiskněte Alt + F11 a vložte modul.
- Napište kód do modulu a vytvořte vlastní funkci.
Jakákoli vlastní funkce by měla začínat slovem „Function“, následovaným názvem vzorce.
Jakákoli funkce má své argumenty nebo parametry podobně jako vlastní funkce; musíme tyto parametry definovat. Protože přidáváme pouze dvě čísla, definujme tyto parametry a přiřaďte datové typy těmto proměnným argumentů.
Jakmile jsou parametry definovány s datovým typem, musíme také definovat datové typy výsledků výsledku. Definujme výsledek jako hodnotu „Celé číslo“.
Do tohoto „Funkčního postupu“ napíšeme kód vzorce.
Kód:
Přidání funkce (Num1 jako celé číslo, Num2 jako celé číslo) As Integer Additiona = Num1 + Num2 End Function
Výsledkem je, že výsledkem názvu funkce „Sčítání“ bude součet hodnot Num1 a Num2.
- Nyní se vraťte k listu a zadejte libovolná dvě celočíselná čísla.
- Nyní přidáme tato dvě čísla. Otevřete znaménko rovná se a zadejte název vlastní funkce „Dodatek“.
Vyberte první a druhé číslo zadáním oddělovače jako čárku (,).
- Výsledek získáte stisknutím klávesy Enter.
Páni!!! Stejně jako funkce SUM jsme dostali výsledek součtu dvou čísel.
Nyní se podívejte na tato čísla.
Zkuste přidat tato dvě čísla hned teď.
Chybovou hodnotu jsme dostali, protože argumenty datového typu „Num1 a Num2“ jsou „Integer“, tj. Tyto dva argumenty mohou obsahovat hodnoty mezi -32767 až 32767, takže tyto chyby způsobí cokoli jiného.
Nyní zkuste přidat tato dvě čísla.
I to způsobí nižší hodnotu chyby.
I když jsou jednotlivé hodnoty argumentů v mezích datového typu Integer, stále se nám zobrazila tato chyba, protože celkový součet těchto čísel je větší než celočíselná mezní hodnota.
Protože jsme typ výsledku deklarovali také jako „celé číslo“, výsledkem přidání dvou čísel by měl být také limit celočíselného čísla.
Příklad č. 2 - Přidat všechna lichá čísla
Excel nemá žádnou vestavěnou funkci, která by mohla přidat všechna lichá čísla ze seznamu čísel. Ale není se čeho bát, vytvoříme vlastní excelovou funkci, která to podpoří.
Otevřete okno editoru VBA a pojmenujte proceduru Function.
Zadejte parametr pro tuto funkci jako „Rozsah“.
To znamená, že pro tuto funkci poskytujeme vstupní hodnotu pro tuto funkci jako „Rozsah“ hodnot buněk.
Protože potřebujeme procházet více než jednou buňkou, musíme ve VBA použít smyčku „Pro každou“, takže otevřete smyčku „Pro každou“.
Do této smyčky přidejte níže uvedený kód.
Kód:
Funkce AddOdd (Rng As Range) Pro každou buňku In Rng If cell.Value Mod 2 0 Then AddOdd = AddOdd + cell.Value Další buňka Konec Funkce
K otestování čísla musíme použít funkci „MOD“. Když je každá hodnota buňky vydělena číslem 2 a zbytek se nerovná nule, měl by náš kód přidat všechny liché hodnoty čísel.
Nyní se vraťte k listu a otevřete vlastní funkci aplikace Excel.
Vyberte rozsah čísel od A1 do D8.
Stisknutím klávesy Enter získáte výsledek „lichého“ čísla. “
Takže v rozsahu A1 až D8 máme součet lichých čísel 84.
Příklad č. 3 - Přidejte všechna sudá čísla
Podobně funkce níže přidá všechna sudá čísla.
Kód:
Funkce AddEven (Rng As Range) Pro každou buňku In Rng If cell.Value Mod 2 = 0 Then AddEven = AddEven + cell.Value Další buňka Konec Funkce
Tato funkce přidá pouze sudé číslo. V tomto případě jsme použili logiku, pokud je každá hodnota buňky vydělena 2 a zbytek je roven nule, pak kód přidá pouze tyto hodnoty buňky.
Takto můžeme pomocí kódování VBA vytvářet vlastní vlastní funkce.
Věci k zapamatování
- Vytváření vlastních funkcí není nic jiného než funkce definované uživatelem.
- Chcete-li vytvořit vlastní funkce, měli byste mít znalosti pokročilých kódovacích dovedností VBA.
- Při vytváření vlastních funkcí aplikace Excel je důležité sledovat argumenty a jejich datové typy.
