Столкнулся еще с проблемой в этом файле. Установил автофильтр включил запись отфильтровал >0, переназначил записанный макрос на кнопку, кнопку жмешь все считалки по CountColor ломаются в #ЗНАЧ. если щелкать сам автофильтр то все нормально. Где опять косячу?
Столкнулся еще с проблемой в этом файле. Установил автофильтр включил запись отфильтровал >0, переназначил записанный макрос на кнопку, кнопку жмешь все считалки по CountColor ломаются в #ЗНАЧ. если щелкать сам автофильтр то все нормально. Где опять косячу?Sancho
Вариант1: Добавьте Application.CalculateFullRebuild в макрос фильтра. [vba]
Код
Sub Скругленныйпрямоугольник1_Щелчок() ActiveSheet.Range("$R$3:$R$23").AutoFilter Field:=1, Criteria1:=">0", _ Operator:=xlAnd DoEvents Application.CalculateFullRebuild End Sub
[/vba]
Вариант 2 добавить Application.Calculate в макрос фильтра + Application.Volatile в функцию.
Вариант1: Добавьте Application.CalculateFullRebuild в макрос фильтра. [vba]
Код
Sub Скругленныйпрямоугольник1_Щелчок() ActiveSheet.Range("$R$3:$R$23").AutoFilter Field:=1, Criteria1:=">0", _ Operator:=xlAnd DoEvents Application.CalculateFullRebuild End Sub
[/vba]
Вариант 2 добавить Application.Calculate в макрос фильтра + Application.Volatile в функцию.SLAVICK
Sub Скругленныйпрямоугольник1_Щелчок() Application.Calculation = xlCalculationManual ActiveSheet.Range("$R$3:$R$23").AutoFilter Field:=1, Criteria1:=">0" Application.Calculation = xlCalculationAutomatic End Sub
[/vba]
А так? [vba]
Код
Sub Скругленныйпрямоугольник1_Щелчок() Application.Calculation = xlCalculationManual ActiveSheet.Range("$R$3:$R$23").AutoFilter Field:=1, Criteria1:=">0" Application.Calculation = xlCalculationAutomatic End Sub
SLAVICK, второй вариант я пробовал до форума, у меня не вышло. строка Application.Volatile была в функции удалил, не совсем понимаю что значит летучие, в предыдущей теме посоветовали не использовать.
SLAVICK, _Boroda_, СПАСИБО! Оба варианта рабочие.
SLAVICK, второй вариант я пробовал до форума, у меня не вышло. строка Application.Volatile была в функции удалил, не совсем понимаю что значит летучие, в предыдущей теме посоветовали не использовать.Sancho
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
