/ / Pielāgota vidējā funkcija programmā Excel VBA

Pielāgota vidējā pozīcija programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA kas rada Lietotāja definēta funkcija kas aprēķina vidējais nejauši izvēlēta diapazona, izņemot vienu vai vairākas vērtības, kas ir novirzes, un to nedrīkst vidēji.

Situācija:

Pielāgota vidējā pozīcija programmā Excel VBA

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

1. Atveriet Visual Basic Editor un noklikšķiniet uz Insert, Module.

2. Pievienojiet šādu koda rindiņu:

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

Funkcijas nosaukums ir CUSTOMAVERAGE. Daļa starp iekavām nozīmē, ka mēs Excel Excel VBA diapazonu un divus integer mainīgos kā ievades. Mēs nosaucam savu diapazonu rng, vienu mainīgo skaitli, kuru saucam par zemāku, un vienu mainīgo, kuru mēs saucam par augšējo, bet jūs varat izmantot jebkuru nosaukumu.

3. Tālāk mēs deklarējam Range objektu un divus mainīgā lieluma tipus: Integer. Mēs saucam diapazona objekta šūnu. Viens Integrētais mainīgais, ko mēs saucam par kopējo summu un vienu Integer mainīgo, ko saucam par skaitli.

Dim cell As Range, total As Integer, count As Integer

4. Mēs vēlamies pārbaudīt katru šūnu nejauši izvēlētajā diapazonā (šis diapazons var būt jebkura izmēra). Programmā Excel VBA varat to izmantot katrai nākamajai cilpai. Pievienojiet šādas koda līnijas:

For Each cell In rng

Next cell

Piezīme: šeit ir izlases veidā izvēlēts rng un šūna, jūs varat izmantot visus vārdus. Neaizmirstiet atsaukties uz šiem nosaukumiem pārējā kodā.

5 Tālāk mēs pārbaudām katru vērtību šajā diapazonā, ja tas ir starp divām vērtībām (apakšējā un augšējā). Ja ir taisnība, mēs palielinām kopsummu no šūnas vērtības, un mēs palielinām skaitli par 1. Pievienojiet ciklam šādas koda līnijas.

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. Lai atgrieztu šīs funkcijas rezultātu (vēlamo vidējo rādītāju), pievienojiet šādu koda līniju ārpus cilpas.

CUSTOMAVERAGE = total / count

7. Don t aizmirst, lai izbeigtu funkciju. Pievienot līniju:

End Function

8. Tagad jūs varat izmantot šo funkciju tāpat kā jebkura cita Excel funkcija, lai aprēķinātu vidējo skaitu no divām vērtībām.

Rezultāts:

Pielāgots vidējais funkciju rezultāts

Kā pārbaudi jūs varat izdzēst visas vērtības, kas irmazāks par 10 un lielāks par 30 un izmantojiet standarta vidējo funkciju programmā Excel, lai redzētu, vai Excel aprēķina tādu pašu vidējo kā mūsu pielāgoto vidējo funkciju.

Pielāgota vidējā funkciju pārbaude

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

Lasīt arī: