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