VBA自动筛选多个条件

时间:2018-07-31 18:12:25

标签: excel vba excel-vba

我一直在为大型数据库开发搜索功能用户界面。我们正在数据库中搜索可以在任何列中找到的特定关键字。这样,末尾有一列与所有列的值连接在一起。

有两个搜索下拉菜单;第一个隔离1/6个关键字,第二个提供80多个关键字供您选择。每个关键字都有隐藏的同义词,我也希望将其包含在数据库中。

由于某种原因,我无法使xlFilterValues与隐藏同义词创建的数组一起使用。任何帮助将不胜感激。我已经在下面附上了问题代码!

        If str2 = "PI3K/AKT/mTOR" Then
           strSearch = "*PI3K*, *AKT*,*mtor*"
           Worksheets("Muscle Wasting Database").ListObjects("MuscleWasting").Range.CurrentRegion.AutoFilter _
           Field:=16, Criteria1:=Array("strSearch"), Operator:=xlFilterValues
        End If

0 个答案:

没有答案