我对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行
AA,AB 机管局 机管局 交流电 AF,AA,AB
非常感谢!
答案 0 :(得分:0)
解决了!
Criteria1:=“ ”&ActiveCell.Value&“ ”