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

Вход

Регистрация

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

 

= Мир MS Excel/Файл растёт в размере после работы макросов - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Файл растёт в размере после работы макросов (Макросы/Sub)
Файл растёт в размере после работы макросов
Almost Дата: Четверг, 03.03.2016, 10:57 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день!

В файле есть две кнопки - добавить компанию и удалить компанию. Если добавить несколько компаний, а потом их удалить, к файлу прирастает несколько килобайт, хотя по идее всё добавленное удаляется, и размер не должен меняться. В чём может быть причина?
К сообщению приложен файл: Test.xlsb(95Kb)
 
Ответить
СообщениеДобрый день!

В файле есть две кнопки - добавить компанию и удалить компанию. Если добавить несколько компаний, а потом их удалить, к файлу прирастает несколько килобайт, хотя по идее всё добавленное удаляется, и размер не должен меняться. В чём может быть причина?

Автор - Almost
Дата добавления - 03.03.2016 в 10:57
SLAVICK Дата: Четверг, 03.03.2016, 11:57 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1849
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Ваши макросы- выдали у меня ошибку - разбираться почему не стал.
Скорее всего увеличиваются рабочие диапазоны.
Запустите вот этот макрос:
[vba]
Код
Sub d()
For Each sh In ActiveWorkbook.Sheets()
s = s & vbCr & sh.Name & ":" & sh.Cells(sh.Rows.Count, 1).SpecialCells(xlLastCell).Address
Next
MsgBox s
End Sub
[/vba]
До работы Вашего макроса и после - сравните результат последних диапазонов.
К сообщению приложен файл: 9722920.xlsb(82Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеВаши макросы- выдали у меня ошибку - разбираться почему не стал.
Скорее всего увеличиваются рабочие диапазоны.
Запустите вот этот макрос:
[vba]
Код
Sub d()
For Each sh In ActiveWorkbook.Sheets()
s = s & vbCr & sh.Name & ":" & sh.Cells(sh.Rows.Count, 1).SpecialCells(xlLastCell).Address
Next
MsgBox s
End Sub
[/vba]
До работы Вашего макроса и после - сравните результат последних диапазонов.

Автор - SLAVICK
Дата добавления - 03.03.2016 в 11:57
Almost Дата: Четверг, 03.03.2016, 14:45 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Ошибку макросы выдают если скрывать какие-то строки перед запуском, но иногда это не вызывает ошибки. Пока не разобрался.

По поводу рабочих диапазонов - сравнил, результат не меняется. Но причину всё таки нашёл. Если раскрыть скрытые строки внизу, изначально скролл вниз заканчивается на 608 строке. А после работы макросов, скролл пролистывает вниз несколько тысяч строк. Если сохранить, не скрывая строки, то файл не растёт.
 
Ответить
СообщениеОшибку макросы выдают если скрывать какие-то строки перед запуском, но иногда это не вызывает ошибки. Пока не разобрался.

По поводу рабочих диапазонов - сравнил, результат не меняется. Но причину всё таки нашёл. Если раскрыть скрытые строки внизу, изначально скролл вниз заканчивается на 608 строке. А после работы макросов, скролл пролистывает вниз несколько тысяч строк. Если сохранить, не скрывая строки, то файл не растёт.

Автор - Almost
Дата добавления - 03.03.2016 в 14:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Файл растёт в размере после работы макросов (Макросы/Sub)
Страница 1 из 11
Поиск:

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