Удаление пользовательских стилей excel

При работе с книгами Excel, особенно при копировании листов из одной книги в другую, можно столкнуться с ситуацией, когда в файле появляется множество лишнего «хлама», в том числе дополнительных стилей оформления ячеек, которые вам не нужны и которые следует удалить, так как они увеличивают размер файла. Рассмотрим два способа, как можно удалить стили в Excel.

Способ 1. Удаление лишних стилей в Excel при помощи макроса

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

Воспользуемся макросом Excel, который автоматически удалит все такие стили. Для того, чтобы создать макрос, во-первых, необходимо открыть сам редактор макросов Visual Basic. Для этого нажмите комбинацию клавиш Alt+F11, либо зайдите в меню «Разработчик» и нажмите кнопку Visual Basic.

В случае, если у вас в ленте нет меню «Разработчик», то вам нужно его добавить. Для этого нажмите на ленту правой кнопкой и выберите пункт «Настройка ленты…»

В открывшемся окне ставим галочку напротив пункта «Разработчик» и необходимое нам меню появляется на ленте.

Итак, открыли Visual Basic. Выбираем меню «Insert» и в нем команду «Module».

В открывшемся окне вставляем следующий макрос:

Sub StyleKiller()
Dim N As Long, i As Long
With ActiveWorkbook
    N = .Styles.Count
    For i = N To 1 Step -1
        If Not .Styles(i).BuiltIn Then .Styles(i).Delete
    Next i
End With
MsgBox («Лишние стили удалены»)
End Sub

Запускаем макрос, нажав на кнопку Run

После того, как макрос отработает (это может занять длительное время в случае, если пользовательских стилей очень много), вам будет выведено сообщение, что лишние стили удалены.

Закрываем Visual Basic, возвращаемся в Excel. Теперь в стилях остались только те, которые были в Excel по умолчанию.

Способ 2. Удаление стилей в Excel вручную

Стиль удален. Спасибо за прочтение статьи.

А тема то по сей день актуальная. Вот и я столкнулся с медленным открытием файлов из за раздувшегося списка стилей в файле. Вставлял страницы наших Kорейских коллег — вот и довставлялся. 1599 стилей.
Поди-ка вручную поудаляй.
Стилями не пользуюсь, но форматирование страниц специфическое, по этому не хотелось рисковать оформлением удаляя файл «styles.xml»
Вот только я не понял — почему никому не пришло в голову править данный файл?

(Сразу приношу извинения, у меня Excell 2010, но думаю разница с 2007 в данном контексте не особо существенная).

Мое решение:
Открываем файл в текстовом редакторе с возможностью поиска-замены (я пользовался Word-ом, он позволяет искать и вставлять спецсимволы, что удобно).
Файл представляет из себя простыню параметров без переносов строки, что не очень читаемо.
Во второй половине файла видим такие строки примерно:

</cellXfs>
<cellStyles count=»1599″>

а дальше идет указанное число параметров (1599) такого вида:

<cellStyle xfId=»94″ name=»20% — 강조색3 22″/>
<cellStyle xfId=»118″ name=»20% — 강조색3 9″/>
и т.д. (в текстовом редакторе переносов нет, всё в одну строку)

А заканчивается всё это великолепие строкой
</cellStyles>

Ну в моем случае все просто — мне предстояло вырезать те стили, названия которых были на корейском языке.
Чтобы было читабельно сделал автозамену:
«<cellStyle»   меняем на   «^p<cellStyle»
Эта замена вставляет перед каждым стилем перенос строки.
— Просматриваем , выделяем и удаляем ненужные стили.
— Считаем оставшиеся
— Вносим соответствующее количество в параметр <cellStyles count=»     «>
(я оставил один, соответственно поставил единицу).

Сориентироваться на самом деле легко — в интерфейсе Excell во вкладке со стилями показаны имена стилей, можно выписать те, что нужны — их оставить, остальные — удалить.

После этого удаляем спецсимволы (опять же автозаменой «^p» заменить на «»), сохраняем.
Впрочем я спецсимволы не удалял — забыл, и всё равно заработало.
Собственно всё. Лишних стилей больше нет, заработало всё нормально, оформление не слетело.

ЗЫ:
Если есть грамотные специалисты — прошу пояснить назначение параметров вида
<xf numFmtId=»0″ fontId=»111″ fillId=»32″ borderId=»0″ applyNumberFormat=»0″ applyBorder=»0″ applyAlignment=»0″ applyProtection=»0″><alignment vertical=»center»/></xf>
из первой половины файла стилей.
Странно, что записи этого вида дублируются в огромном количестве друг за другом практически без изменений. Подозреваю, что они также как-то связаны с удаленными стилями, но их вырезать побоялся

Ok, this wasn’t as hard to do as I first thought.

Bit messy as I don’t often use vba; but this code will roll back to just the default styles:

