/ / Екцел ВБА Лист Бок

Екцел ВБА Лист Бок

Поље за попис је листа одакле корисник може изабрати ставку. Да бисте креирали Листа кутија ин Екцел ВБА, извршите следеће кораке.

1. На картици Девелопер кликните на ставку Уметни.

2. У групи АцтивеКс Цонтролс кликните на Лист Бок.

Направите поље са листама у програму Екцел ВБА

3. Превуците поље са листом на радном листу.

Превуците поље за листу

Белешка: можете променити назив контроле десним кликом на контролу (проверите да ли је Десигн Моде изабран), а затим кликните на Пропертиес (Својства). За сада ћемо оставити ЛистБок1 као назив оквира са листама.

Креирајте отворени догађај радне свеске. Код додати на Опенбоок Ворк Опен ће Екцел ВБА извршити када отворите радну свеску.

4. Отворите Висуал Басиц Едитор.

5. Двапут кликните на ову радну свеску у Пројецт Екплорер-у.

6. Одаберите Воркбоок са леве падајуће листе и одаберите Опен са десне падајуће листе.

Воркбоок Опен Евент у Екцелу ВБА

7. Да бисте додали ставке у поље са листама, додајте следеће линијске код у Опенбоок Воркбоок:

With Sheet1.ListBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Белешка: користите Схеет2 ако се поље за листе налази на другом радном листу, Схеет3 ако се ваша листа налази на трећем радном листу, итд. Ако ове линије кода користите изван догађаја Воркбоок Опен, можда ћете желети додати сљедећу линију кода пре ових цоде линес. Ова линија кода брише поље с пописом. На овај начин ваше ставке неће бити додате више пута ако извршите свој код више од једном.

ListBox1.Clear

8. Да бисте повезали ово поље с пописом у ћелију, десним тастером миша кликните на поље са листама (проверите да ли је изабран режим дизајна) и кликните на Својства. Попуните Д3 за ЛинкедЦелл.

ЛинкедЦелл

Напомена: такође погледајте својство ЛистФиллРанге за попуњавање листе са низом ћелија.

9. Сачувај, затворите и поново отворите Екцел датотеку.

Резултат:

Листа кутија

Иако у неким ситуацијама може бити корисно да директно поставите оквир за листу на вашем радном листу, поље за листу је посебно корисно када се поставља на Усерформ.

Такође прочитајте: