Можете користити а РефЕдит контрола у Екцел ВБА да бисте добили опсег од корисника. Тхе Усерформ ми ћемо створити боје минималну вредност домет ускладиштено у РефЕдит контроли.
Да бисте креирали овај кориснички образац, извршите следеће кораке.
1. Отворите Висуал Басиц Едитор. Ако Пројецт Екплорер није видљив, кликните на Виев, Пројецт Екплорер.
2. Притисните Уметни, Кориснички образац. Ако се Тоолбок не појави аутоматски, кликните на Виев, Тоолбок. Екран треба да буде подешен на доле наведени начин.
3. Додајте ознаку, РефЕдит контролу и командна дугмад. Када се ово заврши, резултат би требао бити у складу са сликом корисничког обрасца приказаном раније. На пример, креирајте РефЕдит контролу кликом на РефЕдит из Тоолбок -а. Затим можете повући РефЕдит контролу на Усерформ.
Напомена: Ако ваша кутија са алаткама нема РефЕдит контролу, поставите референцу на РефЕдит контролу. Кликните на Алатке, Референце и означите Реф Едит Цонтрол.
4. Можете променити називе и натписе контрола. Имена се користе у Екцел ВБА коду. Титлови су они који се појављују на екрану. Добра је пракса да промените називе контрола, али то овде није потребно јер у овом примеру имамо само неколико контрола. Да бисте променили наслов дугмета Усерформ, лабел и цомманд, кликните на Виев, Пропертиес Виндов и кликните на сваку контролу.
5. Да бисте приказали Усерформ, поставите командно дугме на свој радни лист и додајте следећи кодни ред:
Приватна под -командаБуттон1_Цлицк ()
УсерФорм1.Схов
Енд Суб
Сада ћемо креирати Суб УсерФорм_Инитиализе. Када користите метод Схов за Усерформ, ова подмена ће се аутоматски извршити.
6. Отворите Висуал Басиц Едитор.
7. У Пројецт Екплореру кликните десним тастером миша на УсерФорм1, а затим кликните на Виев Цоде.
8. Изаберите Кориснички образац са леве падајуће листе. Одаберите Инитиализе са десне падајуће листе.
9. Додајте следеће редове кода:
Привате Суб УсерФорм_Инитиализе ()
Схеет1.Целлс.Фонт.Цолор = вбБлацк
УсерФорм1.РефЕдит1.Тект = Одабир.Адреса
Енд Суб
Објашњење: прва линија кода мијења боју фонта свих ћелија на листу1 у црну. Друга линија кода добија адресу тренутног избора и приказује је у контроли РефЕдит.
Сада смо креирали први део Усерформ -а. Иако већ изгледа уредно, ништа се неће догодити када кликнемо командна дугмета на Усерформ -у.
10. У Пројецт Екплореру двапут кликните на УсерФорм1.
11. Двапут кликните на дугме Иди.
12. Додајте следеће редове кода:
Приватна под -командаБуттон1_Цлицк ()
Дим аддр Ас Стринг, рнг, целл Ас Ранге, минимум Ас Доубле
аддр = РефЕдит1.Валуе
Сет рнг = Ранге (аддр)
минимум = Функција радног листа.Мин (рнг)
За сваку ћелију У рнг
Ако је целл.Валуе = минимум Тада целл.Фонт.Цолор = вбРед
Следећа ћелија
Енд Суб
Објашњење: прво, добивамо адресу из контроле РефЕдит и спремамо је у Стринг варијаблу аддр. Затим смо поставили рнг на опсег наведен у контроли РефЕдит. Затим користимо функцију радног листа Мин да пронађемо минималну вредност у опсегу. На крају, бојимо минималне вредности помоћу петље.
13. Двапут кликните на дугме Откажи.
14. Додајте следећи кодни ред:
Приватна под -командаБуттон2_Цлицк ()
Унлоад Ме
Енд Суб
Објашњење: ова линија кода затвара Усерформ када кликнете на дугме Цанцел.
15. Тестирајте Усерформ.
Резултат:
