使用输入框过滤文本- VBA

Question

我想使用来自用户(输入框)的查询过滤预先确定的列

示例:用用户输入文本"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

使用loop + Like来限制输入。

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