excel VBA 通过文本框控件的值进行筛选查询 20
做了一个筛选的程序，原来是通过在L3输入的数据进行筛选的，但是现在想画一个文本框控件，在文本框控件中输入需要筛选的数据。原代码如下，请问要怎么把L3替换成文本框控件Tex...
做了一个筛选的程序，原来是通过在L3输入的数据进行筛选的，但是现在想画一个文本框控件，在文本框控件中输入需要筛选的数据。原代码如下，请问要怎么把L3替换成文本框控件TextBox120的值
Sub 筛选合单()
If [L3].Value <> "" Then
ActiveSheet.ListObjects("表4_236736").Range.AutoFilter Field:=11, Criteria1:="*" & [L3].Value & "*"
End If
End Sub 展开
Sub 筛选合单()
If [L3].Value <> "" Then
ActiveSheet.ListObjects("表4_236736").Range.AutoFilter Field:=11, Criteria1:="*" & [L3].Value & "*"
End If
End Sub 展开
1个回答
展开全部
改一下即可
Sub 筛选合单()
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录入数据（即不为空）即调用筛选合单程序呢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
