使用单元格作为条件在VBA中过滤表

时间:2013-08-04 22:04:50

标签: excel excel-vba vba

我知道解决方案可能非常简单,但我有点失落。

我只需要声明如果要搜索的项目(这是一个单元格),则等于文本(Cust_ID或ASIN),以过滤字段5中名为table(Table1)的表格,范围F5,这就是我所拥有的,我不知道出了什么问题。

这就是我所拥有的:

Sub Search_in_table()

Sheets("ADD INFO").Select

If Item_to_search = "Cust_ID" Then 
    Sheets("INFO").Select
    ActiveSheet.Range(Table1).AutoFilter Field:=5, Criteria1:=Range(F5), Operator:=xlFilterValues

End If

End Sub

任何想法都会受到赞赏。

3 个答案:

答案 0 :(得分:1)

ActiveSheet.Range(Table1).AutoFilter Field:=5, Criteria1:=Range(F5)**.value**, Operator:=xlFilterValues

答案 1 :(得分:0)

您是否看过这个链接:http://www.ozgrid.com/forum/showthread.php?t=14061。希望它会有所帮助

答案 2 :(得分:0)

嗯......你问的不是

If Item_to_search = "Cust_ID" Or Item_to_search = "ASIN" Then 

???