В случай, че се чудите как можете да добавите само положителни и уникални стойности, тогава тази статия е за вас.
В тази статия ще научите как да добавяте само различни положителни стойности в Excel, използвайки VBA код.
Въпрос): Искам макрос да сумира всички различни положителни числа в определен диапазон, който включва отрицателни и положителни числа.
Следва моментна снимка на данните, с които разполагаме:
Трябва да следваме следните стъпки:
- Кликнете върху раздела Разработчик
- От групата кодове изберете Visual Basic
Въведете следния код в стандартния модул:-
Функция AddUnique (ByRef входен диапазон като диапазон, _
Незадължително IgnoreText As Boolean = True, _
По избор IgnoreError As Boolean = True, _
По избор IgnoreNegativenumbers As Boolean = True)
Затъмнете отделните номера като двойно
Затъмняване на клетката като обхват
Dim dict As Object
Задайте dict = CreateObject ("Scripting.dictionary")
различни числа = 0
За всяка клетка В диапазон на въвеждане.
cval = клетка
Ако IgnoreText Тогава
Ако не (VBA.IsNumeric (cval)) Тогава cval = 0
Иначе
AddUnique = CVErr (0)
Излезте от функцията
Край Ако
Ако IgnoreError Тогава
Ако IsError (cval) Тогава cval = 0
Иначе
AddUnique = CVErr (1)
Излезте от функцията
Край Ако
Ако IgnoreNegativenumbers Тогава
Ако cval <0, тогава cval = 0
Иначе
AddUnique = CVErr (2)
Излезте от функцията
Край Ако
If Not dict.Exists (cval) Тогава
dict.Add cval, cval
отделни номера = различни номера + cval
Край Ако
Следващия
AddUnique = различни числа
Крайна функция
- В клетка С2 формулата ще бъде
- = AddUnique (A2: A6)
- За да проверите дали кодът игнорира повтаряща се стойност или не; нека променим стойността в клетка A1 на 50 и ще видим резултата.
По този начин можем да добавим различни положителни стойности чрез макрокода.
Download-Sample File-xlsm
