Овај чланак ће показати како се користе контроле у корисничким обрасцима у програму Екцел ВБА.
ВБА има могућност креирања образаца са којима корисник може да ступи у интеракцију, попут образаца за фактуре или података за контакт. Образац може садржати различите контроле образаца, попут оквира за текст, комбинованих оквира, оквира са списковима и командних дугмади. Овај чланак ће покрити најпопуларније контроле које се користе на корисничким обрасцима, наиме текстуалне оквире, ознаке, комбиноване оквире, оквире са листама, поља за потврду и групе опција.
Кликните овде да бисте сазнали више о уграђеним корисничким обрасцима и креирању прилагођених корисничких образаца у програму Екцел.
Креирање корисничког обрасца
Да бисмо креирали УсерФорм у Екцел ВБА, прво морамо отворити ВБЕ Едитор.
Да бисте у свој код уметнули нови кориснички образац, изаберите УсерФорм опцију из менија Уметање.
Нови кориснички образац ће се појавити у Пројецт Екплорер и биће приказано у прозору кода са десне стране.
Образац можете преименовати помоћу Некретнине кутија. Ово би требало да се појави испод вашег Пројецт Екплорер.
Ако је видљиво, притисните Ф4 или кликните Поглед, Прозор својстава.
Кликните на Име својину и преименујте образац.
Сада можемо почети са попуњавањем нашег обрасца контролама - контрола оквира за текст је најпопуларнија контрола заједно са контролом налепнице и командним дугметом.
Да бисмо попунили образац контролама, морамо да укључимо Тоолбок.
У Мени, изаберите Поглед> Оквир са алаткама.
Креирање оквира за текст
Да бисте креирали оквир за текст на обрасцу, изаберите контролу оквира за текст у оквиру са алаткама.
Повуците облик оквира на обрасцу мишем, држећи притиснуто лево дугме, а затим отпустите дугме миша.
Пошто је ово први оквир за текст који стварамо, назваће се ТектБок1. Као и код обрасца, можете користити прозор Својства за преименовање оквира за текст.
Можемо да наставимо да стварамо онолико текстуалних оквира у нашем обрасцу колико нам је потребно и да их именујемо према потреби користећи својство Наме у прозору Својства.
Креирање контроле ознака
Контрола ознака говори нам шта ће се оквир за текст користити за држање. Повучете образац на исти начин као што радите за оквир за текст, а затим можете да откуцате потребан текст унутар контроле налепнице, на пример: Име као што је приказано испод.
Као и код оквира за текст, наставите да стварате онолико колико је потребно у обрасцу.
Креирање контроле комбинованог оквира
Комбиновано поље (или падајући оквир) омогућава кориснику да бира са листе вредности. Да бисте креирали комбиновани оквир, кликните на оквир са алаткама на контроли Цомбо Бок, а затим кликните и превуците комбиновани оквир у свом обрасцу.
Назовите Цомбо Бок на одговарајући начин.
Додавање вредности у Цомбо Бок
Да бисмо га попунили вредностима, морамо га кодирати у Иницијализујте метод објекта Усер форм.
Да бисте дошли до кода иза обрасца (ЦБФ), кликните двапут на образац или кликните на дугме кода у Пројецт Екплореру да бисте прешли на приказ кода.
На падајућој листи са леве стране изаберите Кориснички образац, а затим на падајућој десној страни изаберите Покрени.
Унесите следећи код у Суб и Енд Суб да попуните падајући оквир:
| 1234 | Ме.цбоСтате.АддИтем "Алабама"Ме.цбоСтате.АддИтем "Аљаска"Ме.цбоСтате.АддИтем "Аризона"Ме.цбоСтате.АддИтем "Аркансас" |
Наравно, можемо да наставимо попуњавање листе са осталим државама у САД!
Да бисте покренули кориснички образац да бисте видели листу на делу, 1) вратите се на приказ обрасца, а затим 2) на траци са алаткама кликните на Трцати дугме.
Кликните на падајућу стрелицу да видите листу.
Такође можемо користити опсег у Екцелу да попунимо Цомбо Бок.
| 123456 | Привате Суб УсерФорм_Инитиализе ()Дим рнг Ас РангеЗа сваки рнг у домету ("А1: А50")Ме.цбоСтате.АддИтем рнг.ВалуеНект рнгЕнд Суб |
Ово ће покупити све вредности сачуване у опсегу А1 до А50 и према томе попунити падајућу листу.
Креирање контроле оквира са листом
Контрола Лист Бок ради на исти начин као контрола Цомбо Бок, али нам омогућава да видимо све опције на обрасцу у формату листе.
Изаберите контролу оквира оквира у оквиру са алаткама, а затим превуците да бисте креирали оквир са листом на обрасцу.
Уморни сте од тражења примера ВБА кода? Испробајте АутоМацро!
Додавање вредности у оквир са листом
У догађај Инитиализе обрасца откуцајте следећи код:
| 123456 | Привате Суб УсерФорм_Инитиализе ()Дим рнг Ас РангеЗа сваки рнг у домету ("А1: А50")Ме.лстСтате.АддИтем рнг.ВалуеНект рнгЕнд Суб |
Када покренемо образац, приказаће се оквир са листом као што је приказано на доњој слици:
Креирање контроле у пољу за потврду
Поља за потврду омогућавају кориснику да означи или поништи избор опције.
Означите контролну кућицу за потврду, а затим кликните на образац на који желите да иде.
Измените наслов и назив поља за потврду у прозору Својства.
Креирање контроле групе опција помоћу дугмади за опције
Група опција омогућава кориснику да бира између бројних доступних опција. Први корак у креирању групе опција је додавање контроле оквира у образац, а затим додавање дугмади опција у оквир који је додат. Радећи ово, осигуравамо да се приликом покретања обрасца може одабрати само један од дугмади опција у оквиру.
Изаберите контролу оквира у оквиру са алаткама, а затим превуците да бисте креирали оквир на обрасцу.
Одаберите контролу дугмета опције у оквиру са алаткама, а затим кликните унутар У оквиру горе креираног оквира да бисте додали дугме опције у оквир. Поновите по потреби.
Кликните на оквир и 1) измените назив оквира и наслов. Затим 2) кликните на свако од дугмади за опције и измените наслов.
Креирање командног дугмета за излазак из обрасца
У овој фази, једини начин затварања обрасца је коришћење дугмета за затварање у десном углу контролне траке обрасца. Ефикаснији начин изласка из обрасца и онај у коме имамо више контроле је креирање дугмета Излаз на обрасцу. То се ради помоћу контроле командног дугмета у Тоолбок -у.
Изаберите контролу командног дугмета, а затим кликните и превуците образац да бисте креирали дугме.
Помоћу својства наслова промените наслов командног дугмета на ОК, а Акцелератор на „О“
Сврха акцелератора је да корисник у овом случају помоћу тастатуре активира дугме Алт+О. би активирао дугме.
Одличан производ. АутоМацро не само да пише ваш код, већ учи и док идете! " - Тони, УК
Сазнајте вишеПрочитајте наше 900+ рецензија
Додавање кода командном дугмету
Да би командно дугме функционисало, морамо додати код иза њега, тако да када се притисне дугме, код се покреће. Ово се назива догађај клика дугмета.
Да бисте дошли до догађаја клика, двапут кликните на дугме у приказу дизајна обрасца.
1) Догађај Цлицк ће се аутоматски креирати јер је то догађај који се најчешће користи за командне тастере.
2) Ако бисмо кликнули на падајући оквир Процедура на десној страни, видели бисмо листу свих метода догађаја које су доступне командном дугмету. Ова листа се мења у складу са врстом контроле коју смо креирали јер су доступни различити догађаји за различите врсте контрола.
Унесите следећи код у догађај клика командног дугмета.
| 123456789101112131415 | Приватни Суб цмдОК_Цлицк ()Опсег ("Е1") = Ме.тктФирстнамеОпсег ("Е2") = Ме.тктСурнамеОпсег ("Е3") = Ме.тктЦеллПхонеОпсег ("Е4") = Ме.цбоСтатеАко је Ме.цкЦонтацтИнфо = ТачноОпсег ("Е5") = "СМС дозвољен"ИначеОпсег ("Е5") = "СМС није дозвољен"Крај АкоАко је Ме.опт1.Валуе = Тачно, тада је опсег ("Е6") = Ме.опт1.ЦаптионИф Ме.опт2.Валуе = Труе тхен Ранге ("Е6") = Ме.опт2.ЦаптионАко је Ме.опт3.Валуе = Тачно, тада је опсег ("Е6") = Ме.опт3.ЦаптионУнлоад МеЕнд Суб |
Затим можемо покренути образац, попунити поља за текст и изабрати са падајуће листе. Затим кликните ОК да унесете податке у Екцел.
