Макрос для обновления данных с помощью фильтра

RSS

Макрос для обновления данных с помощью фильтра, обновление данных макросом для последующего корректного отображения диаграмм

presentt

Пользователь

Сообщений: 104 Регистрация: 24.06.2016

25.06.2018 15:39:09

Вот простой макрос созданный макрайтером

Код

Sub Ìàêðîñ6()

'

' Ìàêðîñ6 Ìàêðîñ

'

 

'

   
ActiveSheet.Range("$B$1:$B$64").AutoFilter Field:=1

   
ActiveSheet.Range("$B$1:$B$64").AutoFilter Field:=1,
Criteria1:=Array("10", _  "12", "13",
"17", "3", "32", "4", "40",
"5", "57", "6", "82", "="),
Operator:= _

       
xlFilterValues

End Sub

Идея простая, сначала в выпадающем фильтре нажимаем "Выделить всё" и ОК, а следом снимаем выделение с нуля (всё остальное остается) и ОК.
Локально всё прекрасно работает, но при изменении данных в исходной таблице В1:В64 (а данные периодически меняются, какие-то уходят, другие добавляются) обновление происходит некорректно. По идее, надо заменить строчку макроса

Код
Array("10", _ "12", "13", "17", "3", "32", "4", "40", "5", "57", "6", "82", "="),

на какое-то обобщение, по смыслу - оставить всё кроме нуля. Подскажите, как подправить макрос.

Дмитрий Щербаков

Пользователь

Сообщений: 14896 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

25.06.2018 15:44:05

Все делается проще:

Код
Sub NonZeroFilter() ActiveSheet.Range("$B$1:$B$64").AutoFilter Field:=1, Criteria1:="<>0" End Sub

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

presentt Пользователь Сообщений: 104 Регистрация: 24.06.2016	#3 25.06.2018 16:19:16 Спасибо большое