Excel VBA UserForm Combobox Get Selected Item (3 Columns)

preview_player
Показать описание
Excel VBA UserForm Combobox Learn how to get selected item (3 Columns).

The source code used in this video:

Private Sub cbOK_Click()
Dim Selected1st As String
Dim Selected2nd As String
Dim Selected3rd As String

Selected1st = cbDays.Value
Selected2nd = cbDays.List(cbDays.ListIndex, 1)
Selected3rd = cbDays.List(cbDays.ListIndex, 2)

MsgBox Selected1st & vbNewLine & _
Selected2nd & vbNewLine & _
Selected3rd

End Sub

Private Sub UserForm_Initialize()
Dim aDays(2, 2)

aDays(0, 0) = "16/01/2015"
aDays(1, 0) = "17/01/2015"
aDays(2, 0) = "18/01/2015"

aDays(0, 1) = "Friday"
aDays(1, 1) = "Saturday"
aDays(2, 1) = "Sunday"

aDays(0, 2) = "weekday"
aDays(1, 2) = "weekend"
aDays(2, 2) = "weekend"

cbDays.List = aDays

End Sub
Рекомендации по теме
Комментарии
Автор

Thanks for the info. Really helped me save time while building my vba application.

RajarajanPanneerselvam
Автор

Nice and clearly explained. Brilliant. Thank You

mawimainternacionales