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

[VictorM]

Тут дело даже не в том, что "дергается" экран, а еще и реально тормозит выполнение процедуры.
.Calculation = xlManual 'включить пересчет формул вручную или , что тоже самое, отключить автоматический пересчет формул. (В Excel по-умолчанию стоит автомат)
При большом кол-ве формул на листе можно значительно ускорить выполнение макроса.
Главное, не забывать включить все это дело после выполнения процедуры.

[valerij]

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

Главное, не забывать включить все это дело после выполнения процедуры.

А это надо делать в ручную, если, да, то не подходит, у меня бух. бабушка 80 лет, она ПК вообще раньше не видела, ели научил мышкой водить(уже привыкла, не отгонишь), че я и делаю, прогу максимально простой, все пустые ячейки защищены....без лишних кнопок....

[VictorM]

извините, я не дописал, думал и так понятно

   .Calculation = xlAutomatic

как раз возвращает все назад, т.е. включает автоматический пересчет

[valerij]

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

извините, я не дописал, думал и так понятно

   .Calculation = xlAutomatic

как раз возвращает все назад, т.е. включает автоматический пересчет

Въехал, уже попробовал, работает, но ПК мой не дает увидить разницу, а интересно очень, пойду к соседки у нее Пк слабый

[VictorM]

Да, это можно делать выборочно.
Как это будет работать в Вашем конкретном случае, не могу сказать. Тема обширная и вникать в полный код как-то...
Попробуйте в начале красного кода вставить
Application.Calculation = xlManual
а в конце
Application.Calculation = xlAutomatic
посмотрите, что получится.

[valerij]

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

Да, это можно делать выборочно.

Блин, соседки нет дома, завтра в офисе попробую, отпишусь.
Но, я так думаю, что не даст это скорость, ведь я не пропускаю подпрограмму, а только на время выключаю, а потом вкл. и она, подпрограмма, все равно начинает работу, ну как бы она в цикле, а там фиг ее знает.

[дмидми]

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

.Calculation = xlManual
Вообще не знаю, что это такое

Неужто диверсанты из клавы F1 с корнем выдрали? Жалость-то какая. А то бы нажать ентую кнопочку сразу после набора басурманского слова
Calculation
, и было бы кому-нибудь "щасте".

P.S. Кстати, при изменении настроек ёкселя нужна всё же некоторая аккуратность. Приходится признать, что принцип "зроби як було" - это, в некотором смысле, признак хорошего воспитания и - очень часто! - ненапрасная забота о собственном здоровье.

Пример одного из самых простых способов соблюдения этого принципа можно посмотреть хотя бы здесь, обративши внимание на выделенное жёлтеньким.

[valerij]

Сообщение от дмидми

Неужто диверсанты из клавы F1 с корнем выдрали? басурманского слова

дмидми!
Это точно, что басурманского, по анг. не шпрехаю, бо в школе лет 40 назад, изучал, немецкий, а за ссылку, СПАСИБО!

[valerij]

VictorM, то же самое!

[VictorM]

Идут тормоза, когда ввожу данные, я понимаю, что выполняется также поиск

мда..., а у Вас случаем не используются Worksheet_Change, Workbook_SheetChange?
и еще, как уже говорил SAS888

(метод Select по-возможности лучше не использовать)

просмотрите внимательно весь код и постарайтесь избавиться от ненужных Select , Activate, тоже тормоза.