Удомельский форум

Удомельский форум (http://second.udomlya.ru/uf/index.php)
-   Программирование (http://second.udomlya.ru/uf/forumdisplay.php?f=26)
-   -   Как это запустить? (http://second.udomlya.ru/uf/showthread.php?t=1800)

po4emu4ka 28.07.2006 22:16

Как это запустить?
 
Мне нужно банально отсортировать 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 29.07.2006 14:27

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

po4emu4ka 29.07.2006 16:00

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

Ruble 29.07.2006 16:28

Цитата:

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

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

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

po4emu4ka 29.07.2006 19:53

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

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

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

Ruble 29.07.2006 20:25

Вложений: 1
Цитата:

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

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

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

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

George 30.07.2006 20:35

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

Ruble 30.07.2006 21:13

Цитата:

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

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

po4emu4ka 30.07.2006 21:21

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

Ruble 30.07.2006 23:17

Цитата:

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

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


Текущее время: 23:07. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot