VBA-Excel Как очистить элементы ComboBox

83
5

У меня есть ComboBox с тремя элементами: "Выбрать", "Джек" и "Джилл". В разделе Private Sub Workbook_Open() я сохранил следующие строки кода.

With ThisWorkbook.Sheets("Sheet1").ComboBox1
Items.Clear
.AddItem "Select"
.AddItem "Jack"
.AddItem "Jill"
End With

Когда когда-либо я выбираю элемент и закрываю excel. В следующий раз, если я открою excel по умолчанию comboBox, показывая ранее выбранный элемент. Но я хочу показать select как элемент по умолчанию.

спросил(а) 2013-01-08T09:28:00+04:00 7 лет, 4 месяца назад
1
Решение
129

Вам нужно удалить Items.Clear должно быть просто. .Clear а затем используйте свойство .SelText чтобы установить выделенный текст.

With ThisWorkbook.Sheets("Sheet1").ComboBox1
.Clear
.AddItem "Select"
.AddItem "Jack"
.AddItem "Jill"
.SelText = "Select"
End With

ответил(а) 2013-01-08T10:54:00+04:00 7 лет, 4 месяца назад
Ваш ответ
Введите минимум 50 символов
Чтобы , пожалуйста,
Выберите тему жалобы:

Другая проблема