Выделить все столбцы combobox

Question

У меня есть combobox на пользовательской форме. Этот выпадающий список существует из четырех столбцов. Это пример данных в UserForm:

Week 1: | 01-01-2015 | - | 07-01-2015 
Week 2: | 08-01-2015 | - | 14-01-2015 
Week 3: | 15-01-2015 | - | 21-01-2015 

Теперь, когда я выбираю один из вариантов, например, 2 недели, мой выбор выпадающего списка изменится на Week 2:, в то время как я хочу, чтобы изменить Week 2: | 08-01-2015 | - | 14-01-2015

Я знаю, что на самом деле я должен использовать списки для такого рода вещей, но мне не нравится внешний вид списка.

Answer 1

Вы можете попробовать это. Тем не менее, следует помнить, что после изменения текста в «смешанной строки», вы больше не будете иметь возможность получить выбранный ListIndex

Private Sub ComboBox5_Change() 
    Dim i As Integer 
    With ComboBox5 
     i = .ListIndex: If i < 0 Then Exit Sub 
     .Text = .List(i, 0) & " | " & .List(i, 1) & " | " & .List(i, 2) & " | " & .List(i, 3) 
    End With 
End Sub