作者：乔山办公网日期：
返回目录：excel表格制作
简单来说，就是添加一个 TextBox 控件，然后写一段响应 TextBox.Change 事件的copy过程代码，其中，在 TextBox1.Text 前后添知加通配符 * 可以实现关键字筛选：
Private Sub TextBox1_Change()
ActiveSheet.Range(筛选区域).AutoFilter Field:=筛选列数, Criteria1:="=*" & TextBox1.Text & "*"
请将上面的中文部分替换成实际的单元格引用和列数即可
实例请参考附件。道
改一抄下即百可度
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