![]() |
Как это запустить?
Мне нужно банально отсортировать 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 |
а средствами Exel не сортируется что ль ? через главное меню.
|
Да даже если и сортируется,мне надо именно через VisualBasic. Думала что достаточно вставить то что я писала выше в module и заполнить лист Excel'я...я ошибалась ))
|
Цитата:
там и запускай. вот хорошая статья http://10.0.44.2/magazins/?dir=VisualBasic |
Я не сама это этот блок писала,а скопировала просто с сайта. Это типа пример пузырькового метода для VisualBasic. И я планировала что он будет работать ))
Ссылка не запускается ( P.S.Этот форум моя последняя надежда )) |
Вложений: 1
Цитата:
вот прикрепил Вложение 1349 |
Стандартный метод - начать запись макроса, отсортировать и посмотреть, что записалось.
|
Цитата:
|
Спасибоза этот word-документ, просмотрела и увидела там сортировку, завтра попробую разобраться. Надеюсь все заработает ))
|
Цитата:
|
Текущее время: 23:07. Часовой пояс GMT +3. |
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot