Сортировка списков с помощью пузырькового метода, пропуская первый элемент в списке - PullRequest
Новая
       14

Сортировка списков с помощью пузырькового метода, пропуская первый элемент в списке

0 голосов
/ 01 мая 2019

Мне нужна помощь в настройке этого кода пузырьковой сортировки, чтобы он пропускал первый элемент в списке и сортировал только az по остальным элементам в списке.Я потерян и нуждаюсь в некоторых направлениях.Спасибо 

    Dim j As Long
    Dim sTemp As String
    Dim sTemp2 As String
    Dim LbList As Variant

    'Store the list in an array for sorting
    LbList = Me.WorksheetListBox.List

    'Bubble sort the array on the first value
    For i = LBound(LbList, 1) To UBound(LbList, 1) - 1
        For j = i + 1 To UBound(LbList, 1)
            If LbList(i, 0) > LbList(j, 0) Then
                'Swap the first value
                sTemp = LbList(i, 0)
                LbList(i, 0) = LbList(j, 0)
                LbList(j, 0) = sTemp

                'Swap the second value
                sTemp2 = LbList(i, 1)
                LbList(i, 1) = LbList(j, 1)
                LbList(j, 1) = sTemp2
            End If
        Next j
    Next i

'Remove the contents of the listbox
        Me.WorksheetListBox.Clear

        'Repopulate with the sorted list
        Me.WorksheetListBox.List = LbList
...