Проблема с реализацией задумки. Есть ф-ция добавляющая строки в список,по какому то определенному критерию.В этих строках содержатся ФИО - номер - ....- деньги Все представляется в html для выравнивания в колонках. Задача состоит в сортьировке этого списка по ФИО Загнать в массив и отсортировать Ниже фун-ция добавления: Function general(namemanager As String, res As Double, level As Integer, samelevel As Integer) As Double Dim a As Integer Dim B As Integer Dim z As Double Dim indexstart As Integer Dim indexnumb As Integer Dim flag As Integer Dim f As Integer flag = 0 a = estmanager(namemanager) If a = 0 Then B = indexemployee(namemanager) general = 0 Else indexstart = indexmanager(namemanager) indexnumb = nummanager(namemanager) For i = indexstart To (indexstart + indexnumb - 1) If namemanager = Cells(i, 7) Then flag = 1 Else: flag = 0 M = 0 End If If flag <> 1 Then If namemanager <> Cells(i, 7) Then z = 0 W = infmanager(Cells(i, 7), z) f = M zatratimanager = c End If If level >= samelevel Then GoTo jump strbody = strbody & "<tr><td>" & Cells(i, 7) & "</td><td>" & Cells(i, 11) & "</td><td>" & level + 1 & "</td><td>" & Cells(i, 25) & "$" & "</td><td>" & f & "</td><td>" & W & "$" & "</td></tr>" ' strbody = strbody & Cells(i, 7) & Cells(i, 11) & level + 1 & Cells(i, 25) & "$" & f & W & "$" & vbNewLine jump: kol = kol + 1 'End If res = res + Cells(i, 25) general = general(Cells(i, 7), res, level + 1, samelevel) + res End If Next i End If general = res End Function |