EXCEL VBA 动态筛选

简单来说，就是添加一个 TextBox 控件，然后写一段响应 TextBox.Change 事件的过程代码，其中，在 TextBox1.Text 前后添加通配符 * 可以实现关键字筛选：

Private Sub TextBox1_Change()

    ActiveSheet.Range(筛选区域).AutoFilter Field:=筛选列数, Criteria1:="=*" & TextBox1.Text & "*"

请将上面的中文部分替换成实际的单元格引用和列数即可

实例请参考附件。

1、首先需要打开Excel的表格，如图所示，点击下面的文件1，鼠标右键单击选择查看代码。

2、然后就是进入代码页面，可以看到页面上现在的代码。

3、然后接下来就是需要用listbox用法，如图所示，输入Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)，回车。

4、最后，再返回到页面上，如图所示，双击一下表格就可以看到数字了，listbox用法成功。

---