Макрос фильтрации с фиксируемым значением по всем столбцам

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

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

21.05.2018 15:21:06

Всем добрый день! Помогите, может кто-то такое делал... Нужен макрос с автоматическим фильтром одного и того же значения по всем столбцам таблицы, т. е нажал на кнопку А(как присвоить макрос это понятно))) и автоматически сработали фильтры по всем столбцам таблицы на заданное значение (значения могут быть только (А,В,С,0)).

Прикрепленные файлы

Лист Microsoft Excel.xlsx (9.71 КБ)

tolstak

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

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

21.05.2018 15:41:04

Julya6, вот вариант:

Код

Sub autofilter_c(Optional char As String = "")
    Dim curSh As Worksheet, curRn As Range
    Set curSh = ActiveSheet
    Set curRn = curSh.Range("A:D")
    curSh.AutoFilterMode = False
    curRn.autofilter
    
    If char <> "" Then
        With curRn
            For i = 2 To .Columns.Count
                .autofilter Field:=i, Criteria1:=char
            Next i
        End With
    End If
End Sub

Прикрепленные файлы

Лист Microsoft Excel.xlsm (17.52 КБ)

Изменено: tolstak - 21.05.2018 15:42:51

In GoTo we trust

Vitaliy P

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

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

21.05.2018 23:26:54

tolstak, Не срабатывает, т.к. в аргументе прописан текст латиницей, а в таблице - кириллицей.Также, в фильтр добавляются кавычки, можно исправить эту строку:

Код
.autofilter Field:=i, Criteria1:=char

на

Код
.autofilter Field:=i, Criteria1:=Replace(char, Chr(34),"")

Мой вариант - Выбор критерия для фильтра "на лету"

Прикрепленные файлы

Вариант 1.xlsm (21.93 КБ)

Изменено: Vitaliy P - 21.05.2018 23:27:10