300 Exemple

Funcție medie personalizată

Custom Average Function

Mai jos vom analiza un program în Excel VBA care creează o Funcție definită de utilizator care calculează in medie dintr-un interval selectat aleatoriu, cu excepția uneia sau mai multor valori care sunt mai mari și care nu ar trebui să fie mediatizate.



Situatie:

Funcție medie personalizată î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.



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

FuncţieCUSTOMAVERAGE (rngLa fel deGama, mai micăLa fel de Întreg, superiorLa fel de Întreg)

Numele funcției noastre este CUSTOMAVERAGE. Partea dintre paranteze înseamnă că oferim Excel VBA un interval și două variabile întregi ca intrare. Numim gama noastră rng, o variabilă Întreg pe care o numim inferioară și o variabilă Întreg pe care o numim superioară, dar puteți utiliza orice nume.

3. În continuare, declarăm un obiect Range și două variabile de tip Integer. Numim celula obiect Range. O variabila Integer pe care o numim total si o variabila Integer pe care o numim count.

cum să împărțiți cuvintele în Excel
Nici unulcelulăLa fel deInterval, totalLa fel de Întreg, numaraLa fel de Întreg

4. Vrem să verificăm fiecare celulă într-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ă: rng și celulă sunt alese la întâmplare aici, puteți folosi orice nume. Nu uitați să consultați aceste nume în restul codului.

5. În continuare, verificăm pentru fiecare valoare din acest interval dacă se încadrează între cele două valori (inferioară și superioară). Dacă este adevărat, incrementăm totalul cu valoarea celulei și creștem numărul cu 1. Adăugați următoarele linii de cod în buclă.

Dacăcell.Value> = mai micȘicelula.Valoare<= upper Atunci
total = total + celulă.Valoare
count = count + 1
Sfârșit Dacă

6. Pentru a returna rezultatul acestei funcții (media dorită), adăugați următoarea linie de cod în afara buclei.

CUSTOMAVERAGE = total / număr

7. Nu uitați să încheiați funcția. Adăugați linia:

Sfârșit Funcţie

8. Acum puteți utiliza această funcție la fel ca orice altă funcție Excel pentru a calcula media numerelor care se încadrează între două valori.

Rezultat:

Rezultatul funcției medii personalizate

Ca o verificare, puteți șterge toate valorile mai mici de 10 și mai mari de 30 și puteți utiliza funcția medie standard în Excel pentru a vedea dacă Excel calculează aceeași medie cu funcția noastră personalizată medie.

Verificare funcțională medie personalizată

cum se face graficul de bare în cluster în Excel

Funcția noastră personalizată medie funcționează! Notă: această funcție este disponibilă numai în acest registru de lucru.

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



^