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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить все правила разом!!! - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Удалить все правила разом!!!
ЩтуКув Дата: Четверг, 07.05.2015, 12:32 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 7 ±
Замечаний: 0% ±

Excel 2013
Спасите, братцы! Попался файл, в котором на одном листе ну оооооочень много правил в условном форматировании. При удалении через УСЛОВНОЕ ФОРМАТИРОВАНИЕ -> УДАЛИТЬ ПРАВИЛА -> УДАЛИТЬ ПРАВИЛА СО ВСЕГО ЛИСТА файл подвисает и всё - только перезапускать. Есть какой-нибудь способ удалить этот триппер (прошу прощения за слово "триппер") с моего файла? Как-то распароливал раньше файл, открывая его в блокноте, может есть аналогичный способ убрать все правила разом?
 
Ответить
СообщениеСпасите, братцы! Попался файл, в котором на одном листе ну оооооочень много правил в условном форматировании. При удалении через УСЛОВНОЕ ФОРМАТИРОВАНИЕ -> УДАЛИТЬ ПРАВИЛА -> УДАЛИТЬ ПРАВИЛА СО ВСЕГО ЛИСТА файл подвисает и всё - только перезапускать. Есть какой-нибудь способ удалить этот триппер (прошу прощения за слово "триппер") с моего файла? Как-то распароливал раньше файл, открывая его в блокноте, может есть аналогичный способ убрать все правила разом?

Автор - ЩтуКув
Дата добавления - 07.05.2015 в 12:32
DJ_Marker_MC Дата: Четверг, 07.05.2015, 12:40 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
[vba]
Код
Sub ClearCF()
    On Error Resume Next
     Cells.FormatConditions.Delete
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub ClearCF()
    On Error Resume Next
     Cells.FormatConditions.Delete
End Sub
[/vba]

Автор - DJ_Marker_MC
Дата добавления - 07.05.2015 в 12:40
ЩтуКув Дата: Четверг, 07.05.2015, 12:47 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 7 ±
Замечаний: 0% ±

Excel 2013
а куда это дело впихивать?
 
Ответить
Сообщениеа куда это дело впихивать?

Автор - ЩтуКув
Дата добавления - 07.05.2015 в 12:47
SLAVICK Дата: Четверг, 07.05.2015, 12:53 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Посмотрите здесь

Если не поможет:
Если файл в формате xlsx или xlsm
Можно ручками почистить XML :D :
Заходим через TotalCommander в файл(стать на файл и нажать CTRL + стрелка вправо):
Имя файла.xlsx\xl\worksheets\sheet1.xml

если TotalCommander нет, тогда переименовать расширение файла на "zip", а дальше открываем в архиваторе:
Имя файла.zip\xl\worksheets\sheet1.xml

Найдите в файле sheet1.xml все:
<conditionalFormatting и удалите до </conditionalFormatting>:
например в отрывке файла:
Цитата
</v></c><c r="C1893" s="6"><v>5297.28</v></c><c r="D1893" s="2" t="s"><v>3662</v></c></row></sheetData><conditionalFormatting sqref="A3:D22"><cfRule type="colorScale" priority="2"><colorScale><cfvo type="min"/><cfvo type="percentile" val="50"/><cfvo type="max"/><color rgb="FFF8696B"/><color rgb="FFFFEB84"/><color rgb="FF63BE7B"/></colorScale></cfRule></conditionalFormatting><conditionalFormatting sqref="A31:D41"><cfRule type="cellIs" dxfId="0" priority="1" operator="equal"><formula>398</formula></cfRule></conditionalFormatting><pageMargins left="0.75" right="0.75" top="1" bottom="1" header="0.5" footer="0.5"/></worksheet>


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеПосмотрите здесь

Если не поможет:
Если файл в формате xlsx или xlsm
Можно ручками почистить XML :D :
Заходим через TotalCommander в файл(стать на файл и нажать CTRL + стрелка вправо):
Имя файла.xlsx\xl\worksheets\sheet1.xml

если TotalCommander нет, тогда переименовать расширение файла на "zip", а дальше открываем в архиваторе:
Имя файла.zip\xl\worksheets\sheet1.xml

