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

Вход

Регистрация

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

 

= Мир MS Excel/Проблема со сметами - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Проблема со сметами (Смета много весит и грузит ЦП)
Проблема со сметами
jolly Дата: Пятница, 14.10.2011, 17:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.
Есть проблема со сметами.
Делал их отец путем многократного копирования строк из файла в файл. В итоге смета на 1 страницу весит ~5 мб и сильно грузит ЦП.
Таких файлов несколько.
Помогите, пожалуйста, решить проблему. Заранее спасибо!

смета на народе
 
Ответить
СообщениеДобрый день.
Есть проблема со сметами.
Делал их отец путем многократного копирования строк из файла в файл. В итоге смета на 1 страницу весит ~5 мб и сильно грузит ЦП.
Таких файлов несколько.
Помогите, пожалуйста, решить проблему. Заранее спасибо!

смета на народе
Автор - jolly
Дата добавления - 14.10.2011 в 17:19
Serge_007 Дата: Пятница, 14.10.2011, 17:31 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
jolly, я Вам ответил здесь.
Без макросов - только вручную.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщениеjolly, я Вам ответил здесь.
Без макросов - только вручную.
Автор - Serge_007
Дата добавления - 14.10.2011 в 17:31
jolly Дата: Пятница, 14.10.2011, 17:39 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Пробую еще раз прогнать макрос, работает уже 15 минут (или завис уже).
Вы скачивали файл?
Хочется разобраться в чем проблема, а не фигачить пушкой по воробьям.

sorry за назойливость.
 
Ответить
СообщениеПробую еще раз прогнать макрос, работает уже 15 минут (или завис уже).
Вы скачивали файл?
Хочется разобраться в чем проблема, а не фигачить пушкой по воробьям.

sorry за назойливость.
Автор - jolly
Дата добавления - 14.10.2011 в 17:39
Serge_007 Дата: Пятница, 14.10.2011, 17:42 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (jolly)
Вы скачивали файл?

Не, на работе такую махину СБ не даёт скачивать.
Скачаю дома.

Quote (jolly)
Хочется разобраться в чем проблема,

Как правило в форматировании. Объекты невидимые на листе могут быть. Имена, диапазоны. Макросы. Скрытые листы. Да что угодно...

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (jolly)
Вы скачивали файл?

Не, на работе такую махину СБ не даёт скачивать.
Скачаю дома.

Quote (jolly)
Хочется разобраться в чем проблема,

Как правило в форматировании. Объекты невидимые на листе могут быть. Имена, диапазоны. Макросы. Скрытые листы. Да что угодно...
Автор - Serge_007
Дата добавления - 14.10.2011 в 17:42
jolly Дата: Пятница, 14.10.2011, 17:49 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Благодарю Вас и буду ждать ответа.
Проблема для нас серьезная.
 
Ответить
СообщениеБлагодарю Вас и буду ждать ответа.
Проблема для нас серьезная.
Автор - jolly
Дата добавления - 14.10.2011 в 17:49
KuklP Дата: Пятница, 14.10.2011, 19:36 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
В вашем случае достаточно выполнить:
[vba]
Код
Sub DeleteShapes1()    'KuklP
           Dim sh As Worksheet
           For Each sh In Worksheets
               sh.DrawingObjects.Delete
           Next
End Sub
[/vba]

