Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/CountColor при макросе на автофильтр переходит в #знач - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » CountColor при макросе на автофильтр переходит в #знач (Макросы/Sub)
CountColor при макросе на автофильтр переходит в #знач
Sancho Дата: Четверг, 26.05.2016, 08:32 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 0% ±

2007, 2010, 2013
Столкнулся еще с проблемой в этом файле.
Установил автофильтр включил запись отфильтровал >0, переназначил записанный макрос на кнопку, кнопку жмешь все считалки по CountColor ломаются в #ЗНАЧ. если щелкать сам автофильтр то все нормально. Где опять косячу?
К сообщению приложен файл: CountColorButt.xlsm(29Kb)


Сообщение отредактировал Sancho - Четверг, 26.05.2016, 08:33
 
Ответить
СообщениеСтолкнулся еще с проблемой в этом файле.
Установил автофильтр включил запись отфильтровал >0, переназначил записанный макрос на кнопку, кнопку жмешь все считалки по CountColor ломаются в #ЗНАЧ. если щелкать сам автофильтр то все нормально. Где опять косячу?

Автор - Sancho
Дата добавления - 26.05.2016 в 08:32
SLAVICK Дата: Четверг, 26.05.2016, 09:26 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1849
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
Вариант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 в функцию.
К сообщению приложен файл: 8386122.xlsm(28Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеВариант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
Дата добавления - 26.05.2016 в 09:26
_Boroda_ Дата: Четверг, 26.05.2016, 09:26 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9380
Репутация: 3951 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А так?
[vba]
Код
Sub Скругленныйпрямоугольник1_Щелчок()
    Application.Calculation = xlCalculationManual
    ActiveSheet.Range("$R$3:$R$23").AutoFilter Field:=1, Criteria1:=">0"
    Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА так?
[vba]
Код
Sub Скругленныйпрямоугольник1_Щелчок()
    Application.Calculation = xlCalculationManual
    ActiveSheet.Range("$R$3:$R$23").AutoFilter Field:=1, Criteria1:=">0"
    Application.Calculation = xlCalculationAutomatic
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 26.05.2016 в 09:26
Sancho Дата: Четверг, 26.05.2016, 11:19 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 88
Репутация: 0 ±
Замечаний: 0% ±

2007, 2010, 2013
SLAVICK, _Boroda_, СПАСИБО! Оба варианта рабочие.

SLAVICK, второй вариант я пробовал до форума, у меня не вышло. строка Application.Volatile была в функции удалил, не совсем понимаю что значит летучие, в предыдущей теме посоветовали не использовать.
 
Ответить
СообщениеSLAVICK, _Boroda_, СПАСИБО! Оба варианта рабочие.

SLAVICK, второй вариант я пробовал до форума, у меня не вышло. строка Application.Volatile была в функции удалил, не совсем понимаю что значит летучие, в предыдущей теме посоветовали не использовать.

Автор - Sancho
Дата добавления - 26.05.2016 в 11:19
Pelena Дата: Четверг, 26.05.2016, 11:21 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 9889
Репутация: 2269 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
не совсем понимаю что значит летучие

Здесь можно почитать


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
не совсем понимаю что значит летучие

Здесь можно почитать

Автор - Pelena
Дата добавления - 26.05.2016 в 11:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » CountColor при макросе на автофильтр переходит в #знач (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!