Файл распух до нелогичных размеров. - Страница 3

Дата: Среда, 16.12.2015, 09:19 | Сообщение № 41

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Использовал код из поста №2.файлик весил 40 Мб стал 10.Правда в конце работы выдал ошибку 400

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 16.12.2015, 09:38

Дата: Среда, 16.12.2015, 13:37 | Сообщение № 42

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Цитата китин, 16.12.2015 в 09:19, в сообщении № 41

Использовал код из поста №2

А дальше прочесть слабо?
Или ещё лучше - оттуда по ССЫЛКЕ в посте перейти на более продвинутый топик Володи (v__step) и там на последних страницах взять почти готовую утилиту?

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 16.12.2015, 13:41

Дата: Среда, 16.12.2015, 13:51 | Сообщение № 43

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Цитата Alex_ST, 16.12.2015 в 13:37, в сообщении № 42

А дальше прочесть слабо?

читал,ходил,решил посмотреть все по порядку.И первый же код меня удовлетворил практически.Чуть попозже попробую и остальные.На работе так файлы загажены, что ппц :'(

спасибо!

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Среда, 16.12.2015, 14:01 | Сообщение № 44

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Не за что, Игорь!
Самое простое и первоважнейшее - без всяких утилит сначала ВУКОПАШНУЮ отменить-вернуть общий доступ к сетевым файлам.
Худеют просто на глазах!

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 16.12.2015, 14:02

Дата: Среда, 16.12.2015, 14:13 | Сообщение № 45

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Цитата Alex_ST, 16.12.2015 в 14:01, в сообщении № 44

сначала ВУКОПАШНУЮ отменить-вернуть общий доступ к сетевым файлам

а с этого места можно поподробнее?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Среда, 16.12.2015, 16:01 | Сообщение № 46

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Куда уж подробнее-то?
"Сервис"-"Доступ к файлу"
Меняешь "Общий доступ" на "Монопольный доступ". Соглашаешься с необходимостью сохранения файла. Сохраняешь. Смотришь на размер. Радуешься. Потом опять даёщь общий доступ.
Но это так, конечно, в 2003-ем. А куда мелко-мягкие это зарыли в гиббон-интерфейсе, понятия не имею, т.к. 2007 и выше не юзаю принципиально. Мне вполне возможностей 2003-го хватает. Зато свои панели сам под себя создаю и кнопочки какие хочу, такие куда хочу в панелях и ставлю оперативно, сразу как только новую процедурку слеплю.

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение отредактировал Alex_ST - Среда, 16.12.2015, 16:05

Дата: Четверг, 24.12.2015, 09:57 | Сообщение № 47

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Самое смешное,что файлы то не в общем доступе.(Кстати в 2010 это вкладка рецензирование-доступ к книге

Цитата Alex_ST, 16.12.2015 в 16:01, в сообщении № 46

куда мелко-мягкие это зарыли в гиббон-интерфейсе

)
Просто наши девочки тупо копируют весь лист, обзывают его по новому.и так из месяца в месяц.И чем дальше тем больше грязи в книге :'(

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Четверг, 24.12.2015, 10:18 | Сообщение № 48

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Цитата китин, 24.12.2015 в 09:57, в сообщении № 47

файлы то не в общем доступе

Ну, я ж не знал... :'(

Но точно помню, что там одна из процедур убивает на листах всё, что вне UsedRange. Посмотри.
К стати, а графикой на исходных листах никто не балуется?
А то после удаления строк/столбцов привязанные к ним DrawingObjects обожают не удаляться, а схлопываться в "0-мерные" объекты, которые на листе в обычном режиме не видно, зато весят и гадят они "по-бльшому".
Я для себя накатал как-то пару процедур.

Цитата китин, 24.12.2015 в 09:57, в сообщении № 47

файлы то не в общем доступе

Ну, я ж не знал... :'(

С уважением,
Алексей
MS Excel 2003 - the best!!!

Сообщение

Цитата китин, 24.12.2015 в 09:57, в сообщении № 47

файлы то не в общем доступе

Ну, я ж не знал... :'(

Автор - Alex_ST
Дата добавления - 24.12.2015 в 10:18

Дата: Четверг, 24.12.2015, 11:43 | Сообщение № 49

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Alex_ST, 24.12.2015 в 10:18, в сообщении № 48

привязанные к ним DrawingObjects обожают не удаляться, а схлопываться в "0-мерные" объекты,

Да есть такое - несколько недель назад был вопрос на форуме там была куча графических объектов файл после окрытия тупо зависал.
А для удаления всех рисунков листа за раз я использую:[vba]

Код

ActiveSheet.DrawingObjects.Delete

[/vba]

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 24.12.2015, 11:45

Дата: Четверг, 24.12.2015, 14:15 | Сообщение № 50

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

нету графических объектов.да и откуда им взяться?не умеют девочки наши нк не умеют

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Четверг, 24.12.2015, 14:31 | Сообщение № 51

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Ну тогда скорее Alex_ST, прав - нажмите на каждом листе CTRL + End и смотрите куда закинет курсор.
Или запустите макрос:
[vba]

Код

