Če se sprašujete, kako lahko dodate le pozitivne in edinstvene vrednosti, je ta članek za vas.
V tem članku se boste naučili, kako v Excelu dodati le različne pozitivne vrednosti z uporabo kode VBA.
Vprašanje): Želim, da makro sešteje vsa ločena pozitivna števila v določenem obsegu, ki vključuje negativna in pozitivna števila.
Sledi posnetek podatkov, ki jih imamo:
Slediti moramo naslednjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
V standardni modul vnesite naslednjo kodo:-
Funkcija AddUnique (vnos ByRef kot obseg, _
Izbirno IgnoreText As Boolean = True, _
Izbirno IgnoreError As Boolean = True, _
Izbirno IgnoreNegativenumbers As Boolean = True)
Zatemni različne številke kot dvojno
Zatemni celico kot obseg
Zatemni kot objekt
Set dict = CreateObject ("Scripting.dictionary")
različne številke = 0
Za vsako celico V vnosnem obsegu.Resize (inputrange.Rows.Count, 1)
cval = celica.Vrednost
Če IgnoreText Potem
Če ne (VBA.IsNumeric (cval)) Potem je cval = 0
Sicer pa
AddUnique = CVErr (0)
Izhodna funkcija
Konec Če
Če IgnoreError Potem
Če je IsError (cval), potem je cval = 0
Sicer pa
AddUnique = CVErr (1)
Izhodna funkcija
Konec Če
Če IgnoreNegativenumbers
Če je cval <0, potem je cval = 0
Sicer pa
AddUnique = CVErr (2)
Izhodna funkcija
Konec Če
Če ni narejeno.Exists (cval) Potem
dict.Dodaj cval, cval
različne številke = različne številke + kval
Konec Če
Naslednji
AddUnique = različne številke
Končana funkcija
- V celici C2 bi bila formula
- = AddUnique (A2: A6)
- Če želite preveriti, ali koda prezre ponavljajočo se vrednost ali ne; spremenimo vrednost v celici A1 na 50 in poglejmo rezultat.
Na ta način lahko z makro kodo dodamo izrazite pozitivne vrednosti.
Prenesi-vzorčna datoteka-xlsm