Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/модификация ComboBox во время исполнения - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » модификация ComboBox во время исполнения (Макросы/Sub)
модификация ComboBox во время исполнения
Fingall Дата: Суббота, 17.12.2016, 21:35 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Подскажите, как можно сделать, чтобы в зависимости от состояния одного Combobox (например CB1) менялось содержание другого (например CB2)?
[vba]
Код

Private Sub ComboBox2_Change()
If (CB1.Text = "letters") Then
ComboBox2.Clear
ComboBox2.AddItem "a"
ComboBox2.AddItem "b"
ComboBox2.AddItem "c"
ComboBox2.ListRows = 3
End If
End Sub
[/vba]
не работает
 
Ответить
СообщениеПодскажите, как можно сделать, чтобы в зависимости от состояния одного Combobox (например CB1) менялось содержание другого (например CB2)?
[vba]
Код

Private Sub ComboBox2_Change()
If (CB1.Text = "letters") Then
ComboBox2.Clear
ComboBox2.AddItem "a"
ComboBox2.AddItem "b"
ComboBox2.AddItem "c"
ComboBox2.ListRows = 3
End If
End Sub
[/vba]
не работает

Автор - Fingall
Дата добавления - 17.12.2016 в 21:35
Karataev Дата: Суббота, 17.12.2016, 21:41 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Логичнее так:
[vba]
Код
Private Sub CB1_Change()
If (CB1.Text = "letters") Then
CB2.Clear
CB2.AddItem "a"
CB2.AddItem "b"
CB2.AddItem "c"
CB2.ListRows = 3
End If
End Sub
[/vba]
 
Ответить
СообщениеЛогичнее так:
[vba]
Код
Private Sub CB1_Change()
If (CB1.Text = "letters") Then
CB2.Clear
CB2.AddItem "a"
CB2.AddItem "b"
CB2.AddItem "c"
CB2.ListRows = 3
End If
End Sub
[/vba]

Автор - Karataev
Дата добавления - 17.12.2016 в 21:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » модификация ComboBox во время исполнения (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!