Hvis du undrer dig over, hvordan du kun kan tilføje positive og unikke værdier, så er denne artikel noget for dig.
I denne artikel lærer du, hvordan du kun tilføjer tydelige positive værdier i excel ved hjælp af VBA -kode.
Spørgsmål): Jeg vil have en makro til at summe alle de forskellige positive tal i et specifikt område, som indeholder negative og positive tal.
Følgende er et øjebliksbillede af de data, vi har:
Vi skal følge nedenstående trin:
- Klik på fanen Udvikler
- Vælg Visual Basic fra kodegruppen
Indtast følgende kode i standardmodulet:-
Funktion AddUnique (ByRef input -område som område, _
Valgfri IgnoreText As Boolean = True, _
Valgfri IgnoreError As Boolean = True, _
Valgfri Ignorer Negativenumbers As Boolean = True)
Dim forskellige numre som dobbelt
Dim celle som område
Dim dict som objekt
Indstil dict = CreateObject ("Scripting.dictionary")
forskellige tal = 0
For hver celle I inputrange.Resize (inputrange.Rows.Count, 1)
cval = celle.Værdi
Hvis IgnoreText Så
Hvis ikke (VBA.IsNumeric (cval)) Så er cval = 0
Andet
AddUnique = CVErr (0)
Afslut funktion
Afslut Hvis
Hvis IgnoreError Så
Hvis IsError (cval) Så er cval = 0
Andet
AddUnique = CVErr (1)
Afslut funktion
Afslut Hvis
Hvis IgnorerNegativenumbers Så
Hvis cval <0 Så cval = 0
Andet
AddUnique = CVErr (2)
Afslut funktion
Afslut Hvis
Hvis ikke dikteres. Eksisterer (cval) Så
tilføj cval, cval
forskellige numre = distinkte tal + cval
Afslut Hvis
Næste
AddUnique = forskellige numre
Afslut funktion
- I celle C2 ville formlen være
- = AddUnique (A2: A6)
- For at kontrollere, om koden ignorerer gentagen værdi eller ej; lad os ændre værdien i celle A1 til 50 og se resultatet.
På denne måde kan vi tilføje tydelige positive værdier gennem makrokode.
Download-prøvefil-xlsm