根据所选单元格值自动过滤另一张表中的表格,其中需要“包含”自动过滤器

时间:2018-07-18 09:00:17

标签: vba autofilter

我对VBA不太熟悉,因此我引用了此解决方案'Clicking a hyperlink in Excel to set autofilter on a different sheet',但是我需要自动过滤器执行的操作是在工作表的目标列中查找包含以下内容的单元格选择的值

这是即时通讯所使用的方法,它的精确值与目标值匹配时可以自动过滤,但是如果目标值在字段中包含多个值,则它不会在过滤器中包含它们:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Column = 3 Then
    Sheet1.ListObjects("target").Range.AutoFilter Field:=17, Criteria1:=ActiveCell.Value
    Sheet1.Activate
    End If
End Sub

我认为我需要以某种方式更改“ Sheet1.ListObjects(“ target”)。Range.AutoFilter Field:= 17,Criteria1:= ActiveCell.Value'部分以查看包含值的字段17,例如:

如果字段17看起来与此链接并且我选择的ActiveCell.Value为'AA',则VBA即时通讯将仅显示2个条目,而不是实际所在的4行

字段17(以下内容应以列布局显示,而不是第btw行)

AA,AB 机管局 机管局 交流电 AF,AA,AB

非常感谢!

1 个答案:

答案 0 :(得分:0)

解决了!

Criteria1:=“ ”&ActiveCell.Value&“