Найдите в файле sheet1.xml все:
<conditionalFormatting и удалите до </conditionalFormatting>:
например в отрывке файла:
Цитата
</v></c><c r="C1893" s="6"><v>5297.28</v></c><c r="D1893" s="2" t="s"><v>3662</v></c></row></sheetData><conditionalFormatting sqref="A3:D22"><cfRule type="colorScale" priority="2"><colorScale><cfvo type="min"/><cfvo type="percentile" val="50"/><cfvo type="max"/><color rgb="FFF8696B"/><color rgb="FFFFEB84"/><color rgb="FF63BE7B"/></colorScale></cfRule></conditionalFormatting><conditionalFormatting sqref="A31:D41"><cfRule type="cellIs" dxfId="0" priority="1" operator="equal"><formula>398</formula></cfRule></conditionalFormatting><pageMargins left="0.75" right="0.75" top="1" bottom="1" header="0.5" footer="0.5"/></worksheet>

Автор - SLAVICK
Дата добавления - 07.05.2015 в 12:53
_Boroda_ Дата: Четверг, 07.05.2015, 12:58 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16880
Репутация: 6593 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Переименовываете файл - вместо xlsx пишете zip (или другой архиватор)
открываете полученный архив, идете там сюда: название.zip\xl\worksheets\
там будет список листов - отдельный файл на каждый лист
Открываете любой, в котором есть УФ, в блокноте, ищете куски <conditionalFormatting ...всякий текст ... </conditionalFormatting> и удаляете их.
Сохраняете текстовик, закрываете, выходите из zip и переименовываете файл обратно из zip в xlsx.

Пока писал, выше уже почти аналогичное выложили.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПереименовываете файл - вместо xlsx пишете zip (или другой архиватор)
открываете полученный архив, идете там сюда: название.zip\xl\worksheets\
там будет список листов - отдельный файл на каждый лист
Открываете любой, в котором есть УФ, в блокноте, ищете куски <conditionalFormatting ...всякий текст ... </conditionalFormatting> и удаляете их.
Сохраняете текстовик, закрываете, выходите из zip и переименовываете файл обратно из zip в xlsx.

Пока писал, выше уже почти аналогичное выложили.

Автор - _Boroda_
Дата добавления - 07.05.2015 в 12:58
DJ_Marker_MC Дата: Четверг, 07.05.2015, 13:24 | Сообщение № 6
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
ЩтуКув, это макрос.
Нажимаете Alt+F11
Правой кнопкой щелкаете по любом листу слева и выбираете

К сообщению приложен файл: 3908292.gif (77.2 Kb) · 2258478.gif (66.2 Kb)
 
Ответить
СообщениеЩтуКув, это макрос.
Нажимаете Alt+F11
Правой кнопкой щелкаете по любом листу слева и выбираете


Автор - DJ_Marker_MC
Дата добавления - 07.05.2015 в 13:24
ЩтуКув Дата: Пятница, 08.05.2015, 09:31 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 7 ±
Замечаний: 0% ±

Excel 2013
Ничего не переименовывал, просто открыл файл правой кнопкой мыши с помощью винрара, далее нашел нужный воркшит, достал его и открыл блокнотом. ну и далее удалил все куски <conditionalFormatting ...всякий текст ... </conditionalFormatting>. Всем спасибо, господа - вы супер мОзги!!!!!! За макрос отдельное спс, буду пользоваться в дальнейшем!
 
Ответить
СообщениеНичего не переименовывал, просто открыл файл правой кнопкой мыши с помощью винрара, далее нашел нужный воркшит, достал его и открыл блокнотом. ну и далее удалил все куски <conditionalFormatting ...всякий текст ... </conditionalFormatting>. Всем спасибо, господа - вы супер мОзги!!!!!! За макрос отдельное спс, буду пользоваться в дальнейшем!

Автор - ЩтуКув
Дата добавления - 08.05.2015 в 09:31
ЩтуКув Дата: Четверг, 31.12.2015, 10:50 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 134
Репутация: 7 ±
Замечаний: 0% ±

Excel 2013
DJ_Marker_MC, попробовал убрать макросом. Гораздо легче и быстрее!!!
 
Ответить
СообщениеDJ_Marker_MC, попробовал убрать макросом. Гораздо легче и быстрее!!!

Автор - ЩтуКув
Дата добавления - 31.12.2015 в 10:50
  • Страница 1 из 1
  • 1
Поиск:

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