Управление условным форматированием

[valerij]

В продолжении ЭТОЙ темы, для поиска равных значений, я к ячейкам, просто применил "Условное форматирование", получилось супер, НО:
Услов. форм. применено к 800 ячейкам, одного столбца(ст. четыре) и поэтому когда начинаешь вбивать данные в А, В идут тормоза.
Вопрос, как можно отключать "Условное форматирование", на период ввода данных?
Делал кнопку, привязывал ее к макросу, не помогло

З. Ы.
В ст. С, D, будут ссылки на другую книгу с данными

[SAS888]

Больше, чем уверен, что с использованием VBA, условное форматирование вообще не нужно. Попробовал почитать посты темы по Вашей ссылке - запутался. Объясните, что нужно сделать. Что окрашивать? В зависимости от чего? Или еще что...?

[valerij]

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

Больше, чем уверен, что с использованием VBA, условное форматирование вообще не нужно. Попробовал почитать посты темы по Вашей ссылке - запутался. Объясните, что нужно сделать. Что окрашивать? В зависимости от чего? Или еще что...?

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

Т. е. надо: при вводе данных в А, В, что бы не работало "Условное форматирование", тогда не будет тормозов, а только при клике на кнопку "Проверка" начнется сверка

[дмидми]

Будь то условное форматирование или, скажем, колонка с формулами ВПР или СЧЁТЕСЛИ - торможение обеспечено, поскольку при изменении всего одной ячейки пересчитываются все ячейки целого столбца, а то и не одного.

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

НО: такой макрос не сможет прицельно обесцветить: ему неоткуда взять старое значение изменённой ячейки.

ИМХО, выход один: запуск обесцвечивающего всё и заново красящего макроса по запросу.

[SAS888]

НО: такой макрос не сможет прицельно обесцветить: ему неоткуда взять старое значение изменённой ячейки.

А Вы уверены? Я как раз над этим сейчас думаю.

ИМХО, выход один: запуск обесцвечивающего всё и заново красящего макроса по запросу.

Тогда нужно проверять все ячейки, а это долго.

[valerij]

А если использовать тот макрос, что в аттаче, но он сработает "правильно" раз, а потом при закрытии листа, типа обнулить?

[дмидми]

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

А если использовать тот макрос, что в аттаче

Даже если довести его до ума так, чтобы он работал, работает он на моём компе поболе двадцати секунд для всего-то семи тысяч строк. Много! Раскрашивание врукопашную (то есть без условного форматирования) займёт заведомо меньше времени.

[ZORRO2005]

А не проще сделать 2 кнопки:
ВКЛ. и ВЫКЛ. условное форматирование.
Забили нужные данные-нажали ВКЛ.
перед тем как забивать нажали ВЫКЛ.

Извиняюсь, но это предложение уже было выше:

ИМХО, выход один: запуск обесцвечивающего всё и заново красящего макроса по запросу.

[valerij]

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

А не проще сделать 2 кнопки:

А как, их сделать, к чему их привязывать?

[valerij]

А если две кнопки и два макроса, и связать?
Что то пробую, нифига, де ошибка?

Sub Макрос1()
'Вкл. форматир.
Sheets("Лист1").Select
Range("A2:A25").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ИЛИ(C$2:$C$25=A2)"
Selection.FormatConditions(1).Inter ior.ColorIndex = 24
Range("C2:C25").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ИЛИ(A$2:$A$25=C2)"
Selection.FormatConditions(1).Inter ior.ColorIndex = 24
End Sub
Sub Макрос2()
'Отключает формат.
Sheets("Лист1").Select
Range("A2:A25").Select
Selection.ClearFormats
Range("C2:C25").Select
Selection.ClearFormats
End Sub