У случају да се питате како можете додати само позитивне и јединствене вриједности, онда је овај чланак за вас.
У овом чланку ћете научити како да додате само различите позитивне вредности у екцелу помоћу ВБА кода.
Питање): Желим да макро сабере све различите позитивне бројеве у наведеном опсегу који укључује негативне и позитивне бројеве.
Следи снимак података које имамо:
Морамо да следимо следеће кораке:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
Унесите следећи код у стандардни модул:-
Функција АддУникуе (БиРеф инпут ранге Ас Ранге, _
Опционално ИгнореТект Ас Боолеан = Труе, _
Опционално ИгнореЕррор Ас Боолеан = Труе, _
Опционално ИгнореНегативенумберс Ас Боолеан = Труе)
Затамните различите бројеве као двоструко
Дим целл Ас Ранге
Дим дицт Ас Објецт
Сет дицт = ЦреатеОбјецт ("Сцриптинг.дицтионари")
различити бројеви = 0
За сваку ћелију Ин инпутранге.Ресизе (инпутранге.Ровс.Цоунт, 1)
цвал = ћелија.Вредност
Ако ИгнореТект Онда
Ако није (ВБА.ИсНумериц (цвал)) Тада је цвал = 0
Иначе
АддУникуе = ЦВЕрр (0)
Излазна функција
Крај Ако
Ако ИгнореЕррор Онда
Ако је ИсЕррор (цвал) онда је цвал = 0
Иначе
АддУникуе = ЦВЕрр (1)
Излазна функција
Крај Ако
Ако ИгнореНегативенумберс
Ако је цвал <0, тада је цвал = 0
Иначе
АддУникуе = ЦВЕрр (2)
Излазна функција
Крај Ако
Иф Нот дицт.Екистс (цвал) Тада
дикт.Додати цвал, цвал
различити бројеви = различити бројеви + квал
Крај Ако
Следећи
АддУникуе = различити бројеви
Завршна функција
- У ћелији Ц2 формула би била
- = АддУникуе (А2: А6)
- Да бисте проверили да ли код занемарује поновљену вредност или не; променимо вредност у ћелији А1 на 50 и видимо резултат.
На овај начин можемо додати различите позитивне вредности путем макро кода.
Довнлоад-Сампле Филе-клсм