无论过滤器如何，始终包含某些单元格：VBAsolution

Question

我有一个包含 5 行部分的表格（一周中的每一天）。每行标题是一个工作人员的名字——大约有 15 人，所以总共 15*5 行。穿插的是标题为“星期一”“星期二”等的行。列标题称为“名称”

下面是搜索框的代码：

 Sub ScheduleSearch()
    'PURPOSE: Filter Data by Staff Name

Dim myButton As OptionButton
Dim MyVal As Long
Dim ButtonName As String
Dim sht As Worksheet
Dim myField As Long
Dim DataRange As Range
Dim mySearch As Variant

'Load Sheet into A Variable
  Set sht = ActiveSheet

'Unfilter Data (if necessary)
  On Error Resume Next
    sht.ShowAllData
  On Error GoTo 0

'Filtered Data Range (include column heading cells)
  Set DataRange = sht.ListObjects("Schedule").Range 'Table

'Retrieve User's Search Input
  mySearch = sht.Shapes("WireSearch").TextFrame.Characters.Text 'Control Form


'Loop Through Option Buttons
  For Each myButton In ActiveSheet.OptionButtons
      If myButton.Value = 1 Then
        ButtonName = myButton.Text
        Exit For
      End If
  Next myButton

'Determine Filter Field
  On Error GoTo HeadingNotFound
    myField = Application.WorksheetFunction.Match(ButtonName, DataRange.Rows(1), 0)
  On Error GoTo 0

'Filter Data
  DataRange.AutoFilter _
    Field:=myField, _
    Criteria1:="=*" & mySearch & "*", _
    Operator:=xlAnd

'Clear Search Field
  sht.Shapes("WireSearch").TextFrame.Characters.Text = "" 'Control Form
  'sht.OLEObjects("UserSearch").Object.Text = "" 'ActiveX Control
  'sht.Range("A1").Value = "" 'Cell Input

Exit Sub

'ERROR HANDLERS
HeadingNotFound:
  MsgBox "The column heading [" & ButtonName & "] was not found in cells " & DataRange.Rows(1).Address & ". " & _
    vbNewLine & "Please check for possible typos.", vbCritical, "Header Name Not Found!"

End Sub

Sub ClearScheduleFilter()
'
' ClearScheduleFilter Macro
'

'
    ActiveSheet.ListObjects("Schedule").Range.AutoFilter Field:=1
End Sub

现在，当我搜索人员 A 时，过滤器工作正常，并按人员 A 过滤“姓名”列。

但是 - 我希望标题为“星期一”“星期二”“星期三”“星期四”和“星期五”的单元格也自动包含在此过滤器中，无论用户搜索什么。 p>

有代码吗？

更新：以下代码过滤了日期和星期行，但它不过滤 mySearch 值。知道为什么吗？

'Filter Data
   DataRange.AutoFilter _
   Field:=myField, _
   Criteria1:=Array("MONDAY:", "TUESDAY:", "WEDNESDAY:", "THURSDAY:", "FRIDAY:", "WEEK:", " & mySearch & "), _
   Operator:=xlFilterValues

Answer 1

对于姓名字段，使用数组列表设置过滤器，包括一周中的所有天和人员。

一个基本的外壳是这样的：

Selection.AutoFilter 1, Array("MONDAY", "TUESDAY" , "WEDNESDAY" , "A"), xlFilterValues

对于您提供的代码，这应该可以工作：

 DataRange.AutoFilter _
    Field:=myField, _
    Criteria1:= Array("MONDAY", "TUESDAY", "WEDNESDAY", "THURSDAY", "FRIDAY"," & mySearch & ")", _
    Operator:=xlFilterValues