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