Sub t()
Dim sh As Worksheet, s$, k#, lc As Range
For Each sh In ActiveWorkbook.Sheets
    Set lc = sh.Cells(1, 1).SpecialCells(xlLastCell)
    k = sh.Range("a1:" & lc.Address).CountLarge
    s = s & vbCr & sh.Name & ": " & lc.Address & ".  " & k & " ячеек. "
Next
MsgBox s
Debug.Print s
End Sub

[/vba]
Он покажет сразу все листы , адреса последних ячеек и количество задействованных ячеек. ^_^

.

Зы еще может быть УФ - оно всегда криво копируется.

и создаются ненужные дубликаты.

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 24.12.2015, 14:33

Дата: Четверг, 24.12.2015, 14:35 | Сообщение № 52

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Слава да эту процедуру я первым делом проделал.а сейчас и еще твоим (ничего что на ТЫ?) макросом пройдусь проверю.Спасибо
ну да .последняя ячейка там где надо.

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Четверг, 24.12.2015, 14:37

Дата: Четверг, 24.12.2015, 14:42 | Сообщение № 53

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

а вот тупой вопрос.про группировку.неужто она много места занимает?утром еще прошелся макросом из поста 18.С 14 метров уменьшился до 8.на листах ни одной группировки не осталось :'(

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Четверг, 24.12.2015, 15:13 | Сообщение № 54

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Блин ничего не понимаю.Не может книга формата xlsx с одним листом и убитыми формулами весить 2 Мб. 1300 строк и 600 столбцов :'(

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Четверг, 24.12.2015, 16:12 | Сообщение № 55

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата китин, 24.12.2015 в 15:13, в сообщении № 54

(ничего что на ТЫ?

Все ОК

Цитата китин, 24.12.2015 в 14:42, в сообщении № 53

.про группировку.неужто она много места занимает

Сделал тест практически пустая книга с последней заполненной ячейкой wc1300:
12кб
кучей разных группировок: 30кб.
Делаю вывод - группировка не занимает много места.

А вот потом заполнил все ячейки текстом 30 символов.
Размер файла = 3мб
Т.е. делаем вывод, что может

. зависит от содержимого этих ячеек.

Добавил разной заливки ячеек - файл вырос до 3,5 мб.

К сообщению приложен файл: 7707868.zip (37.3 Kb)

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Четверг, 24.12.2015, 17:36

Дата: Четверг, 24.12.2015, 19:11 | Сообщение № 56

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Цитата SLAVICK, 24.12.2015 в 11:43, в сообщении № 49

А для удаления всех рисунков листа за раз я использую:
ActiveSheet.DrawingObjects.Delete

Это как раз самое простое и очевидное, что можно сделать.
Вот только далеко не всегда нужно удалять ВСЕ рисунки на листе.
А мой макрос удаляет только в выделенном диапазоне. (что, к стати, оказалось намного сложнее - без цикла никак обойтись не смог)

С уважением,
Алексей
MS Excel 2003 - the best!!!

Дата: Пятница, 25.12.2015, 12:29 | Сообщение № 57

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата Alex_ST, 24.12.2015 в 19:11, в сообщении № 56

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

Если в выделенном то да. я вот такой использую:

Запихнул в него три разных - в зависимости от того, что нужно.
Просто мне чаще нужно грохнуть все картинки либо на листе либо во всей книге.

Иногда все проще чем кажется с первого взгляда.

Дата: Пятница, 25.12.2015, 14:05 | Сообщение № 58

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

А ни фига не помогает.

Цитата китин, 24.12.2015 в 15:13, в сообщении № 54

книга формата xlsx с одним листом и убитыми формулами весить 2 Мб

ни группировок, ни УФ.Только 4 столбца покрашены.остальное цифры и буквы

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Пятница, 25.12.2015, 14:12 | Сообщение № 59

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата китин, 25.12.2015 в 14:05, в сообщении № 58

Только 4 столбца покрашены.остальное цифры и буквы

Цитата SLAVICK, 24.12.2015 в 16:12, в сообщении № 55

Т.е. делаем вывод, что может . зависит от содержимого этих ячеек.

Попробуйте скопировать рабочий диапазон в новую книгу - только значения - сохраните ее - какой размер?
Если не сильно меньше - значит питаться уменьшить уже не стоит.

Иногда все проще чем кажется с первого взгляда.

Дата: Пятница, 25.12.2015, 14:24 | Сообщение № 60

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3213

Репутация: 609 ±

Замечаний: 0% ±

2003

Цитата Alex_ST, 24.12.2015 в 10:18, в сообщении № 48

[vba]

Код

For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Range(oDraw.TopLeftCell, oDraw.BottomRightCell), rSel) Is Nothing Then oDraw.Select (False)
Next

[/vba]

Цитата SLAVICK, 25.12.2015 в 12:29, в сообщении № 57

[vba]

Код

For Each kart In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(kart.TopLeftCell, Selection) Is Nothing Then kart.Delete
Next

[/vba]

Чувствуете разницу? Я просто выделяю объекты чтобы пользователь потом сам уже решил, что с ними делать, а Вы - сразу удаляете.
И ещё говорят, что я злой!...

С уважением,
Алексей
MS Excel 2003 - the best!!!