ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / а как сортировать массивы в VBA ?
22 сообщений из 47, страница 2 из 2
  2  все
а как сортировать массивы в VBA ?
    #35751746
Фотография Restavraciya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Restavraciya
Участник
ZVI
А иде в предложенном примере (сортировка с помощью адо рекордсета) вы нашли запрос или вообще хоть какое нибудь пересечение с вашей ссылкой об утечках ?
...
Рейтинг: 0 / 0
12.01.2009, 08:17:30
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35751777
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
RestavraciyaZVI
А иде в предложенном примере (сортировка с помощью адо рекордсета) вы нашли запрос или вообще хоть какое нибудь пересечение с вашей ссылкой об утечках ?

Ссылка Вами дана на код для Access-а, для которого то проблем никаких нет. В этом смысле все корректно.

Утечки памяти возникнут при попытке обработки подобным способом (средствами ADO) открытых в Excel книг. В этом случае утечка образуется вот здесь (строка кода из приведенной ссылки):
Dim rst As New ADODB.Recordset

И даже Set rst = Nothing в конце кода не устраняет утечку памяти в этом случае (открытая книга в Excel + ADO).
...
Рейтинг: 0 / 0
12.01.2009, 09:02:35
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35751918
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
ZVIИнфо для советчиков обрабатывать Excel-данные с помощью СУДБ, в частности ADO
...


ZVI
Все это известно уже сто лет.
Вам контрвопрос.
А как вы собираетесь сортировать в массиве данные разных типов?
...
Рейтинг: 0 / 0
12.01.2009, 10:33:17
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35751935
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
Меня убивает, например, такой способ решения элементарной проблемы сортировки ,
как подключение сторонней DLL.
Тогда как в СУБД сортировка осуществляется или добавлением двух слов Order by в текст запроса, или включением нужного индекса.

Многие задачи средствами СУБД решаются на несколько порядков проще, чем Экселем.
Поэтому переход на СУБД почти всегда оправдан.

P.S.
Я никоим образом не против Excel!
...
Рейтинг: 0 / 0
12.01.2009, 10:39:56
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752175
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
F ZVI
Все это известно уже сто лет.

То есть, Вы давно согласны, что СУБД не всегда приемлемо ;)

FВам контрвопрос.
А как вы собираетесь сортировать в массиве данные разных типов?

Ссылку (planetaexcel) на программную VBA-сортировку Слэн уже давал. Там есть вариант и для сортировки разных типов данных аналогично тому, как это делает Excel: данные не исчезают, а только сортируются.
...
Рейтинг: 0 / 0
12.01.2009, 12:14:30
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752639
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
ещё вариант, использую в Excel в модуле1
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub proba()
    Dim massiv1( 10 ), massiv2()

    massiv1( 2 ) =  20 
    massiv1( 3 ) = "13"
    massiv1( 4 ) =  4 
    
    massiv2 = ArraySort(massiv1)

End Sub
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Public Function ArraySort( ARRAY_() )
    Dim Exchange As Boolean
    Dim x As Long
    Dim t
    
    Do
        Exchange = False
        For x = UBound(ARRAY_) To LBound(ARRAY_) +  1  Step - 1 
            If ARRAY_(x -  1 ) > ARRAY_(x) Then
                t = ARRAY_(x -  1 )
                ARRAY_(x -  1 ) = ARRAY_(x)
                ARRAY_(x) = t
                Exchange = True
            End If
        Next x
        For x = LBound(ARRAY_) +  1  To UBound(ARRAY_)
            If ARRAY_(x -  1 ) > ARRAY_(x) Then
                t = ARRAY_(x -  1 )
                ARRAY_(x -  1 ) = ARRAY_(x)
                ARRAY_(x) = t
                Exchange = True
            End If
        Next
    Loop While Exchange
    
    ArraySort = ARRAY_()
    
End Function
...
Рейтинг: 0 / 0
12.01.2009, 14:32:36
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752724
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nporaMep
Гость
Это похоже на пузырька.
...
Рейтинг: 0 / 0
12.01.2009, 14:53:10
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752745
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
nporaMepЭто похоже на пузырька.точно, один в один (не изобритать же велосипед)
...
Рейтинг: 0 / 0
12.01.2009, 14:58:37
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752780
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nporaMep
Гость
пузырек плохо на больших массивах.
...
Рейтинг: 0 / 0
12.01.2009, 15:10:01
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752872
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
ZVIТо есть, Вы давно согласны, что СУБД не всегда приемлемо
То, что вы имеете в виду, это и не СУБД, это запрос к таблице Excel, созданной не по правилам СУБД. Он и не должен работать.