Sub DefaultStyles()
   Dim MyBook As Workbook
   Dim tempBook As Workbook
   Dim CurStyle As Style
   Set MyBook = ActiveWorkbook
   On Error Resume Next
   For Each CurStyle In MyBook.Styles
      Select Case CurStyle.Name
         Case "20% - Accent1", "20% - Accent2", _
               "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _
               "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _
               "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _
               "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _
               "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _
               "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _
               "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _
               "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _
               "Note", "Output", "Percent", "Title", "Total", "Warning Text"
         Case Else
            CurStyle.Delete
      End Select
   Next CurStyle
   Set tempBook = Workbooks.Add
   Application.DisplayAlerts = False
   MyBook.Styles.Merge Workbook:=tempBook
   Application.DisplayAlerts = True
   tempBook.Close
End Sub

Ладно, это было не так сложно сделать, как я сначала подумал.

Немного грязно, так как я не часто использую VBA; но этот код откатится до стилей по умолчанию:

Sub DefaultStyles()
   Dim MyBook As Workbook
   Dim tempBook As Workbook
   Dim CurStyle As Style
   Set MyBook = ActiveWorkbook
   On Error Resume Next
   For Each CurStyle In MyBook.Styles
      Select Case CurStyle.Name
         Case "20% - Accent1", "20% - Accent2", _
               "20% - Accent3", "20% - Accent4", "20% - Accent5", "20% - Accent6", _
               "40% - Accent1", "40% - Accent2", "40% - Accent3", "40% - Accent4", _
               "40% - Accent5", "40% - Accent6", "60% - Accent1", "60% - Accent2", _
               "60% - Accent3", "60% - Accent4", "60% - Accent5", "60% - Accent6", _
               "Accent1", "Accent2", "Accent3", "Accent4", "Accent5", "Accent6", _
               "Bad", "Calculation", "Check Cell", "Comma", "Comma [0]", "Currency", _
               "Currency [0]", "Explanatory Text", "Good", "Heading 1", "Heading 2", _
               "Heading 3", "Heading 4", "Input", "Linked Cell", "Neutral", "Normal", _
               "Note", "Output", "Percent", "Title", "Total", "Warning Text"
         Case Else
            CurStyle.Delete
      End Select
   Next CurStyle
   Set tempBook = Workbooks.Add
   Application.DisplayAlerts = False
   MyBook.Styles.Merge Workbook:=tempBook
   Application.DisplayAlerts = True
   tempBook.Close
End Sub

Переполнение коллекции стилей ячеек

Excel файл может содержать не более 65535 стилей ячеек (доступны через меню ГЛАВНАЯ — Стили ячеек). Не совсем понятно как это достигается на практике (создание стиля довольно трудоемкая операция, если только генерировать их программно), но периодически приходится сталкиваться с файлами, которые вплотную подошли к данному пределу и при попытке отформатировать любую ячейку вы получаете следующую ошибку:

Более того, коль скоро у вас завелись такие файлы, то приходилось видеть, что при копировании какого-либо листа (или даже диапазона ячеек) из переполненного файла в новую книгу в неё перебиралась и эта огромная таблица стилей. Это даже отчасти напоминает вирусное заражение, хотя, конечно, им не является.

Данная проблема не решается через пользовательский интерфейс Excel — необходима специальная программа, которая очистит таблицу стилей принудительно.

Большое количество именованных диапазонов

Второй возможный недуг, с которым борется моя утилита, состоит в том, что книга Excel может содержать огромное количество именованных диапазонов. При этом, иногда, их даже невозможно удалить через Диспетчер имён (Ctrl+F3), так как они могут быть повреждены. Признаком наличия в файле большого количества именованных диапазонов является огромное количество вопросов, которые задаёт вам Excel при попытке скопировать лист книги в саму себя. Данная проблема также имеет свойство «заражать» файлы и сохраняться длительное время.

Утилита CureExcel

Алгоритм ваших действий:

1. Открыть файл CureExcel.xlsb

2. Открыть в Excel предположительно «больной» файл

3. В CureExcel нажать кнопку «Cure Excel» — откроется следующая форма

   

4. В выпадающем списке выбрать ваш ранее открытый файл

5. Нажать кнопку «Диагностика»

6. Ознакомиться с выводом программы и её рекомендацией

7. В случае наличия рекомендации по лечению, нажать кнопку «Лечить», подтвердить запуск операций

8. Дождаться окончания процедуры. Стили удаляются довольно долго (65 000 стилей удаляются примерно 5-7 минут). Прогресс
   виден по статусной строке Excel. По окончании процедуры выводится статистика проделанных операций и достигнутого
   результата.

9. Оригинальный файл остаётся неизменным, а исправленный файл с суффиксом «_CURE» сохраняется в той же
   папке, то есть операции совершенно безопасны.

Файлы для скачивания

