excel vba语言里如何筛选文本框里的文本？

Question

建立2个文本框控件，都有初始值。点击文本框后自动清除里面的内容。然后输入新的内容，当按键回车健的时候，E列或G列自动筛选出包含有文本框里的数据。如何实现的？

Answer 1

按关键字筛选的例子代码：

Sub 宏1()
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="*爱*", Operator:=xlFilterValues
End Sub

上面的代码在我的电脑上执行时候，先取消筛选模式，然后筛选出E列（第四列）含有“爱”字的记录，你需要修改语句，把“爱”换为变量值就可以，例如用E_Search_Value变量存放E列条件，那么语句是：

   ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="*"& E_Search_Value &"*", Operator:=xlFilterValues

Answer 2

为什么不在单元格里面做，那么麻烦用文本框，既然用了文本框你就用文本框控件的.TEXT属性就可以了。