300 Príkladov

Užívateľom definovaná funkcia

User Defined Function

Nižšie sa pozrieme na program v Excel VBA ktorý vytvára a Užívateľom definovaná funkcia . Excel má veľkú zbierku funkcií. Vo väčšine situácií sú tieto funkcie postačujúce na vykonanie práce. Ak nie, môžete si vytvoriť vlastnú funkciu s názvom Užívateľom definovaná funkcia alebo vlastná funkcia Excelu . K používateľom definovanej funkcii máte prístup rovnako ako k akejkoľvek inej funkcii programu Excel.



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

Situácia:





Užívateľom definovaná funkcia v programe Excel VBA

Užívateľom definované funkcie je potrebné vložiť do modulu.



1. Otvorte súbor Editor jazyka Visual Basic a kliknite na Vložiť, modul.

ako vypočítať roky medzi dvoma dátumami v programe Excel

2. Pridajte nasledujúci riadok kódu:

FunkciaSUMEVENNUMBERS (rng)AkoRozsah)

Názov našej Funkcie je SUMEVENNUMBERS. Časť v zátvorkách znamená, že ako vstup zadáme rozsah Excel VBA. Náš sortiment pomenujeme rng, ale môžete použiť akékoľvek meno.

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

ŽiadnybunkaAkoRozsah

4. Chceme skontrolovať každú bunku v náhodne vybranom rozsahu (tento rozsah môže mať akúkoľvek veľkosť). V programe Excel VBA na to môžete použiť slučku For Every Next. Pridajte nasledujúce riadky kódu:

Pre KaždýbunkaVrng

Ďalšiebunka

Poznámka: bunka je tu vybraná náhodne, môžete použiť akékoľvek meno.

ako skontrolovať duplicitný záznam v programe Excel

5. Ďalej skontrolujeme každú hodnotu v tomto rozsahu, či je rovnomerná alebo nie. Na to používame operátor Mod. Operátor Mod dáva zvyšok delenia. Napríklad 7 mod 2 = 1, pretože 7 delené 2 sa rovná 3 so zvyškom 1. Po tomto tvrdení je ľahké skontrolovať, či je číslo párne alebo nie. Iba ak je zvyšok čísla deleného 2 nulový, číslo je párne. Napríklad 8 mod 2 = 0, pretože 8 delené 2 sa rovná 4 so zvyškom 0. Do slučky For Every Next pridajte nasledujúci príkaz If.

Akbunka. HodnotaProti2 = 0Potom

Koniec Ak

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

SUMEVENNUMBERS = SUMEVENNUMBERS + bunka. Hodnota

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

Koniec Funkcia

8. Teraz môžete túto funkciu, rovnako ako každú inú funkciu programu Excel, použiť na nájdenie súčtu párnych čísel náhodne zvoleného rozsahu.

Výsledok:

vyhľadávací rozsah programu Excel medzi dvoma hodnotami

Výsledok funkcie definovanej používateľom

Dobre! Takto jednoduché sú funkcie definované používateľom v programe Excel VBA. Poznámka: táto funkcia je k dispozícii iba v tomto zošite.

2/5 Dokončené! Získajte viac informácií o funkciách a vedľajších položkách>
Prejsť na nasledujúcu kapitolu: Objekt aplikácie



^