> Автор: tolikt
> VBA для Excel.
> Двухмерный массив. Нужно отсортировать по нескольким полям. При
> одинаковых данных по всем полям сортировки порядок оставлять изначальный.
> Т.е. полный аналог метода Sort для листа. Но без скидывания массива
> на лист, сортировки и обратной записи в массив..
> И главное - такой же быстрый, как метод Sort на листе.
А почему бы не воспользоватся сбросом данных на лист?
не отсортировать быстрым сортом и обратно в массив ;-)
например так:

Всего два полных прохода по массиву ;)
>
> Почему-то все самописные алгоритмы сортировки работают, но
> О-О-О-О-О-ОЧЕНЬ медленно!!! Здесь "алгоритм" имеется ввиду не метод
> (пузырёк, вставками, быстрая, Шелла и пр.), а именно реализация в VB(A).
> Или это уже проблема самого VB(A)?

Напиши на другом языке длл с функцией сортировки и сортируй там ;D

Posted via ActualForum NNTP Server 1.4

> Автор: tolikt
> Игорь Горбонос
> А почему бы не воспользоватся сбросом данных на лист?
> не отсортировать быстрым сортом и обратно в массив ;-)
> 1. Иногда не желательны лишние действия с данными на листе.

Делай эти действия на новом листе

> Да и основное время уходит не на сортировку на листе, а на
> чтение/запись данных между массивом и листом.

В моем варианте на лист передается одним действием:
r.Value = a
Внутренний механизм передачи я не знаю, но думаю, что он оптимизирован, на
уровне екселя. Из листа данные забираются тоже одним действием:
v = r.Value
Механизм передачи из ячеек в массив, тоже не знаю, но меня снова не
оставляют мысли об оптимизации на уровне екселя. Результат, правда,
получается типа вариант для этого и делался полный проход по массиву, для
преобразования к целевому типу, если устраивает вариант не преобразовуй и
оставляй как есть


> 2. Сортировка на листе имеет свои недостатки. Например, не
> учитывается дефис. Обсуждалось, в т.ч., и в теме Сортировка (косяк).

Приводи данные к виду в котором не будет косяков, и тут вдруг подумал, ты
хочешь сказать, что имеешь двухмерный массив строк ТАКОГО размера? Так не
имей такого массива, а заполняй сразу RecordSet и будет тебе расширенная
сортировка как говорят ;)

> Говорят, что есть возможность сортировки через Recordset, но у меня
> не получается записать в него данные массива: предложенные коды не
> работают. Может, тут помогут?

В RecordSet данные можно записать. Вместо заполнения массива, заполняй его.
Можно получить готовый - сделать запрос к листу с этими данными, выбирать
тебе.
Кода не дам, потому, что не понял, что и почему( скорострельность моего
примера достаточно высокая, а правильность сортировки всплыла после, и пока
я не вижу проблем и с ней ) тебя не устраивает в моем варианте

Posted via ActualForum NNTP Server 1.4

> Автор: tolikt
> В любом случае: НАДО ОБОЙТИСЬ БЕЗ ЗАПИСИ НА ДАННЫХ НА ЛИСТ. Только в
> самом конце и уже окончательные данные.

Тогда и вариантов нет :) , медленно сортируй в памяти

> Игорь Горбонос
> В RecordSet данные можно записать. Вместо заполнения массива,
> заполняй его.
> Массив и так уже получен запросом через Recordset. Но проблема в том,
> что массив не один, а несколько и из разных источников. К тому же все
> возможные действия (суммирование, группировка, сортировка, отбор и т.п.),
> которые возможно сделать запросом, уже сделаны. И надо из массивов
> получить ещё выборку данных с сортировкой, суммированием и т.п.

Делаешь RecordSet'у сортировку а потом пробегаешся по нему и сумируешь что
нужно
У тебя появляется и отсортированный набор данных и суммы чего нужно

Т.е. ты хочешь сказать что по полученным данным нужно проводить ещё
сумирование и группировку? не проще сделать новый запрос с нужными
сумированиями и сортировкой?

> Проблему записи данных из массива в Recordset описывал в другой теме,
> но пока предложенные варианты у меня не работают.
> Проблему объединения двух и более Recordsetов в один тоже описывал,
> но тоже пока окончательно не решилось.

Я бы сначала посмотрел какие данные и в каком объеме нужно будет
обрабатывать, после определения этих требований выбирал хранилище, которое
позволяет делать все это достаточно быстро, и после работал бы с этим
хранилищем. А у тебя получается, что данные приходят как RecordSet'ы, потом
ты их сливаешь в массивы, хотя можно попробовать слить на лист, а потом
начинаешь придумывать велосипед, как быстрее сделать сортировку и слияние.
Но это мое мнение и я не знаю всех влияющих факторов. Но в любом случае
обработка больших объемов данных дело не быстрое, показывай SplashScreen с
интерактивно изменяющимся ProgressBar'ом который будет показывать что
программа не болтается без дела, а работает, но с другой стороны это
увеличит время выполнения. Вообщем все ньюансы знаешь только ты и решать
тебе ;)
> Игорь Горбонос
> хочешь сказать, что имеешь двухмерный массив строк ТАКОГО
> размера
> Массив не более чем 65536 строк. К тому же Access и прочие базы
> данных не знаю. Приходиться пользоваться только Excel.

Может имеет смысл поучить Акцесс и поручить сортировки и слияние ему? Хотя
тебе даже не сколько Акцесс нужен, а работа с mdb базой через ADO, или через
что ты ходишь.


Posted via ActualForum NNTP Server 1.4

> Автор: _slan_
> нашел КНУТа, но это 30 лет назад..

Ты надеешся что с тех пор что-то кардинально изменилось?
Вынужден тебя огорчить, что-бы получился ребёнок, по прежнему нужна женщина и мужчинаничего вообще не
поменялось. Хотя диссертаций защищено немало

Posted via ActualForum NNTP Server 1.4