Kui te ei tea, kuidas saate lisada ainult positiivseid ja ainulaadseid väärtusi, on see artikkel teie jaoks.
Sellest artiklist saate teada, kuidas VBA -koodi abil Excelis lisada ainult selgeid positiivseid väärtusi.
Küsimus): Soovin, et makro summeeriks kõik kindlaksmääratud vahemikus olevad positiivsed arvud, mis sisaldavad negatiivseid ja positiivseid numbreid.
Allpool on ülevaade meie andmetest:
Peame järgima järgmisi samme:
- Klõpsake vahekaarti Arendaja
- Valige koodigrupist Visual Basic
Sisestage standardmoodulisse järgmine kood:-
Funktsioon AddUnique (ByRef sisendivahemik, vahemik, _
Valikuline IgnoreText kui Boolean = Tõsi, _
Valikuline IgnoreError as Boolean = Tõsi, _
Valikuline ignoreerida negatiivseid numbreid kui tõeväärtus = tõene)
Eraldage numbrid kahekordselt
Hämardage rakk vahemikuna
Dim dict As Object
Määra dict = CreateObject ("Scripting.dictionary")
erinevad numbrid = 0
Iga lahtri jaoks Sisendvahemik.Resize (inputrange.Rows.Count, 1)
cval = lahter. Väärtus
Kui IgnoreText Siis
Kui ei (VBA.IsNumeric (cval)), siis cval = 0
Muidu
AddUnique = CVErr (0)
Välju funktsioon
Lõpp Kui
Kui IgnoreError Siis
Kui IsError (cval), siis cval = 0
Muidu
AddUnique = CVErr (1)
Välju funktsioon
Lõpp Kui
Kui ignoreerida negatiivseid numbreid
Kui cval <0, siis cval = 0
Muidu
AddUnique = CVErr (2)
Välju funktsioon
Lõpp Kui
Kui mitte dikteerida. Olemas (cval) Siis
dict. Lisage cval, cval
erinevad numbrid = erinevad numbrid + cval
Lõpp Kui
Edasi
AddUnique = erinevad numbrid
Lõppfunktsioon
- Lahtris C2 oleks valem järgmine
- = AddUnique (A2: A6)
- Kontrollige, kas kood ignoreerib korduvat väärtust või mitte; muudame lahtri A1 väärtuse 50 -ks ja näeme tulemust.
Sel viisil saame makrokoodi kaudu lisada selgeid positiivseid väärtusi.
Allalaadimise näidisfail xlsm