Не работает упорядочивание

@"Ламер"-программер:) · Регистрация: 17.04.2009

Студворк — интернет-сервис помощи студентам

Доброго времяни суток, уважаемые форумчане!
В общем, опять я

У меня не работает следующий код, прошу помочь в поиске альтернативы.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton6_Click()
'Кнопка упорядочивания списка по алфавиту, упорядочивает по фамилиям
Dim i As Integer, j As Integer, n As Integer, buf As String, buf2 As String, sum
n = 2
Do While (Application.Sheets(1).Cells(n, 1).Text <> "")
    n = n + 1
Loop
For i = 2 To n - 1
    sum = i + 1
    If Mid(Application.Sheets(1).Cells(i, 1).Text, 1, 3) > Mid(Application.Sheets(1).Cells(sum, 1).Text, 1, 3) Then
        For j = 1 To 9
            buf = Application.Sheets(1).Cells(i, j).Text
            buf2 = Application.Sheets(1).Cells(sum, j).Text
 
 
'проблема заключается вот в этой строчке, пишет: нельзя установить свойство Text класса Range
            Application.Sheets(1).Cells(sum, j).Text = buf
 
 
            Application.Sheets(1).Cells(i, j).Text = buf2
        Next j
    End If
Next i
End Sub

И, да, я знаю что можно обойтись одной переменной buf, я просто экперементировал.

Добавлено через 9 минут 32 секунды
Думаю и 20 строка будет с такой же ошибкой как 17

Добавлено через 2 часа 59 минут 13 секунд
Нашёл стандартную функцию sort но пока не понял как ей пользоваться =(

Добавлено через 16 минут 6 секунд
Вроде вот, сортирует но только одну колонку, как потянуть за собой остальные элементы ненаю =( никто не подскажет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Range("A2").Select
    With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A2:A25"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A1:A11")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Добавлено через 37 минут 42 секунды
Я просто полный осёл =( ещё раз убеждаюсь в этом, исходный код работоспособен лишь в том случае когда вместо

Visual Basic
1
2
Application.Sheets(1).Cells(sum, j).Text = buf
Application.Sheets(1).Cells(i, j).Text = buf2

написать

Visual Basic
1
2
Application.Sheets(1).Cells(sum, j).value = buf
Application.Sheets(1).Cells(i, j).value = buf2

спасибо мне за помощь

а что, прикольно, сам задал вопрос, сам на него ответил, и вёл сам с собой беседу я наверное уже брежу -_-"

@Toxa33rus · 03.06.2009, 12:49