Private Sub CommandButton1_Click()
Dim li As Long, bYes As Boolean: bYes = False
With Me.TextBox1
If .Value <> "" Then
For li = 0 To Me.ComboBox1.ListCount - 1
If Me.ComboBox1.List(li) = .Value Then bYes = True: Exit For
Next li
If bYes = False Then Me.ComboBox1.AddItem .Value: .Value = "" Else MsgBox "Введенное значение уже имеется в списке ", 64, "Информационное сообщение"
ComboBox1.Value = ""
.Value = ""
End If
End With
сортировка
End Sub
Private Sub сортировка()
Dim i
ListView1.ListItems.Clear
For i = 0 To ComboBox1.ListCount - 1
ListView1.ListItems.Add , , ComboBox1.List(i)
Next i
ComboBox1.Clear
For i = 1 To ListView1.ListItems.Count
ComboBox1.AddItem ListView1.ListItems(i)
Next i
End Sub