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