Скачать утилиту CureExcel

Скачать пример файла с большим количеством стилей

Стили в Excel – это инструмент, который позволяет существенно упростить и ускорить процесс форматирования документа. Стилям форматирования можно дать определение как сохраненные под определенным названием готовых настроек форматов. Их можно легко присвоить одной или множеству ячеек.

Присвоение стилей форматирования ячейкам

В каждом стиле определены следующие настройки:

1. Шрифт (тип, размер, цвет и т.п.).
2. Формат отображения чисел.
3. Границы ячеек.
4. Заливка и узоры.
5. Защита ячеек.

Благодаря стилям все листы легко и быстро отформатировать. А если мы вносим изменение в стиль, то эти изменения автоматически присваиваются всем листам, которые им отформатированы.

В Excel предусмотрена библиотека из готовых тематических стилей, а так же присутствует возможность создавать собственные пользовательские стили.

Чтобы воспользоваться библиотекой встроенных стилей необходимо:

1. Виделите в указанной на рисунке таблице не отформатированную область ячеек, но без заголовка.



2. Выберите инструмент: «Главная»-«Стили»-«Стили ячейки»



3. Из выпадающего списка миниатюр предварительного просмотра стиля, выберите понравившейся Вам.



Создание пользовательского стиля по образцу

Теперь создадим свой пользовательский стиль, но по образцу уже готового:

1. Выделите первую строку таблицы, чтобы отформатировать ее заголовок.
2. Отобразите выпадающий список встроенных стилей и щелкните правой кнопкой мышки по «Заголовок 2». А из контекстного меню выберите опцию «Дублировать».



3. В диалоговом окне, укажите имя стиля «Новый заголовок» и, не изменяя настроек жмите на кнопку «Формат».



4. В появившемся окне «Формат ячеек» внесите свои изменения. На вкладке шрифт укажите темно-зеленый цвет. А шрифт измените на «курсив». Далее ОК и снова ОК.
5. Присвойте Ваш стиль на главной панели: «Стили ячейки»-«Пользовательские»-«Новый заголовок».

Таким образом, на основе встроенного стиля мы создали дубликат, который изменили под свои потребности.

Можно ли изменять стиль в Excel? В принципе можно было и не создавать дубликат, а в контекстном меню сразу выбрать «Изменить». Все изменения любого встроенного стиля по умолчанию, сохранились бы только в текущей книге. На настройки программы они не влияют. И при создании новой книги библиотека стилей отображается стандартно без изменений.

Можно ли удалить стиль в Excel? Конечно можно, но только в рамках одной книги. Например, как удалить пользовательские стили в Excel?

Выбираем желаемый стиль на главной панели: «Стили ячейки» и в разделе «Пользовательские» щелкаем правой кнопкой мышки. Из появившегося контекстного меню выберем опцию «Удалить». В результате ячейки очистятся от форматов заданных соответствующим стилем.

Точно так же можно удалить стили в Excel встроенные по умолчанию в библиотеке, но данное изменение будет распространяться только на текущую книгу.

Создать стиль по формату ячейки

Но что если нужно создать стиль на основе пользовательского формата ячеек, который задан обычным способом.

1. Задайте пустой ячейке формат с изменением заливки и цвета шрифта.
2. Теперь выделите эту исходную ячейку и выберите инструмент на главной панели: «Стили ячейки»-«Создать стиль ячейки».
3. В окне «Стиль» укажите имя стиля «Как в ячейке1» и нажмите ОК.

Теперь у Вас в разделе стилей «Пользовательские» отображается имя «Как в ячейке1». Принцип понятен.

Все выше описанные стилевые форматы сохраняются в рамках файла текущей книги Excel. Поэтому для дальнейших действий сохраните эту книгу под названием «Урок о стилях.xlsx».

Копирование стиля в другие книги

Иногда возникает необходимость использовать текущие стили и в других книгах. Для этого можно просто скопировать их:

1. Создайте новую книгу, в которой будем использовать пользовательский стиль «Как в ячейке1».
2. Откройте книгу «Урок о стилях.xlsx» из сохраненным исходным требуемым нам стилем.
3. Выберите инструмент на главной закладке: «Стили ячейки»-«Объединить». И в окне «Объединение стилей» укажите на нужную нам книгу и ОК.

Теперь все пользовательские или измененные форматы из исходной книги скопированы в текущую.

Если Вам нужно будет часто использовать один стиль в разных книгах, тогда есть смысл создать специальную книгу со своими стилями и сохранить ее как шаблон. Это будет значительно удобнее чем каждый раз копировать… А все преимущества шаблонов подробнее рассмотрим на следующих уроках.

Форматирование в Excel – это очень утомительное, но важное задание. Благодаря стилям мы можем существенно ускорить и упростить данный рабочий процесс. Сохраняя при этом точную копию форматов ячеек в разных листах и книгах.