ZVI
Ссылку (planetaexcel) на программную VBA-сортировку Слэн уже давал. Там есть вариант и для сортировки разных типов данных аналогично тому, как это делает Excel: данные не исчезают, а только сортируются.

Вот в этом частном случае я с вами согласен.
...
Рейтинг: 0 / 0
12.01.2009, 15:37:05
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752901
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
nporaMepпузырек плохо на больших массивах.на очень больших не пробовал

В моём случае около 3-ёх тысяч элементов. Пока всё устраивает.
...
Рейтинг: 0 / 0
12.01.2009, 15:47:45
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752922
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
klen_,
Exchange = False из цикла хотя бы уберите
:)
...
Рейтинг: 0 / 0
12.01.2009, 15:55:17
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35752930
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
_slan_,

да и переприсваивать массив в конце незачем, он же по умолчанию по ссылке..
...
Рейтинг: 0 / 0
12.01.2009, 15:57:36
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35754576
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
_slan_не согласен с вами, ни с тем ни с другим предложением
...
Рейтинг: 0 / 0
13.01.2009, 12:49:53
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35754616
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
на счёт второго предложения, всё-таки под вопросом
Код: plaintext
massiv2 = ArraySort(massiv1)
вы про эту строку говорите?
...
Рейтинг: 0 / 0
13.01.2009, 12:57:46
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35754985
nporaMep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nporaMep
Гость
Do
Exchange = False

надо поменять на

Exchange = False
Do
...
Рейтинг: 0 / 0
13.01.2009, 14:27:52
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35755077
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
klen_на счёт второго предложения, всё-таки под вопросом
Код: plaintext
massiv2 = ArraySort(massiv1)
вы про эту строку говорите?

Да , про эту.

с первой, согласен, я несколько поторопился :)


но вообще обратите внимание - там нашелся довольно быстрый алгоритм, особенно после модернизации его ZVI
...
Рейтинг: 0 / 0
13.01.2009, 14:51:10
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35755111
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
точнее про эти две:

massiv2 = ArraySort(massiv1) - лучше просто ArraySort(massiv1)


ArraySort = ARRAY_() - вообще удалить


программа будет сортировать непосредственно во входящем массиве, если же его трогать не надо, то всегда можно переприсвоить, но пусть уж это будет на совести вызывающего
...
Рейтинг: 0 / 0
13.01.2009, 14:59:12
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35755281
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
_slan_точнее про эти две:

massiv2 = ArraySort(massiv1) - лучше просто ArraySort(massiv1)


ArraySort = ARRAY_() - вообще удалить


программа будет сортировать непосредственно во входящем массиве, если же его трогать не надо, то всегда можно переприсвоить, но пусть уж это будет на совести вызывающего
Код: plaintext
    ArraySort massiv1
да, так тоже работает, massiv1 становится отсортированным
...
Рейтинг: 0 / 0
13.01.2009, 15:49:24
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35755319
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
_slan_но вообще обратите внимание - там нашелся довольно быстрый алгоритм, особенно после модернизации его ZVIне дадите ссылочку, я никак не найду (пожалуйста)
...
Рейтинг: 0 / 0
13.01.2009, 15:59:36
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35761104
Pavel55
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel55
Гость
Klen, вот ссылка http://www.planetaexcel.ru/forum.php?thread_id=7702

______________________________________________________________
Разрабатываю макросы под заказ.
Email: MacrosForYou собака yandex точка ru
...
Рейтинг: 0 / 0
16.01.2009, 12:04:44
| Ответить | Цитировать | Написать  
а как сортировать массивы в VBA ?
    #35761226
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_slan_
Участник
вот ссылка на файл: http://www.planetaexcel.ru/docs/forum_upload/post_44267.rar
...
Рейтинг: 0 / 0
16.01.2009, 12:41:27
| Ответить | Цитировать | Написать  
22 сообщений из 47, страница 2 из 2
  2  все
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / а как сортировать массивы в VBA ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35751935&tid=2179915]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 173ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 78ms
get tp. blocked users:
 2ms
others: 193ms
total:  489ms
созд. / загр.: 489ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]