/ / Custom keskimääräinen toiminto Excel VBA: ssa

Mukautettu keskimääräinen toiminto Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA joka luo a Käyttäjän määrittelemä toiminto joka laskee keskiverto satunnaisesti valituista alueista, lukuun ottamatta yhtä tai useampaa arvoa, jotka eivät ole keskimäärin keskiarvoita.

Tilanne:

Mukautettu keskimääräinen toiminto Excel VBA: ssa

Käyttäjän määrittelemät toiminnot on sijoitettava moduuliin.

1. Avaa Visual Basic Editor ja napsauta Insert, Module.

2. Lisää seuraava koodirivi:

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

Toimintamme nimi on yksilöllinen. Suluissa oleva osa tarkoittaa, että annamme Excel VBA: lle alueen ja kaksi Integer-muuttujaa tulona. Me nimeämme valikoimamme rng, yhden kokonaisluvun, jota kutsumme pienemmäksi ja yksi kokonaisluku-muuttuja, jota kutsumme ylemmäksi, mutta voit käyttää mitä tahansa nimeä.

3. Seuraavaksi ilmoitamme Range-objektin ja kahden tyypin Integer-muuttujan. Me kutsumme Range-objekti-solua. Yksi kokonaisluku muuttuja jota kutsumme kokonaisuudeksi ja yhdeksi integerimuuttuimeksi, jota kutsumme laskemaan.

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

4. Haluamme tarkistaa jokaisen solun satunnaisesti valitulla alueella (tämä alue voi olla mikä tahansa koko). Excel VBA: ssa voit käyttää tätä varten jokaisen seuraavan silmukan. Lisää seuraavat koodiluokat:

For Each cell In rng

Next cell

Huomaa: rng ja solu valitaan satunnaisesti, voit käyttää mitä tahansa nimeä. Muista viitata näihin nimiin muussa koodissa.

5. Seuraavaksi tarkistamme, että kukin arvo on tällä alueella, jos se laskee kahden arvon välillä (alempi ja ylempi). Jos on totta, kasvatamme kokonaissummaa solun arvolla ja lisäämme luvut kertoimella 1. Lisää silmukkaan seuraavat koodirivit.

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

6. Palauta tämän toiminnon tulos (haluttu keskiarvo) lisäämällä seuraava koodirivi silmukan ulkopuolelle.

CUSTOMAVERAGE = total / count

7. Älä unohda lopettaa toimintoa. Lisää rivi:

End Function

8. Nyt voit käyttää tätä toimintoa aivan kuten minkä tahansa muun Excel-toiminnon avulla, laskemalla kahden arvon väliset numerot.

Tulos:

Mukautettu keskimääräinen toimintojen tulos

Tarkistuksena voit poistaa kaikki arvot, jotka ovatalle 10 ja korkeampi kuin 30, ja käytä Excelin normaalia keskimääräistä toimintoa nähdäksesi, onko Excel laske keskimääräinen keskimääräinen toiminto.

Mukautettu keskimääräinen toimintojen tarkistus

Meidän keskimääräinen toimintamme toimii! Huomaa: tämä toiminto on käytettävissä vain tässä työkirjassa.

Lue myös: