Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Оптимизация макроса фильтрации массива - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Оптимизация макроса фильтрации массива
mdkChaos Дата: Понедельник, 22.04.2013, 12:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Всем привет!

У меня есть 9 файлов (от 35000 до 60000 строк и 11 столбцов), 8 с данными и 1 итоговый.
Я написал макрос который берёт 1 файл за основу и сравнивает данные в конкретном столбце с данными в других файлах и на основе данных 1-го файла формирует итоговый файл.
Просьба взглянуть на моё творение опытным глазом и посоветовать как можно оптимизировать код smile
Вся загвоздка в том, что когда я добавил фильтрацию массива по возрастанию, время обработки данных увеличелось примерно в 10 раз.

Заранее большое спасибо.

P.S. Прикрепляю текстовый файл с макросом, так как не удалось выложить из-за превышения лимита сообщения smile
К сообщению приложен файл: new_2.txt (9.8 Kb)
 
Ответить
СообщениеВсем привет!

У меня есть 9 файлов (от 35000 до 60000 строк и 11 столбцов), 8 с данными и 1 итоговый.
Я написал макрос который берёт 1 файл за основу и сравнивает данные в конкретном столбце с данными в других файлах и на основе данных 1-го файла формирует итоговый файл.
Просьба взглянуть на моё творение опытным глазом и посоветовать как можно оптимизировать код smile
Вся загвоздка в том, что когда я добавил фильтрацию массива по возрастанию, время обработки данных увеличелось примерно в 10 раз.

Заранее большое спасибо.

P.S. Прикрепляю текстовый файл с макросом, так как не удалось выложить из-за превышения лимита сообщения smile

Автор - mdkChaos
Дата добавления - 22.04.2013 в 12:58
nilem Дата: Понедельник, 22.04.2013, 14:07 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
например,
границы ячеек можно нарисовать одной строкой:
[vba]
Код
Selection.Borders.LineStyle = xlContinuous
[/vba]
еще желательно избавиться от Select'ов
... как-то много всего smile


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениенапример,
границы ячеек можно нарисовать одной строкой:
[vba]
Код
Selection.Borders.LineStyle = xlContinuous
[/vba]
еще желательно избавиться от Select'ов
... как-то много всего smile

Автор - nilem
Дата добавления - 22.04.2013 в 14:07
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!