Pokud vás zajímá, jak můžete přidat pouze kladné a jedinečné hodnoty, pak je tento článek pro vás.
V tomto článku se naučíte, jak pomocí kódu VBA přidávat do Excelu pouze odlišné kladné hodnoty.
Otázka): Chci, aby makro shrnulo všechna zřetelná kladná čísla v určeném rozsahu, který obsahuje záporná i kladná čísla.
Následuje snímek dat, která máme:
Musíme postupovat podle následujících kroků:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
Do standardního modulu zadejte následující kód:-
Funkce AddUnique (vstupní rozsah ByRef jako rozsah, _
Volitelné IgnoreText jako logická hodnota = True, _
Volitelné IgnoreError As Boolean = True, _
Volitelné Ignorovat Negativní čísla jako Boolean = True)
Ztlumit odlišná čísla jako dvojitá
Dim buňka jako rozsah
Dim dict As Object
Nastavit dict = CreateObject ("Scripting.dictionary")
odlišná čísla = 0
Pro každou buňku v inputrange.Resize (inputrange.Rows.Count, 1)
cval = buňka.Hodnota
If IgnoreText Then
Pokud ne (VBA.IsNumeric (cval)) Pak cval = 0
Jiný
AddUnique = CVErr (0)
Funkce ukončení
Konec If
If IgnoreError Then
If IsError (cval) Then cval = 0
Jiný
AddUnique = CVErr (1)
Funkce ukončení
Konec If
If IgnoreNegativenumbers Then
Je -li cval <0, pak cval = 0
Jiný
AddUnique = CVErr (2)
Funkce ukončení
Konec If
Pokud není dict.Exists (cval) Then
dict.Add cval, cval
rozlišná čísla = odlišná čísla + cval
Konec If
další
AddUnique = odlišná čísla
Koncová funkce
- V buňce C2 bude vzorec
- = AddUnique (A2: A6)
- Chcete -li zkontrolovat, zda kód ignoruje opakovanou hodnotu nebo ne; změňme hodnotu v buňce A1 na 50 a uvidíme výsledek.
Tímto způsobem můžeme přidat zřetelné kladné hodnoty prostřednictvím kódu makra.
Stáhnout ukázkový soubor xlsm