Jos mietit, kuinka voit lisätä vain positiivisia ja ainutlaatuisia arvoja, tämä artikkeli on sinua varten.
Tässä artikkelissa opit lisäämään vain erillisiä positiivisia arvoja Exceliin käyttämällä VBA -koodia.
Kysymys): Haluan makron summaavan kaikki erotetut positiiviset luvut tietyllä alueella, joka sisältää negatiiviset ja positiiviset luvut.
Seuraavassa on tilannevedos meillä olevista tiedoista:
Meidän on noudatettava seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
Syötä seuraava koodi vakiomoduuliin:-
Toiminto AddUnique (ByRef inputrange As Range, _
Valinnainen IgnoreText as Boolean = True, _
Valinnainen IgnoreError as Boolean = True, _
Valinnainen IgnoreNegativenumbers as Boolean = True)
Himmennä eri numerot kaksinkertaisina
Himmennä solu alueena
Himmennä objekti
Aseta dict = CreateObject ("Scripting.dictionary")
eri numerot = 0
Jokaiselle solulle Tuloalue.Resize (inputrange.Rows.Count, 1)
cval = solu. Arvo
Jos IgnoreText Sitten
Jos ei (VBA.IsNumeric (cval)) Sitten cval = 0
Muu
AddUnique = CVErr (0)
Lopeta toiminto
Loppu Jos
Jos IgnoreError then
Jos IsError (cval) Sitten cval = 0
Muu
AddUnique = CVErr (1)
Lopeta toiminto
Loppu Jos
Jos OhitaNegativenumbers Sitten
Jos cval <0, niin cval = 0
Muu
AddUnique = CVErr (2)
Lopeta toiminto
Loppu Jos
Jos ei sanella, on olemassa (cval) Sitten
Lisää cval, cval
eri numerot = eri numerot + cval
Loppu Jos
Seuraava
AddUnique = eri numerot
Lopeta toiminto
- Solussa C2 kaava olisi
- = AddUnique (A2: A6)
- Voit tarkistaa, ohittaako koodi toistuvan arvon vai ei; muutetaan solun A1 arvo 50: ksi ja katsotaan tulos.
Tällä tavalla voimme lisätä selkeitä positiivisia arvoja makrokoodin avulla.
Lataa-Esimerkkitiedosto-xlsm