本文主要讲解如何创建一个外观漂亮的搜索框，通过它可以筛选数据并显示搜索结果。

如下图1所示，在数据区域上方放置有一个文本框，用来输入要搜索的文本，其名称重命名为“MySearch”；一个用作按钮的矩形形状，点击它开始搜索并显示结果；两个选项按钮窗体控件，用来选择在数据区域的哪列进行搜索。

图1

在VBE中，插入一个标准模块，输入代码：

在代码中，对要搜索的文本使用了通配符，因此可以搜索部分匹配的文本。此外，对数据区域使用了“硬编码”，你可以将其修改为实际的数据区域。代码运行的结果如下图2所示。

图2

我们在上面的基础上再进行扩展，让搜索字段更多一些，如下图3所示，可以搜索含有数字的列。

图3

代码如下：

在编写好代码后，将宏指定给表示按钮的矩形形状。在形状中单击右键，如下图4所示。

图4

选取“指定宏”命令，在“指定宏”对话框中选择宏名，如下图5所示。

图5

可以在此基础上进一步添加功能，例如，在搜索完成后，我想恢复原先的数据，可以在工作表中再添加一个代表按钮的矩形形状，如下图6所示。

图6

同时，编写下面的代码来链接到该矩形：

至此，功能已全部实现！但细心的朋友可能发现，由于我们使用的是文本框和形状，因此会出现Excel的编辑形状线，特别是输入文本后，单击形状前，都需要在其他单元格中单击一下，才能再单击形状。这可能会带来不便！你可以使用ActiveX控件，或者直接使用单元格，或者使用快捷键来执行宏。在我们编写的代码中，有很多注释掉的代码语句，可供参考。