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