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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос нарезки по определенному параметру - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос нарезки по определенному параметру (Макросы/Sub)
Макрос нарезки по определенному параметру
JohnAike Дата: Четверг, 05.11.2020, 16:26 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!
Прошу помощи с макросом нарезки документа.
Файл "филиал" пример документа который необходимо нарезать.
Файл "макрос нарезка" документ самого макроса.
Макрос прописал, но есть косяк что он зависает на обработке данных, подскажите в чем может быть проблема
К сообщению приложен файл: 5033746.xlsx(9.7 Kb) · 2941713.xlsm(22.6 Kb)


Сообщение отредактировал JohnAike - Четверг, 05.11.2020, 16:27
 
Ответить
СообщениеДобрый день!
Прошу помощи с макросом нарезки документа.
Файл "филиал" пример документа который необходимо нарезать.
Файл "макрос нарезка" документ самого макроса.
Макрос прописал, но есть косяк что он зависает на обработке данных, подскажите в чем может быть проблема

Автор - JohnAike
Дата добавления - 05.11.2020 в 16:26
CaramelManiac Дата: Пятница, 06.11.2020, 00:22 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 22 ±
Замечаний: 0% ±

MS Excel 2003-2019
Здравствуйте.
вот в этой сабе - Sub createAndSaveMiniReportFiles()
вот в этой строке - Rows(j).Delete ' удаляем строку
Вы удаляете строку из Файл "макрос нарезка", а не из Файл "филиал", поэтому условие в Do While недостижимо
:o Вы заLoopили свой код.

ЗЫ
Может пригодится. Preserve - сохраняет содержимое массива при изменении его размерности. Например:
[vba]
Код
ReDim Preserve arrayOfItemsToCut(1 To n + 1)
[/vba]


Сообщение отредактировал CaramelManiac - Пятница, 06.11.2020, 00:32
 
Ответить
СообщениеЗдравствуйте.
вот в этой сабе - Sub createAndSaveMiniReportFiles()
вот в этой строке - Rows(j).Delete ' удаляем строку
Вы удаляете строку из Файл "макрос нарезка", а не из Файл "филиал", поэтому условие в Do While недостижимо
:o Вы заLoopили свой код.

ЗЫ
Может пригодится. Preserve - сохраняет содержимое массива при изменении его размерности. Например:
[vba]
Код
ReDim Preserve arrayOfItemsToCut(1 To n + 1)
[/vba]

Автор - CaramelManiac
Дата добавления - 06.11.2020 в 00:22
Pelena Дата: Пятница, 06.11.2020, 09:24 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 18555
Репутация: 4202 ±
Замечаний: ±

Excel 2016 & Mac Excel
JohnAike, долго разбиралась в Вашем алгоритме. На мой взгляд, очень много лишних действий, в частности, постоянное открытие/закрытие файла сильно будет замедлять процесс в случае бОльшего кол-ва строк. Поэтому поубирала лишние действия для ускорения работы.
И в файле есть ещё альтернативный вариант (кнопка с соответствующим названием)
К сообщению приложен файл: 2941713_1.xlsm(29.8 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеJohnAike, долго разбиралась в Вашем алгоритме. На мой взгляд, очень много лишних действий, в частности, постоянное открытие/закрытие файла сильно будет замедлять процесс в случае бОльшего кол-ва строк. Поэтому поубирала лишние действия для ускорения работы.
И в файле есть ещё альтернативный вариант (кнопка с соответствующим названием)

Автор - Pelena
Дата добавления - 06.11.2020 в 09:24
JohnAike Дата: Суббота, 07.11.2020, 16:16 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
CaramelManiac, Pelena, Огромное спасибо за помощь!!! Pelena, Действительно намного быстрее. Очень благодарен!!!! hands hands hands
 
Ответить
СообщениеCaramelManiac, Pelena, Огромное спасибо за помощь!!! Pelena, Действительно намного быстрее. Очень благодарен!!!! hands hands hands

Автор - JohnAike
Дата добавления - 07.11.2020 в 16:16
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос нарезки по определенному параметру (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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