Как это запустить?

[po4emu4ka]

Мне нужно банально отсортировать 1 столбец в Excel'е. Вот нашла пузырьковый метод,а как его запустить не знаю. Подскажите по шагам,что делать. Куда вставить этот блок? Я очень мало знаю про Visual Basic поэтому напишите пожалуйста подробнее. И если вдруг то что я нашла - ерунда, то подскажите как сделать сортировку.

Вот то что я нашла:

Public Sub Bubblesort(List() As Long, ByVal min As Long, ByVal max As Long)
Dim last_swap As Long
Dim i As Long
Dim j As Long
Dim tmp As Long
‘ Повторять до завершения.
Do While min < max
‘ «Всплывание».
last_swap = min - 1
‘ То есть For i = min + 1 To max.
i = min + 1
Do While i <= max
‘ Найти «пузырек».
If List(i - 1) > List(i) Then
‘ Найти, куда его поместить.
tmp = List(i - 1)
j = i
Do
List(j - 1) = List(j)
j = j + 1
If j > max Then Exit Do
Loop While List(j) < tmp
List(j - 1) = tmp
last_swap = j - 1
i = j + 1
Else
i = i + 1
End If
Loop
‘ Обновить переменную max.
max = last_swap - 1
‘ «Погружение».
last_swap = max + 1
‘ То есть For i = max -1 To min Step -1
i = max - 1
Do While i >= min
‘ Найти «пузырек».
If List(i + 1) < List(i) Then
‘ Найти, куда его поместить.
tmp = List(i + 1)
j = i
Do
List(j + 1) = List(j)
j = j - 1
If j < min Then Exit Do
Loop While List(j) > tmp
List(j + 1) = tmp
last_swap = j + 1
i = j - 1
Else
i = i - 1
End If
Loop
‘ Обновить переменную min.
Min = last_swap + 1
Loop
End Sub

[Ruble]

а средствами Exel не сортируется что ль ? через главное меню.

[po4emu4ka]

Да даже если и сортируется,мне надо именно через VisualBasic. Думала что достаточно вставить то что я писала выше в module и заполнить лист Excel'я...я ошибалась ))

[Ruble]

Сообщение от po4emu4ka

Да даже если и сортируется,мне надо именно через VisualBasic. Думала что достаточно вставить то что я писала выше в module и заполнить лист Excel'я...я ошибалась ))

а в чём ты это всё написала то?
там и запускай.

вот хорошая статья http://10.0.44.2/magazins/?dir=VisualBasic

[po4emu4ka]

Я не сама это этот блок писала,а скопировала просто с сайта. Это типа пример пузырькового метода для VisualBasic. И я планировала что он будет работать ))

Ссылка не запускается (

P.S.Этот форум моя последняя надежда ))

[Ruble]

Сообщение от po4emu4ka

Я не сама это этот блок писала,а скопировала просто с сайта. Это типа пример пузырькового метода для VisualBasic. И я планировала что он будет работать ))

Ссылка не запускается (

P.S.Этот форум моя последняя надежда ))

ссылка запускаеться только у тех кого пока миновала рестроктуризация.
вот прикрепил VisualBasic.zip

[George]

Стандартный метод - начать запись макроса, отсортировать и посмотреть, что записалось.

[Ruble]

Сообщение от George

Стандартный метод - начать запись макроса, отсортировать и посмотреть, что записалось.

в статье о том же ?)

[po4emu4ka]

Спасибоза этот word-документ, просмотрела и увидела там сортировку, завтра попробую разобраться. Надеюсь все заработает ))

[Ruble]

Сообщение от po4emu4ka

Спасибоза этот word-документ, просмотрела и увидела там сортировку, завтра попробую разобраться. Надеюсь все заработает ))

удачи. всегда пожалуйста