求助，有没有大神帮下忙，感激不尽

william1v1

1．工作表设计
创建一个Excel工作簿，在工作簿的Sheet1工作表中，填充所有单元格的背景颜色为“白色”。设置“数据区”和“条件区”，设置表格的边框、表头、字体、字号、列宽、行高、文字和背景颜色。
在“数据区”区输入用于测试的模拟数据。
在当前工作表上插入两个来自文件的图片
和
，用于执行相应的子程序。调整大小和位置，得到如图1所示的工作表。



图1 工作表界面与模拟数据

2．“准备”子程序设计
为了实现对姓名、电话、寝室进行多条件模糊查询，我们需要把所有数据当作字符串处理，以便使用通配符指定查询条件。
虽然可以设置单元格区域的格式为“数字作为文本处理”，但其中的数据从本质上说仍然是数字，无法进行字符串操作。
因此，我们在当前工程中插入一个模块，在模块中编写一个子程序“准备”，用来将数据区中所有电话号、寝室号转换为字符串型数据。
子程序“准备”代码如下：
Sub 准备()
For Each c In Range("C3:D" & Range("C3").End(xlDown).Row)
c.Value = CStr(c.Value)
Next
End Sub
这个子程序建立后，指定给工作表上的图片来执行。
该程序用Range("C3").End(xlDown).Row)求出C列有效数据的最大行号，确定C、D列从第3行到最后一行的区域，将区域中每个单元格的值转换为字符串类型。
3．“查询”子程序设计
为了按指定的条件对数据区中的数据进行筛选，达到查询目的，我们编写一个子程序“查询”，代码如下：



4．运行和测试
打开工作簿，在Sheet1工作表的数据区中，可以直接对数据进行输入、修改、删除等操作。
单击数据区表头右边的图片，可以将电话号、寝室号转换为字符串型数据，以便进行查询。
在条件区输入必要的条件，再单击其右边的图片，将会把数据区中满足条件的数据筛选出来。例如，在条件区“寝室”单元格输入“12”，单击图片后，得到的查询结果如图2所示。



图2 寝室号包含“12”的查询结果

在条件区“姓名”单元格输入“王”，“电话”单元格输入“138”，单击图片后，得到的查询结果如图3所示。



图3 姓名包含“王”并且电话号包含“138”的查询结果 vba13.rar (116.5 KB, 下载次数: 15)

2013-12-3 22:28 上传

点击文件名下载附件