Ak vás zaujíma, ako môžete pridať iba pozitívne a jedinečné hodnoty, tento článok je pre vás.
V tomto článku sa naučíte, ako pomocou kódu VBA pridať do programu Excel iba odlišné kladné hodnoty.
Otázka): Chcem, aby makro sčítalo všetky zreteľné kladné čísla v určenom rozsahu, ktorý obsahuje záporné aj kladné čísla.
Nasleduje prehľad údajov, ktoré máme:
Musíme postupovať podľa nasledujúcich krokov:
- Kliknite na kartu Vývojár
- Zo skupiny kódov vyberte Visual Basic
Do štandardného modulu zadajte nasledujúci kód:-
Funkcia AddUnique (vstupný rozsah ByRef ako rozsah, _
Voliteľné IgnoreText ako logická hodnota = True, _
Voliteľné IgnoreError As Boolean = True, _
Voliteľné Ignorovať číselné čísla ako logická hodnota = pravda)
Tlmené odlišné čísla ako dvojité
Dim bunka ako rozsah
Dim dict As Object
Set dict = CreateObject ("Scripting.dictionary")
odlišné čísla = 0
Pre každú bunku v poli inputrange.Resize (inputrange.Rows.Count, 1)
cval = bunka. Hodnota
Ak IgnoreText Potom
Ak nie (VBA.IsNumeric (cval)) Potom cval = 0
Inak
AddUnique = CVErr (0)
Ukončiť funkciu
Koniec Ak
If IgnoreError Then
If IsError (cval) Then cval = 0
Inak
AddUnique = CVErr (1)
Ukončiť funkciu
Koniec Ak
Ak Ignorovať Negatívne čísla potom
Ak cval <0, potom cval = 0
Inak
AddUnique = CVErr (2)
Ukončiť funkciu
Koniec Ak
Ak nie je diktované. Existuje (cval) Potom
dikt. Pridať cval, cval
odlišné čísla = odlišné čísla + cval
Koniec Ak
Ďalšie
AddUnique = odlišné čísla
Koncová funkcia
- V bunke C2 bude vzorec
- = AddUnique (A2: A6)
- Ak chcete skontrolovať, či kód ignoruje opakovanú hodnotu alebo nie; zmeňme hodnotu v bunke A1 na 50 a uvidíme výsledok.
Týmto spôsobom môžeme prostredníctvom makrokódu pridať zreteľné kladné hodnoty.
Stiahnuť-ukážkový súbor-xlsm