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

Вход

Регистрация

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

 

= Мир MS Excel/Как массово очистить форматы ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Как массово очистить форматы ячеек
Sopilkar Дата: Вторник, 26.01.2016, 14:47 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Уважаемые!
Подскажите, как массово очистить пользовательские форматы, а то достался файл от предшественника, а там все вот так, как на рисунке.

По одному удалять можно бесконечно долго, а стандартная справка про массовое удаление форматов молчит.
Спасибо
К сообщению приложен файл: 3633730.png (62.4 Kb)


Семейный ансамбль "Весенняя свирель"
 
Ответить
СообщениеУважаемые!
Подскажите, как массово очистить пользовательские форматы, а то достался файл от предшественника, а там все вот так, как на рисунке.

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

Автор - Sopilkar
Дата добавления - 26.01.2016 в 14:47
Udik Дата: Вторник, 26.01.2016, 14:54 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация: 192 ±
Замечаний: 0% ±

Excel 2016 х 64
попробуйте

только вначале диапазон выделите :)
К сообщению приложен файл: 7090894.jpg (63.5 Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Вторник, 26.01.2016, 14:56
 
Ответить
Сообщениепопробуйте

только вначале диапазон выделите :)

Автор - Udik
Дата добавления - 26.01.2016 в 14:54
Sopilkar Дата: Вторник, 26.01.2016, 14:58 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Udik, спасибо за то, что ответили, жаль, что не поняли вопроса.
Я не спрашивал, как очистить формат одной или двух ячеек, это очевидно.
Я спрашивал, как очистить сам НАБОР (или как его там назвать) форматов, чтобы вот эти все идиотские форматы больше не появлялись в списке.


Семейный ансамбль "Весенняя свирель"
 
Ответить
СообщениеUdik, спасибо за то, что ответили, жаль, что не поняли вопроса.
Я не спрашивал, как очистить формат одной или двух ячеек, это очевидно.
Я спрашивал, как очистить сам НАБОР (или как его там назвать) форматов, чтобы вот эти все идиотские форматы больше не появлялись в списке.

Автор - Sopilkar
Дата добавления - 26.01.2016 в 14:58
китин Дата: Вторник, 26.01.2016, 15:00 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
посмотрите ТУТ


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениепосмотрите ТУТ

Автор - китин
Дата добавления - 26.01.2016 в 15:00
Sopilkar Дата: Вторник, 26.01.2016, 15:04 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
китин, Спасибо, кажется, это именно то, что нужно.
Почитаю, попробую воплотить. =0)
По результатам отпишусь.


Семейный ансамбль "Весенняя свирель"
 
Ответить
Сообщениекитин, Спасибо, кажется, это именно то, что нужно.
Почитаю, попробую воплотить. =0)
По результатам отпишусь.

Автор - Sopilkar
Дата добавления - 26.01.2016 в 15:04
Sopilkar Дата: Вторник, 26.01.2016, 15:23 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
В общем, статья
ТУТ

помогла, но исправила ситуацию не до конца.
Теперь хоть понятно, что речь идет не сколько о форматах, сколько о стилях.
Результат работы макроса - на картинке, кто захочет, сравнит с предыдущей. =))
Грязи стало гораздо меньше, но она осталась... судя по всему, без ручной работы не обойтись.
Всем спасибо.
К сообщению приложен файл: 4229182.png (57.9 Kb)


Семейный ансамбль "Весенняя свирель"
 
Ответить
СообщениеВ общем, статья
ТУТ

помогла, но исправила ситуацию не до конца.
Теперь хоть понятно, что речь идет не сколько о форматах, сколько о стилях.
Результат работы макроса - на картинке, кто захочет, сравнит с предыдущей. =))
Грязи стало гораздо меньше, но она осталась... судя по всему, без ручной работы не обойтись.
Всем спасибо.

Автор - Sopilkar
Дата добавления - 26.01.2016 в 15:23
krosav4ig Дата: Вторник, 26.01.2016, 15:24 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как очистить сам НАБОР (или как его там назвать) форматов

макросом (Что такое макросы VBA в Excel?)
[vba]
Код
Option Explicit
Sub dd()
    Dim st As Style
    For Each st In ActiveWorkbook.Styles
    If Not st.BuiltIn Then st.Delete
    Next
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
как очистить сам НАБОР (или как его там назвать) форматов

макросом (Что такое макросы VBA в Excel?)
[vba]
Код
Option Explicit
Sub dd()
    Dim st As Style
    For Each st In ActiveWorkbook.Styles
    If Not st.BuiltIn Then st.Delete
    Next
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 26.01.2016 в 15:24
Sopilkar Дата: Вторник, 26.01.2016, 15:29 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
krosav4ig,
Могу скрин приложить, можете на слово поверить - Метод Delete из класса Style завершен неверно.


Семейный ансамбль "Весенняя свирель"
 
Ответить
Сообщениеkrosav4ig,
Могу скрин приложить, можете на слово поверить - Метод Delete из класса Style завершен неверно.

Автор - Sopilkar
Дата добавления - 26.01.2016 в 15:29
krosav4ig Дата: Среда, 27.01.2016, 22:57 | Сообщение № 9
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем
Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на
Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>

и
Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>

на
Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 27.01.2016, 22:58
 
Ответить
Сообщениекак вариант, открываем файл архиватором, в файле \xl\styles.xml заменяем
Цитата
<cellStyleXfs count="..."><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/>...</cellStyleXfs>
на
Цитата
<cellStyleXfs count="1"><xf numFmtId="0" fontId="0" fillId="0" borderId="0"/></cellStyleXfs>

и
Цитата
<cellStyles count="...">...<cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>

на
Цитата
<cellStyles count="1"><cellStyle name="Обычный" xfId="0" builtinId="0"/></cellStyles>

Автор - krosav4ig
Дата добавления - 27.01.2016 в 22:57
Sopilkar Дата: Четверг, 28.01.2016, 00:47 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
krosav4ig, спасибо, на работе попробую!


Семейный ансамбль "Весенняя свирель"
 
Ответить
Сообщениеkrosav4ig, спасибо, на работе попробую!

Автор - Sopilkar
Дата добавления - 28.01.2016 в 00:47
  • Страница 1 из 1
  • 1
Поиск:

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