使用input框过滤文本 – VBA

我想用一个用户的查询过滤一个预定的列（input框）

例如：使用用户input文本“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...