Ja jums rodas jautājums, kā pievienot tikai pozitīvas un unikālas vērtības, šis raksts ir domāts jums.
Šajā rakstā jūs uzzināsit, kā programmā Excel pievienot tikai atšķirīgas pozitīvas vērtības, izmantojot VBA kodu.
Jautājums): Es vēlos, lai makro summētu visus atšķirīgos pozitīvos skaitļus noteiktā diapazonā, ieskaitot negatīvos un pozitīvos skaitļus.
Tālāk ir sniegts mūsu rīcībā esošo datu momentuzņēmums:
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
Standarta modulī ievadiet šādu kodu:-
Funkcija AddUnique (ByRef ievades diapazons, diapazons, _
Neobligāts IgnoreText kā Būla = True, _
Neobligāta ignorēšanas kļūda kā Būla = True, _
Neobligāti ignorēt negatīvos skaitļus kā Būla = True)
Samaziniet atšķirīgos numurus kā dubultā
Dim šūna kā diapazons
Dim dict kā objekts
Set dict = CreateObject ("Scripting.dictionary")
atšķirīgi skaitļi = 0
Par katru šūnu ievades diapazonā. Izmērs (inputrange.Rows.Count, 1)
cval = šūna. Vērtība
Ja IgnoreText Tad
Ja nē (VBA.IsNumeric (cval)), tad cval = 0
Citādi
AddUnique = CVErr (0)
Iziet funkcija
Beigas Ja
Ja ignorēt kļūdu
Ja IsError (cval), tad cval = 0
Citādi
AddUnique = CVErr (1)
Iziet funkcija
Beigas Ja
Ja ignorēt negatīvos skaitļus
Ja cval <0, tad cval = 0
Citādi
AddUnique = CVErr (2)
Iziet funkcija
Beigas Ja
Ja nav diktēts. Pastāv (cval) Tad
dict. Pievienojiet cval, cval
atšķirīgi skaitļi = atšķirīgi skaitļi + cval
Beigas Ja
Nākamais
AddUnique = atšķirīgi skaitļi
Beigu funkcija
- Šūnā C2 formula būtu
- = AddUnique (A2: A6)
- Lai pārbaudītu, vai kods ignorē atkārtotu vērtību vai nē; mainīsim vērtību šūnā A1 uz 50 un redzēsim rezultātu.
Tādā veidā mēs varam pievienot atšķirīgas pozitīvas vērtības, izmantojot makro kodu.
Lejupielādes parauga fails xlsm