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