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

学习Excel技术，关注微信公众号：

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论坛，供有兴趣的朋友参考。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。