Здравствуйте, каким образом можно отсортировать значения в ListBox от А до Я?
Код |
---|
Private Sub UserForm_Initialize() Dim i As Long, j As Long For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row If Cells(i, 1).Font.Color = RGB(255, 0, 0) Then ListBox1.AddItem i ListBox1.List(j, 1) = Cells(i, 1) j = j + 1 End If Next End Sub Private Sub ListBox1_Click() If ListBox1.ListIndex = -1 Then Exit Sub Cells(ListBox1.Value, 1).Select End Sub |