使用输入框过滤文本 - VBA

我想用一个查询从用户（输入框）过滤预先确定的列使用输入框过滤文本 - VBA

例如：过滤器列“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

来源

2011-12-27 User124726

什么不符合您当前的代码预期？ – JMax 2011-12-27 12:40:00

类似于http://stackoverflow.com/q/8532986/78522 – 2011-12-27 12:57:06

感谢@iDevlop，帮助。 – User124726 2011-12-27 15:09:40

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

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

来源

2011-12-27 12:56:07

使用输入框过滤文本 - VBA

回答

相关问题