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

[SAS888]

Посмотрите черновой вариант, не использующий условное форматирование. Работает он мгновенно, но имеет ряд существенных недостатков. А именно:
Работать можно только с одной ячейкой (не с диапазоном) и только "руками", т.е. либо непосредственный ввод с клавиатуры, либо копировать - вставить.
По сему у меня есть вопрос к автору темы. Уточните, каким образом в ячейках будут изменяться (дополняться) данные?
1) Ввод с клавиатуры
2) Вырезать (копировать) - вставить.
3) В ячейке содержится формула (или ссылка на другую ячейку)
4) Значение подставляется макросом
5) и т.д.
Я имею ввиду не в принципе, какие есть способы это сделать, а какие будут непосредственно использоваться в Вашей программе.
В зависимости от ответа, будет видно - развивать этот вариант или подумать над другим.

[valerij]

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

Уточните, каким образом в ячейках будут изменяться (дополняться) данные?
1) Ввод с клавиатуры
2) Вырезать (копировать) - вставить.
3) В ячейке содержится формула (или ссылка на другую ячейку)
4) Значение подставляется макросом
5) и т.д.
Я имею ввиду не в принципе, какие есть способы это сделать, а какие будут непосредственно использоваться в Вашей программе.
В зависимости от ответа, будет видно - развивать этот вариант или подумать над другим.

Спешу ответить:
1) Да в ст. A и B ввод только с клавы.
2) Очень редко, можно сказать не применяется.
3) В столбцах C и D ссылки на другую КНИГУ
4) НЕТ

Есть рабочая книга с 16 -ю листами, к ней добавил еще лист под названием "НАКЛ", о нем ведем речь.

Может есть необходимость выложить рабочую книгу?
Но она в RAR-е, весит 275 кб!

SAS888!
Вставил Ваш макрос к свою рабочую книгу, заменил в другой книги данные(ссылки в ст. С и D). Все ОК!

Будете еще доробатывать или можно кричать СПАСИБО?

[SAS888]

Если это не секретная информация и если Вас не затруднит.
И еще вопрос. А если одинаковые значения ячеек встречается только в одном столбце, что тогда делать?

[valerij]

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

А если одинаковые значения ячеек встречается только в одном столбце, что тогда делать?

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

З. Ы.
Забыл спросить, почему все время спрашиват, "Сохранить изменения в файле"?
Я только открыл и тут же закрыл

[SAS888]

Я еще поработаю над Вашей задачей.

[valerij]

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

Я еще поработаю над Вашей задачей.

SAS888
Да, да, конечно!
Спасибо.

[SAS888]

Посмотрите, что у меня получилось. Может быть я не все протестировал. Что не так - пишите.
И еще. В Вашем файле в модуле "Эта книга" в процедуре Workbook_SheetChange есть строка

Case "Лист1" To "Лист12", "Лист2" To "Лист9", "Лист14"

Что Вы этим хотели сделать?
И второе: строка

If Not Intersect(Target, Sh.Range("B3:K1489")) Is Nothing Then Macro_Change Sh

означает, что изменив ячейку из указанного диапазона (он очень большой), запустится Ваш макрос. Так и нужно? Т.е. другими словами, меняем любую ячейку (почти любого) листа - запускается макрос.

[slan]

у меня при 1600 не тормозит ни сколько..
как вы форматирование задавали?

[SAS888]

Этого я не говорил и не проверял, просто предлагаю другое решение.

[valerij]

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

Посмотрите, что у меня получилось. Может быть я не все протестировал. Что не так - пишите..

1. Не понял, что делает кнопка "Перекрасить"?
Если ввести значение(20702172) из ст "С" в ст. "А", сразу происходит окрас, если из ст. А, В, переписать значения в файлы для сравнения, то ст. С, вовсе исчезает и при нажатии кн. "Перекрасить", закраска выполняется с единичным шагом.

В Вашем файле в модуле "Эта книга" в процедуре.... Что Вы этим хотели сделать?.

Я удалил пару листов из книги, это собирательные данные со всех листов, они не играют роли, там нет ссылок на др. книги, просто уменьшил вес файла, а смысл "Case" - только в этих листах выполняется макрос, если так не сделать, макрос "цепляет" другие листы, те же "НАКЛ", "ЗАЯВКИ"...

И второе: строка Target, Sh.Range("B3:K1489")...означает, что изменив ячейку из указанного диапазона (он очень большой), запустится Ваш макрос. Так и нужно? Т.е. другими словами, меняем любую ячейку (почти любого) листа - запускается макрос.

Нет!
А только в этом, выбранном диапазоне, исполнять все действия макроса.
Ну по крайней мере я так понял, я не есть, полным автором макроса, поэтому так рассуждаю, только из результатов экспериментов.