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