/ / Екцел ВБА Цомбо Бок

Екцел ВБА Цомбо Бок

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

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

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

Направите комбинацију у Екцел ВБА

3. Превуците комбинацију на вашем радном листу.

Повуците комбо поље

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

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

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

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

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

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

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

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

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

ComboBox1.Clear
ComboBox1.Value = ""

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

ЛинкедЦелл

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

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

Резултат:

Цомбо Бок

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

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