Kā izveidot pielāgotas Excel funkcijas? (ar piemēriem)
Lai izveidotu pielāgotu funkciju, mums jāuzraksta kods mūsu pašu funkciju darbībai, un to sauc par “UDF”. Pielāgotās funkcijas ir lietotāja definētas funkcijas programmā Excel, tāpēc, lai izveidotu šīs funkcijas, jums rūpīgi jāpārzina VBA kodēšana.
1. piemērs - pievienojiet jebkurus divus skaitļus
Piemēram, ja vēlaties pievienot divus skaitļus, mēs parādīsim vienkāršu lietotāja definētu funkciju (UDF).
- Nospiediet Alt + F11 un ievietojiet moduli.
- Rakstiet kodu modulī, lai izveidotu pielāgotu funkciju.
Jebkura pielāgotā funkcija jāsāk ar vārdu “Funkcija”, kam seko formulas nosaukums.
Jebkurai funkcijai ir savi argumenti vai parametri līdzīgi kā pielāgotajām funkcijām; mums ir jādefinē šie parametri. Tā kā mēs pievienojam tikai divus skaitļus, definēsim šos parametrus un piešķirsim datu tipus šiem argumentu mainīgajiem.
Kad parametri ir definēti ar datu tipu, mums jādefinē arī rezultātu rezultātu datu tipi. Definēsim rezultātu kā “Integer” vērtību.
Šajā “Funkciju procedūrā” mēs uzrakstīsim formulas kodu.
Kods:
Funkcijas papildinājums (Num1 kā vesels skaitlis, Num2 kā vesels skaitlis) kā Integer papildinājums a = Num1 + Num2 beigu funkcija
Tas nozīmē, ka funkcijas nosaukuma “Papildinājums” rezultāts būs Num1 un Num2 vērtību summa.
- Tagad atgriezieties pie darblapas un ievadiet visus divus skaitļus.
- Tagad mēs pievienosim šos divus skaitļus. Atveriet vienādības zīmi un ievadiet pielāgotās funkcijas nosaukumu “Papildinājums”.
Atlasiet pirmo un otro numuru, ievadot atdalītāju kā komatu (,).
- Lai iegūtu rezultātu, nospiediet taustiņu Enter.
Oho !!! Tāpat kā funkcija SUM, mēs saņēmām divu skaitļu summas rezultātu.
Tagad apskatiet šos skaitļus.
Mēģiniet pievienot šos divus numurus tūlīt.
Mēs saņēmām kļūdas vērtību, jo argumentu “Num1 & Num2” datu tips ir “Integer”, ti, šie divi argumenti var turēt vērtības no -32767 līdz 32767, tāpēc kaut kas vairāk par šo izraisīs šīs kļūdas.
Tagad mēģiniet pievienot šos divus skaitļus.
Pat tas radīs zemāku kļūdas vērtību.
Pat ja atsevišķu argumentu vērtības ir datu veida Integer robežās, mēs tomēr saņēmām šo kļūdu, jo šo skaitļu kopējā summa ir lielāka par veselā skaitļa robežvērtību.
Tā kā rezultāta veidu mēs esam deklarējuši arī kā “vesels skaitlis”, divu skaitļu pievienošanas rezultātam jābūt arī vesela skaitļa ierobežojumam.
2. piemērs - pievienojiet visus nepāra skaitļus
Programmā Excel nav iebūvētas funkcijas, kas var pievienot visus nepāra skaitļus no numuru saraksta. Bet nekas nav jāuztraucas, lai to atbalstītu, mēs izveidosim pielāgotu Excel funkciju.
Atveriet VBA redaktora logu un piešķiriet procedūras funkcijai nosaukumu.
Norādiet šīs funkcijas parametru kā “Diapazons”.
Tas nozīmē, ka šai funkcijai mēs sniedzam šīs funkcijas ievades vērtību kā šūnu vērtību “diapazonu”.
Tā kā mums ir jākontrolē vairāk nekā viena šūna, mums VBA ir jāizmanto cilpa “Katram”, tāpēc atveriet cilpu “Katram”.
Šīs cilpas iekšpusē pievienojiet zemāk esošo kodu.
Kods:
Funkcija AddOdd (Rng kā diapazons) katrai šūnai Rng If šūnā. Vērtība Mod 2 0 Tad AddOdd = AddOdd + šūna. Vērtība Nākamā šūna Beigas funkcija
Lai pārbaudītu numuru, mums jāizmanto funkcija “MOD”. Kad katra šūnas vērtība tiek dalīta ar skaitli 2 un atlikusī vērtība nav vienāda ar nulli, mūsu kodam jāpievieno visas nepāra skaitļa vērtības.
Tagad atgriezieties pie darblapas un atveriet Excel pielāgoto funkciju.
Atlasiet skaitļu diapazonu no A1 līdz D8.
Nospiediet ievadīšanas taustiņu, lai iegūtu “nepāra” skaitļa rezultātu. ”
Tātad diapazonā no A1 līdz D8 nepāra skaitļu summa ir 84.
3. piemērs - pievienojiet visus pāra numurus
Līdzīgi ar šo funkciju tiks pievienoti visi pāra skaitļi.
Kods:
Funkcija AddEven (Rng kā diapazons) katrai Rng If šūnai. Vērtība Mod 2 = 0, tad AddEven = AddEven + šūna. Vērtība Nākamā šūna Beigas funkcija
Šī funkcija pievienos tikai pāra skaitli. Šajā gadījumā mēs izmantojām loģiku, ja katras šūnas vērtība tiek dalīta ar 2, un atlikusī daļa ir vienāda ar nulli, tad kods pievienos tikai šīs šūnas vērtības.
Šādi, izmantojot VBA kodēšanu, mēs varam izveidot savas pielāgotās funkcijas.
Atceramās lietas
- Izveidot pielāgotas funkcijas ir nekas cits kā lietotāja definētas funkcijas.
- Lai izveidotu pielāgotas funkcijas, ir jābūt zināšanām par uzlabotām VBA kodēšanas prasmēm.
- Veidojot pielāgotās Excel funkcijas, ir svarīgi pievērst uzmanību argumentiem un to datu tipiem.
