Выбор строки из Combobox с помощью VBA...

[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 третий элемент?

[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

[nilem]

Т.е. выбирается не первая из одинаковых записей, а та, ListIndex которой указан.

[Busine2009]

.AddItem "Первый2"

что за самодеятельность?

[nilem]

что за самодеятельность?

Просто творческий подход.

[Busine2009]

nilem
Так нельзя менять названия - в этом вся фишка.

[nilem]

Назовите как хотите. Обращение-то идет не по имени, а по индексу.

[Busine2009]

nilem
так в том то весь и смысл, что названия одинаковые.

[nilem]

Вот это не подходит?
Private Sub CommandButton1_Click()
'выбираем 3-й элемент (нумерация нач-ся с 0)
Me.ComboBox1.ListIndex = 2
End Sub

[Busine2009]

nilem
не работает.