powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сортировка двумерного массива по нескольким полям
2 сообщений из 27, страница 2 из 2
Сортировка двумерного массива по нескольким полям
    #36917357
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не придирайтесь - просто реализованного на VBA


вот что получилось - см вложение.

быстрее чем сорт в два раза(это без вывода на лист)
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Сортировка двумерного массива по нескольким полям
    #39903065
Account_Unknown
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вы когда то писали:

"Двухмерный (или двумерный) массив. Нужен рабочий код VBA сортировки этого массива по нескольким полям.

Т. е., например, массив данных DataArray(N, M).
Массив полей сортировки по порядку SortArray(K), т.е. если сортировать надо сначала по столбцу 1, затем по 3, потом по 6, потом по 2, то SortArray – массив из чисел 1,3,6,2.
Подразумевается. что Option Compare не важно. Сортировка по возрастанию, хотя можно добавить массив, где указано, какой столбец надо сортировать, по возрастанию, а какой – по убыванию. Сортировать надо весь массив, т.е. с 1-й по последнюю строки, но в общем случае – со строки n1 по строку n2.

Т. е. нужен процедура сортировки, которая бы запускалась в коде макроса примерно так:
SortMacro DataArray, SortArray, n1, n2"

Можете посмотреть файл во вложении, в нем подпрограмма: runBlockchainSortingOfTwoDimensionalArray, которая сортирует двумерный массив, принимая в качестве параметра массив с номерами индексов по которым будет производиться многоуровневая сортировка.
...
Рейтинг: 0 / 0
2 сообщений из 27, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Сортировка двумерного массива по нескольким полям
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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