См. файл.
К сообщению приложен файл: __...rar (22.0 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Пятница, 14.10.2011, 20:02
 
Ответить
СообщениеВ вашем случае достаточно выполнить:
[vba]
Код
Sub DeleteShapes1()    'KuklP
           Dim sh As Worksheet
           For Each sh In Worksheets
               sh.DrawingObjects.Delete
           Next
End Sub
[/vba]

См. файл.
Автор - KuklP
Дата добавления - 14.10.2011 в 19:36
Serge_007 Дата: Пятница, 14.10.2011, 20:37 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Файл Ваш у меня не открывается, но судя по макросу, который выложил KuklP, без макросов это делается так:
F5 - выделить - объекты - Ок.
Потом жмёте кнопку Delete.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеФайл Ваш у меня не открывается, но судя по макросу, который выложил KuklP, без макросов это делается так:
F5 - выделить - объекты - Ок.
Потом жмёте кнопку Delete.
Автор - Serge_007
Дата добавления - 14.10.2011 в 20:37
KuklP Дата: Пятница, 14.10.2011, 20:44 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Серег, я файл отсюда брал:
http://forum.msexcel.ru/microso.....0.html

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеСерег, я файл отсюда брал:
http://forum.msexcel.ru/microso.....0.html
Автор - KuklP
Дата добавления - 14.10.2011 в 20:44
Serge_007 Дата: Пятница, 14.10.2011, 20:58 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (KuklP)
я файл отсюда брал:

И оттуда я тоже брал. Не открывается.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (KuklP)
я файл отсюда брал:

И оттуда я тоже брал. Не открывается.
Автор - Serge_007
Дата добавления - 14.10.2011 в 20:58
KuklP Дата: Пятница, 14.10.2011, 21:02 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Это че-то у тебя. У тя винрар стоит?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЭто че-то у тебя. У тя винрар стоит?
Автор - KuklP
Дата добавления - 14.10.2011 в 21:02
Serge_007 Дата: Пятница, 14.10.2011, 21:09 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (KuklP)
Это че-то у тебя.

Не думаю. Все файлы нормально открываются. Кроме этого.

Quote (KuklP)
У тя винрар стоит?

Ессно.

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (KuklP)
Это че-то у тебя.

Не думаю. Все файлы нормально открываются. Кроме этого.

Quote (KuklP)
У тя винрар стоит?

Ессно.
Автор - Serge_007
Дата добавления - 14.10.2011 в 21:09
KuklP Дата: Пятница, 14.10.2011, 21:20 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
А тот что я выложил, открывается?
Ща глянул, там на первых двух листах 51165 объектов. Еще б не тормозило!

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Пятница, 14.10.2011, 21:27
 
Ответить
СообщениеА тот что я выложил, открывается?
Ща глянул, там на первых двух листах 51165 объектов. Еще б не тормозило!
Автор - KuklP
Дата добавления - 14.10.2011 в 21:20
Serge_007 Дата: Пятница, 14.10.2011, 21:26 | Сообщение № 13
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (KuklP)
тот что я выложил, открывается?

Странно всё это, не к добру...
Открывается, если открывать из Excel, а если просто кликать по файлу - то нет...

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (KuklP)
тот что я выложил, открывается?

Странно всё это, не к добру...
Открывается, если открывать из Excel, а если просто кликать по файлу - то нет...
Автор - Serge_007
Дата добавления - 14.10.2011 в 21:26
jolly Дата: Пятница, 14.10.2011, 23:54 | Сообщение № 14
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Цитата (KuklP)
В вашем случае достаточно выполнить:
[vba]
Код
Sub DeleteShapes1() 'KuklP
Dim sh As Worksheet
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End Sub
[/vba]
См. файл.


Спасибо! Еще пара вопросов.
А сколько по времени у вас выполнялся код?
Откуда туда попало столько объектов?
Как сделать так, чтобы они не появлялись при копировании строк?

можете кинуть мобилу в лс, скажу $спасибо$ )
 
Ответить
Сообщение
Цитата (KuklP)
В вашем случае достаточно выполнить:
[vba]
Код
Sub DeleteShapes1() 'KuklP
Dim sh As Worksheet
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End Sub
[/vba]
См. файл.


Спасибо! Еще пара вопросов.
А сколько по времени у вас выполнялся код?
Откуда туда попало столько объектов?
Как сделать так, чтобы они не появлялись при копировании строк?

можете кинуть мобилу в лс, скажу $спасибо$ )
Автор - jolly
Дата добавления - 14.10.2011 в 23:54
Serge_007 Дата: Пятница, 14.10.2011, 23:57 | Сообщение № 15
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2750 ±
Замечаний: ±

Excel 2016
Quote (jolly)
Спасибо! Еще пара вопросов

Вы вроде макросы избегали?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (jolly)
Спасибо! Еще пара вопросов

Вы вроде макросы избегали?
Автор - Serge_007
Дата добавления - 14.10.2011 в 23:57
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Проблема со сметами (Смета много весит и грузит ЦП)
  • Страница 1 из 1
  • 1
Поиск:

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