通过选择一系列crieteria vba excel输入数组来自动过滤

Question

编辑 #1 我正在尝试根据条件将工作表自动过滤为数组，通过使用对话框选择范围来选择数组值。此外，此对话框的目的是选择多个需要排序的未排序值。这里是代码：

Sub Hyperlink_opener()
Dim Selrng As Range
Dim srch_cr As Variant
Set Selrng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)

srch_cr = Array(Selrng)
Sheets("DocLog").Select
ActiveSheet.Range("$A:$F").AutoFilter Field:=1, Criteria1:=srch_cr, Operator:=xlFilterValues
'ActiveWindow.SmallScroll Down:=-15

End Sub

这当前没有搜索我选择的单元格，并且给我一个错误范围类的自动过滤方法失败。

Answer 1

只要您选择的范围包含文本或存储为文本的数字，就会执行此操作：

Sub Hyperlink_opener()
Dim Selrng As Range
Dim srch_cr As Variant

Set Selrng = Application.InputBox("Select a range", "Obtain Range Object", Type:=8)
srch_cr = Application.WorksheetFunction.Transpose(Selrng)
Sheets("DocLog").Range("$A:$F").AutoFilter Field:=1, Criteria1:=srch_cr, Operator:=xlFilterValues
End Sub

请注意，您需要转置范围以将其转换为一维范围。另外，不用Select工作表，参考即可。

如果您有需要过滤的数字，您可以将它们作为文本存储在过滤范围中，也可以通过解析数组将它们转换为代码中的文本。

Answer 2

根据您的Operator:=xlOr，我认为您希望根据多个条件进行过滤。

根据Microsoft's docs（对于 Excel 2010），您可以有 2 个条件，Operator:= 告诉它如何处理这两个条件。在您的情况下，代码将是：

ActiveSheet.Range("$a:$F").AutoFilter Field:=1, _
             Criteria1:=Srch_Cr(1), Criteria2:=Srch_Cr(2), Operator:=xlOr

您不能简单地将数组传递给 Criteria1 参数并假设 .AutoFilter 函数会弄清楚如何处理它。