问与答124：如何根据输入值进行动态筛选？

excelperfect

Q：我想在工作表中应用动态筛选，当我在文本框中输入时，Excel会根据我输入的数据动态显示工作表中与输入值相匹配的数据，如何实现？

如下图1所示，在工作表单元格B1中放置了一个文本框控件，当在该文本框中输入数据时，工作表中会根据输入的值自动匹配并显示相应的数据行。

图1

A：在该工作表代码模块中，输入下面的代码：

Private Sub TextBox1_Change()

If Len(TextBox1.Value) = 0 Then

Sheet1.AutoFilterMode = False

Else

If Sheet1.AutoFilterMode = True Then

Sheet1.AutoFilterMode = False

End If

Sheet1.Range('A2:C' &Rows.Count).AutoFilter Field:=1, Criteria1:='*' & TextBox1.Value& '*'

End If

End Sub

代码利用了Excel的自动筛选功能来实现。相应的效果如下图2所示。

图2

注：今天的问题来自于ozgrid.com论坛，供有兴趣的朋友参考。