使用输入框过滤文本 - VBA

Question

我想使用来自用户的查询（输入框）

过滤预定列

Ex：使用用户输入文本“Joey”过滤列“L”。 任何人都可以指导我需要做什么吗？这是我正在尝试的代码......

Set wSheetStart = ActiveSheet
Set rFilterHeads = Range("L1", Range("IV1").End(xlToLeft))

With wSheetStart
    .AutoFilterMode = False
    rFilterHeads.AutoFilter
    strCriteria = InputBox("Enter Criteria")
    If strCriteria = vbNullString Then Exit Sub
    rFilterHeads.AutoFilter Field:=3, Criteria1:=strCriteria         
End With

Answer 1

使用循环+ Like限制输入您需要的任何内容。

Do
    strCriteria = UCase(InputBox("Enter criteria"))
Loop Until Len(strCriteria) = 0 Or strCriteria Like "?????"
If Len(strCriteria) = 0 Then Exit Sub
'continue...