Как создать фильтр Excel для нескольких столбцов с помощью VBA - PullRequest
Новая
       10

Как создать фильтр Excel для нескольких столбцов с помощью VBA

0 голосов
/ 27 января 2020

У меня есть рабочий лист с 7 столбцами (B: H). В каждом столбце 3-я строка (B3, C3 et c.) Является ячейкой ввода. Строки ниже содержат базу данных, и я хочу, чтобы эта база данных была отфильтрована на основе входных ячеек в третьей строке одним нажатием кнопки sh. Это мой код, но он не работает. Буду благодарен, если кто-нибудь сможет помочь. 

Sub HideRows()

  Dim rCheck As Range
  Dim rHide As Range
  Dim rCell As Range
  Dim rCol As Range

    Rows.EntireRow.Hidden = False

    Set rCheck = ActiveWorkbook.ActiveSheet.Range("B4:H230")

        For Each rCol In rCheck.Columns
            For Each rCell In rCol.Cells

                If Not InStr(1, rCell, ActiveWorkbook.ActiveSheet.Cells(3, rCol), vbTextCompare) > 0 Then
                If Not rHide Is Nothing Then Set rHide = Union(rHide, rCell) Else Set rHide = rCell
            End If

            Next rCell
        Next rCol

    If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True

End Sub
...