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