Excel VBA UserForm Listbox Get Selected Items

Опубликовано: 03 Февраль 2015
на канале: InAnOffice

59k

194

Excel VBA UserForm Listbox Learn how to get selected items.

The source code used in this video:

Private Sub cbOK_Click()
Dim SelectedItems As String
For i = 0 To lbDays.ListCount - 1
If lbDays.Selected(i) = True Then
SelectedItems = SelectedItems & lbDays.List(i) & vbNewLine
End If
Next i

If SelectedItems = "" Then
MsgBox "Nothing selected"
Else
MsgBox "Selected Items: " & vbNewLine & SelectedItems
End If

End Sub

Private Sub UserForm_Initialize()

With lbDays
.AddItem "Monday"
.AddItem "Tuesday"
.AddItem "Wednesday"
End With

End Sub

Смотрите видео Excel VBA UserForm Listbox Get Selected Items онлайн без регистрации, длительностью 03 минут 29 секунд в хорошем hd качестве. Это видео добавил пользователь InAnOffice 03 Февраль 2015, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 59 тысяч раз и оно понравилось 194 людям.

129