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