MyTetra Share
Делитесь знаниями!
Сортировка массива строк по алфавиту (в порядке возрастания)
03.01.2018
15:53
Текстовые метки: Sort,Сортировка
Раздел: VBA - Сортировка
Sub Sort(astrNames() As String)    ' Сортировка массива строк по алфавиту (в порядке возрастания)
    Dim i As Integer, j As Integer
    Dim strBuffer As String, fBuffer As Boolean
    For i = LBound(astrNames) To UBound(astrNames) - 1
        For j = i + 1 To UBound(astrNames)
            If astrNames(i) > astrNames(j) Then    ' Меняем i-й и j-й элементы массива местами
                strBuffer = astrNames(i): astrNames(i) = astrNames(j): astrNames(j) = strBuffer
            End If
        Next j
    Next i
End Sub
 
MyTetra Share v.0.52
Яндекс индекс цитирования