Макрос с фильтрами

@PoMa_HaB · Регистрация: 09.01.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте уважаемые. К сожалению с макросами не особо знаком. Пытался написать макрос через рекордер, но что не получается. В общем проблема такая, есть множество столбцов (более 30) с числовыми данными и на каждом стоит фильтр. Каждый раз приходится включать и выключать фильтр (все кроме пустых). Хотелось бы немного удобства, и сделать макрос, который бы сам это делал при сочетании клавиш и другой макрос который бы удалял этот фильтр. Есть одно но, этот фильтр должен включаться именно в том столбце, на котором стоит выделенная (активная) ячейка. Вникать в дебри VBA уже времени нет (может и желания). Вроде ничего сложного. Я включаю относительные ссылки, включаю запись, выделяю ячейку в первом столбце и ставлю фильтр. Останавливаю запись, вроде макрос должен быть готов. Проверяю, делаю активной ячейку во втором столбце и активирую макрос. Но действия разворачиваются только на первом столбце. В чем проблема? Может кто подсказать? Прикрепил файл. Заранее спасибо!

Код макроса:
Sub Включение_фильтра()
'
' Включение_фильтра Макрос
' Фильтр включись!
'

'
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Range("$A$1:$J$13").AutoFilter Field:=1, Criteria1:="<>"
End Sub

@Narimanych · 23.07.2020, 16:21

PoMa_HaB,

Visual Basic

Sub MMM()
X = ActiveCell.Column
If Not ActiveSheet.AutoFilterMode Then
         ActiveSheet.Range("$A$1:$J$13").AutoFilter Field:=X, Criteria1:="<>"
 Else
      ActiveSheet.AutoFilterMode = False
End If
End Sub

@PoMa_HaB · 23.07.2020, 16:42 **[ТС]**

Спасибо. Уже что-то. Но я по ходу неправильно объяснил. Фильтры уже стоят на всех столбцах и их не надо удалять, просто сделать фильтр по непустым значениям и вернуть обратно на активном столбце (фильтр по всем).

@Punkt5 · 23.07.2020, 16:45

PoMa_HaB, Или вот такой же вариант, просто чуть более независимый от размеров заполненной области и только включающий фильтр по непустым и возвращающий в данной колонке отображение всех значений:
Включается по Ctrl+q, Выключается по Ctrl+w. Если не надо - можно убрать строку Attribute в каждом макросе.

Visual Basic

Sub Включение_фильтра()
Attribute Включение_фильтра.VB_ProcData.VB_Invoke_Func = "q\n14"
'
' Включение_фильтра Макрос
' Фильтр включись!
'
ActiveSheet.Range(Cells(ActiveSheet.Rows.Count, 1).End(-4162), Cells(1, ActiveSheet.Columns.Count).End(-4159)).AutoFilter Field:=ActiveCell.Column, Criteria1:="<>"
End Sub
 
Sub Выключение_фильтра()
Attribute Выключение_фильтра.VB_ProcData.VB_Invoke_Func = "w\n14"
'
' Отключение_фильтра Макрос
' Фильтр отключись!
'
ActiveSheet.Range(Cells(ActiveSheet.Rows.Count, 1).End(-4162), Cells(1, ActiveSheet.Columns.Count).End(-4159)).AutoFilter Field:=ActiveCell.Column
End Sub

@PoMa_HaB 13 / 13 / 3 Регистрация: 09.01.2013 Сообщений: 82
	23.07.2020, 16:42 [ТС]	3
	Спасибо. Уже что-то. Но я по ходу неправильно объяснил. Фильтры уже стоят на всех столбцах и их не надо удалять, просто сделать фильтр по непустым значениям и вернуть обратно на активном столбце (фильтр по всем). 0

	23.07.2020, 16:45