U slučaju da se pitate kako možete dodati samo pozitivne i jedinstvene vrijednosti, onda je ovaj članak za vas.
U ovom ćete članku naučiti kako dodati samo različite pozitivne vrijednosti u excelu pomoću VBA koda.
Pitanje): Želim da makro zbroji sve različite pozitivne brojeve u navedenom rasponu koji uključuje negativne i pozitivne brojeve.
Slijedi snimak podataka koje imamo:
Moramo slijediti korake u nastavku:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
Unesite sljedeći kôd u standardni modul:-
Funkcija AddUnique (ByRef ulazni raspon kao raspon, _
Neobavezno IgnoreText As Boolean = True, _
Opcionalno IgnoreError As Boolean = True, _
Opcionalno Zanemari negativne brojeve kao Boolean = Tačno)
Zatamnite različite brojeve kao dvostruko
Prigušena ćelija kao raspon
Zatamni kao objekt
Postavi dict = CreateObject ("Scripting.dictionary")
različiti brojevi = 0
Za svaku ćeliju U ulazni raspon.Premjeri (ulazni raspon.Rows.Count, 1)
cval = ćelija.Vrijednost
Ako IgnoreText Then
Ako nije (VBA.IsNumeric (cval)) Tada je cval = 0
Drugo
AddUnique = CVErr (0)
Izlazna funkcija
Završi ako
Ako IgnoreError Tada
Ako je IsError (cval) Tada je cval = 0
Drugo
AddUnique = CVErr (1)
Izlazna funkcija
Završi ako
Ako zanemarite negativne brojeve Tada
Ako je cval <0, tada je cval = 0
Drugo
AddUnique = CVErr (2)
Izlazna funkcija
Završi ako
If Not dict.Exists (cval) Tada
dict.Dodaj cval, cval
različiti brojevi = različiti brojevi + kval
Završi ako
Sljedeći
AddUnique = različiti brojevi
Završna funkcija
- U ćeliji C2 formula bi bila
- = AddUnique (A2: A6)
- Za provjeru ignorira li kod ponovljenu vrijednost ili ne; promijenimo vrijednost u ćeliji A1 na 50 i vidimo rezultat.
Na ovaj način možemo dodati različite pozitivne vrijednosti putem makro koda.
Download-Sample File-xlsm
