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