Страница 1 из 2
Выбор строки из Combobox с помощью VBA...
Добавлено: 23 май 2010, 18:52
Busine2009
проблема в чём? Если в Combobox есть 2 одинаковые записи, то при использовании VBA для выбора записи выбирается первая запись.
Код: Выделить всё
Private Sub CommandButton1_Click()
ComboBox1.Value = ComboBox1.List(2, 0)
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "Первый"
ComboBox1.AddItem "Второй"
ComboBox1.AddItem "Первый"
End Sub
Как в данном примере поместить в Combobox третий элемент?
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 11:50
nilem
Не совсем понятно. Может, так:
Код: Выделить всё
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Первый"
.AddItem "Второй"
.AddItem "Первый2"
End With
End Sub
Private Sub CommandButton1_Click()
'выбираем 3-й элемент (нумерация нач-ся с 0)
Me.ComboBox1.ListIndex = 2
End Sub
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 11:52
nilem
Т.е. выбирается не первая из одинаковых записей, а та, ListIndex которой указан.
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:05
Busine2009
.AddItem "Первый2"
что за самодеятельность?
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:10
nilem
Busine2009 писал(а):что за самодеятельность?
Просто творческий подход.
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:11
Busine2009
nilem
Так нельзя менять названия - в этом вся фишка.
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:14
nilem
Назовите как хотите. Обращение-то идет не по имени, а по индексу.
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:16
Busine2009
nilem
так в том то весь и смысл, что названия одинаковые.
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:25
nilem
Вот это не подходит?
Private Sub CommandButton1_Click()
'выбираем 3-й элемент (нумерация нач-ся с 0)
Me.ComboBox1.ListIndex = 2
End Sub
Re: Выбор строки из Combobox с помощью VBA...
Добавлено: 24 май 2010, 21:42
Busine2009
nilem
не работает.