Как макросом перевести результат условного форматирования в обычное?

[RISagitov]

без пробегания циклом по ячейкам

[EducatedFool]

нет таких вариантов
а вот что только есть:
http://www.excel-vba.ru/general/moi-...niya-obychnym/

[IgorGO]

без пробегания циклом по ячейкам

ни как!
хотя... давайте подождем, может нас кто-то удивит

[SAS888]

Попробуйте так:

Sub qq()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions).FormatConditions.Delete
End Sub

[IgorGO]

Сергей,

перевести результат условного форматирования в обычное

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

и в полном соответствии с вопросом

без пробегания циклом по ячейкам

у меня не получилось(((((
т.е. получилось, что НИКАК

[Watcher_1]

я тут порылся и нашел вот это DisplayFormat
на сколько я понял начинается с 2010 офиса
И вот что получил...

Sub qq()
On Error Resume Next
Dim cel As Range
For Each cel In ActiveSheet.UsedRange.Cells
    cel.Interior.Color = cel.DisplayFormat.Interior.Color
Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllFormatConditions).FormatConditions.Delete
End Sub

Правда без цикла не идет. Мож кто допилит?

[SAS888]

Игорь, я понимаю так, что "перевести результат условного форматирования в обычное" - это и есть удалить условное форматирование. О том, что в последствии потребуется его восстанавливать и о том, с каких ячеек убирать (удовлетворяющих условию или нет) условное форматирование, в вопросе автора нет ни слова.
А как правильно нужно понимать вопрос знает только автор...

[RISagitov]

Сообщение от SAS888

Игорь, я понимаю так, что "перевести результат условного форматирования в обычное" - это и есть удалить условное форматирование. О том, что в последствии потребуется его восстанавливать и о том, с каких ячеек убирать (удовлетворяющих условию или нет) условное форматирование, в вопросе автора нет ни слова.
А как правильно нужно понимать вопрос знает только автор...

не удалить условное форматирование, а перевести подкрашивания заданные во всех правилах в условном форматировании, в обычные подкрашивания

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

[Watcher_1]

Сообщение от RISagitov

не удалить условное форматирование, а перевести подкрашивания заданные во всех правилах в условном форматировании, в обычные подкрашивания

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

Мой вариант выше не работает что ли?

[27102014]

Сообщение от RISagitov

не удалить условное форматирование, а перевести подкрашивания заданные во всех правилах в условном форматировании, в обычные подкрашивания

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

что, что это такое???? зачем тогда нужно условное форматирование???? закрасить цветом ячейки??? покрасить можно и так

If Range("A1") = "так тоже можно сделать" Then Range("A1").Interior.Color = 16512751