Pielāgota vidējā funkcija

Zemāk mēs apskatīsim programmu Excel VBA kas rada a Lietotāja definēta funkcija kas aprēķina vidēji no nejauši izvēlēta diapazona, izņemot vienu vai vairākas vērtības, kas ir ārpuskārtas un kurām nevajadzētu aprēķināt vidējo vērtību.

Situācija:

Lietotāja definētās funkcijas ir jāievieto modulī.

1. Atveriet Visual Basic redaktors un noklikšķiniet uz Ievietot, Modulis.

2. Pievienojiet šādu koda rindiņu:

Mūsu funkcijas nosaukums ir CUSTOMAVERAGE. Daļa starp iekavām nozīmē, ka mēs ievadām Excel VBA diapazonu un divus veselus mainīgos. Mēs nosaucam savu diapazonu rng, vienu veselu skaitļa mainīgo mēs saucam par zemāku un vienu veselu skaitļa mainīgo mēs saucam par augšējo, bet jūs varat izmantot jebkurus nosaukumus.

3. Tālāk mēs deklarējam Range objektu un divus Integer tipa mainīgos. Mēs saucam par diapazona objekta šūnu. Vienu veselu skaitļu mainīgo mēs saucam par kopējo un vienu veselu skaitļa mainīgo, ko mēs saucam par skaitu.

aprēķinot neto pašreizējo vērtību Excel

4. Mēs vēlamies pārbaudīt katru šūnu nejauši izvēlētā diapazonā (šis diapazons var būt jebkura izmēra). Programmā Excel VBA šim nolūkam varat izmantot cilpu Katram nākamajam. Pievienojiet šādas koda rindiņas:

Piezīme: rng un šūna šeit tiek izvēlēti nejauši, varat izmantot jebkurus nosaukumus. Atcerieties atsaukties uz šiem nosaukumiem pārējā koda daļā.

5. Tālāk mēs pārbaudām katru vērtību šajā diapazonā, ja tā ir starp divām vērtībām (apakšējā un augšējā). Ja tā ir taisnība, mēs kopējo palielinām par šūnas vērtību un palielinām par 1. Pievienojiet cilpai šādas koda rindiņas.

6. Lai atgrieztu šīs funkcijas rezultātu (vēlamo vidējo), ārpus cilpas pievienojiet šādu koda rindiņu.

7. Neaizmirstiet pārtraukt funkciju. Pievienojiet rindu:

8. Tagad jūs varat izmantot šo funkciju tāpat kā jebkuru citu Excel funkciju, lai aprēķinātu vidējo skaitu, kas ir starp divām vērtībām.

Rezultāts:

Kā pārbaudi varat izdzēst visas vērtības, kas ir zemākas par 10 un augstākas par 30, un izmantot programmā Excel standarta vidējo funkciju, lai noskaidrotu, vai Excel aprēķina tādu pašu vidējo vērtību kā mūsu pielāgotā vidējā funkcija.

kā veikt amortizācijas tabulu

Mūsu pielāgotā vidējā funkcija darbojas! Piezīme: šī funkcija ir pieejama tikai šajā darbgrāmatā.