У овом чланку ћемо створити прилагођену функцију за бројање јединствених вредности у дефинисаном опсегу.
Сирови подаци за овај пример састоје се од случајних бројева у редовима. У овом примеру желимо да бројимо јединствене бројеве у сваком реду.
Направили смо прилагођену функцију „ЦоунтУникуеВалуес“ да пронађемо број јединствених бројева у реду. Ова функција узима опсег као улаз и враћа јединствени број бројева.
Логичко објашњење
Направили смо прилагођену функцију „ЦоунтУникуеВалуес“ како бисмо добили број јединствених бројева. У овој прилагођеној функцији створили смо објект колекцијског објекта. Овај објекат колекције се користи за креирање листе јединствених бројева. Када добијемо листу јединствених бројева, добијамо број ставки у колекцији.
Објашњење кода
Апплицатион.Волатиле се користи јер ће се поново израчунати сваки пут када се вредност ћелије промени у радној свесци.
Он Еррор Ресуме Нект користи се за обраду грешака.
Молимо следите доле за код
Опција Експлицитна функција ЦоунтУникуеВалуес (ИнпутРанге Ас Ранге) Ас Интегер Дим ЦеллВалуе Ас Вариант, УникуеВалуес Ас Нев Цоллецтион Апплицатион.Волатиле 'За грешку при руковању грешком Настави даље' Петља кроз целу ћелију у дефинисаном опсегу За сваку ЦеллВалуе у ИнпутРанге УникуеВалуес.Адд Целл , ЦСтр (ЦеллВалуе) 'додај јединствену ставку Следеће' Враћање броја јединствених вредности ЦоунтУникуеВалуес = УникуеВалуес.Цоунт Енд Функција
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште