300 Exemple

Funcție definită de utilizator

User Defined Function

Mai jos vom analiza un program în Excel VBA care creează o Funcție definită de utilizator . Excel are o mare colecție de funcții. În majoritatea situațiilor, aceste funcții sunt suficiente pentru a face treaba. Dacă nu, puteți crea propria funcție numită Funcție definită de utilizator sau funcție Excel personalizată . Puteți accesa o funcție definită de utilizator la fel ca orice altă funcție Excel.



Vrem să creăm o funcție numită SUMEVENNUMBERS care găsește suma numerelor pare ale unui interval selectat aleatoriu.

Situatie:





Funcție definită de utilizator în Excel VBA

Funcțiile definite de utilizator trebuie plasate într-un modul.



1. Deschideți Editor Visual Basic și faceți clic pe Insert, Module.

cum se face un tabel de căutare în Excel

2. Adăugați următoarea linie de cod:

FuncţieSUMEVENNUMBERS (rng)La fel deGamă)

Numele funcției noastre este SUMEVENNUMBERS. Partea dintre paranteze înseamnă că oferim Excel VBA un interval ca intrare. Denumim gama noastră rng, dar puteți folosi orice nume.

3. Apoi, declarăm un obiect Range și îl numim celulă.

Nici unulcelulăLa fel deGamă

4. Vrem să verificăm fiecare celulă dintr-un interval selectat aleatoriu (acest interval poate fi de orice dimensiune). În Excel VBA, puteți utiliza bucla Pentru fiecare următor pentru aceasta. Adăugați următoarele linii de cod:

Pentru FiecarecelulăÎnrng

Următorulcelulă

Notă: celula este aleasă la întâmplare aici, puteți folosi orice nume.

cum se fac facturi în Excel

5. Apoi, verificăm pentru fiecare valoare din acest interval dacă este pară sau nu. Pentru aceasta folosim operatorul Mod. Operatorul Mod oferă restul unei diviziuni. De exemplu, 7 mod 2 = 1 deoarece 7 împărțit la 2 este egal cu 3 cu restul 1. După ce am spus acest lucru, este ușor să verificați dacă un număr este par sau nu. Numai dacă restul unui număr împărțit la 2 este 0, numărul este par. De exemplu, 8 mod 2 = 0 deoarece 8 împărțit la 2 este egal cu 4 cu restul de 0. Adăugați următoarea instrucțiune If la bucla For Each Next.

Dacăcelula.ValoareÎmpotriva2 = 0Atunci

Sfârșit Dacă

6. Doar dacă această afirmație este adevărată, adăugăm valoarea la SUMEVENNUMBERS. Adăugați următoarea linie de cod în instrucțiunea If.

SUMEVENNUMBERS = SUMEVENNUMBERS + celulă.Valoare

7. Nu uitați să încheiați funcția (în afara buclei).

Sfârșit Funcţie

8. Acum puteți utiliza această funcție, la fel ca orice altă funcție Excel, pentru a găsi suma numerelor pare ale unui interval selectat aleatoriu.

Rezultat:

cum se utilizează grade în Excel

Rezultatul funcției definite de utilizator

Bine făcut! Atât de ușor sunt funcțiile definite de utilizator în Excel VBA. Notă: această funcție este disponibilă numai în acest registru de lucru.

2/5 Finalizat! Aflați mai multe despre funcții și subs>
Accesați capitolul următor: Obiectul aplicației



^