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