使用vba和过滤器创建一个excel搜索引擎

Question

我正在尝试使用vba创建一个搜索引擎，根据输入到单元格/搜索栏中的值来过滤我的行。

    Sub DateFilter()
    'hide dialogs
    Application.ScreenUpdating = False
    'filter for records that have June 11, 2012 in column 3
    ActiveSheet.Range("A5:C30").AutoFilter Field:=3, Criteria1:=ActiveSheet.Range("A5").Value
    Application.ScreenUpdating = True
End Sub

当用户点击我的搜索按钮并根据单元格A5中的单元格值过滤行时，此宏会运行。

然而，当代码过滤时，它显示错误的结果。

我在excel中有以下布局：

A           B            C
White       XXX          London
Black       ZZZ          Manchester
Gold        TTT          England
Silver      FFFF         Scotland

如果我输入我的单元格A5中的白色字会显示银色？

有人可以告诉我哪里出错了吗？感谢

Answer 1

正如Gary的学生评论的那样，您当前正在根据行中的单元格值过滤行。

而不是这样，根据外部的值（如D1）对其进行过滤。然后，您可以将任何您喜欢的内容放入过滤器的D1单元格中。