Witam.
Zastosowałem do sortowania ListBoxa poniższy kod:
For Each komorka In Range("DETALE")
If komorka.Value <> "" Then
UserForm2.ListBox1.AddItem komorka.Value
End If
Next komorka
With UserForm2.ListBox1
For j = LBound(.List) To UBound(.List) - 1
For i = LBound(.List) To UBound(.List) - 1
If .List(i) > .List(i + 1) Then
temp = .List(i)
.List(i) = .List(i + 1)
.List(i + 1) = temp
End If
Next i
Next j
End With
Jednak nie u wszystkich użytkowników wykonanie zabiera kilka sekund. Niektórym przywiesza nawet Excel na tyle długo, że musiałem sortowanie wyłączyć.
Jest szansa na inną metodę sortowania? |