excel VBA 通过文本框控件的值进行筛选查询
发布网友
发布时间：2022-04-20 16:47
共1个回答
热心网友
时间：2023-07-18 15:48
改一下即可
If ActiveSheet.OLEObjects("TextBox120").Object.Value <> "" Then
ActiveSheet.ListObjects("表4_236736").Range.AutoFilter Field:=11, Criteria1:="*" & ActiveSheet.OLEObjects("TextBox120").Object.Value & "*"
End If
End Sub
追问非常感谢，改成这个以后要怎么调用程序呢，我原来的是
If Target.Address "$L$3" Then Exit Sub
Call 筛选合单
加一个按钮应该就可以了，不过我不想按钮，能不能这样呢，只要TextBox120录入数据（即不为空）即调用筛选合单程序呢
