VBA – vytvoření vlastní funkce

Běžný Excel 2010 má přes 400 funkcí. Přesto se můžeme dostat do situace, kdy by se nám hodila funkce, která v Excelu není. Nebo nás nebaví opakovaně zapisovat dlouhý vzorec obsahující více funkcí a chceme si vytvořit funkci, která tuto kombinaci funkcí nahradí.

Příklad

V mém případě chci vytvořit funkci, která spočte obsah obdélníka na základě dvou vstupních buněk. Netvrdím, že je to zrovna vrchol praktičnosti, ale myslím že se na tom dá vytvoření jednoduché funkce dobře ukázat.

Návod

Jdu do editoru maker (karta Vývojář / tlačítko Visual Basic), vytvořím nový modul a zapíšu funkci.
V mém případě vypadá takto:

Function Obsah_obdelnika(Delka, Sirka)
Obsah_obdelnika = Delka * Sirka
End Function

• Function Obsah_obdelnika(Delka, Sirka)
  Function říká že je to funkce, Obsah_obdelnika je název funkce, Delka a Sirka jsou názvy vstupních hodnot
• Obsah_obdelnika = Delka * Sirka
  Obsah je roven délce krát šířce
• End Function
  Konec zápisu funkce

Editoru funkcí mohu zavřít. Od teď už se s mojí funkcí pracuje jako s jakoukoliv jinou. Jen si musím uvědomit, že tato funkce existuje v zásadě jen v souboru, kde jsem ji vytvořil.