返回目录：excel表格制作
在这里，我提供一点知思路。
用VB里面的ADODC控件，在控件上面设置相关的道选项，其中选择数据源的时候选到你的那张表格去就行了。
VB窗体的设计上专，我推荐使用DATAGRID控件。其他的属只能说你自己搞定了。
先将你要的年龄段根据当前日期转换成“出生日期”时间段，然后用
WHERE 出生日期 BETWEEN......AND......
就可以了。注意时间格式要用两个“#“ 括起来。
看了你的代码 只是简单的取单元格啊，版本影响不会太大。
1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。
2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。
3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。
4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。
5.现在输入代码：
Sub 查找()
Dim jieguo As String, p As String, q As String
Dim c As Range
jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)
If jieguo = "False" Or jieguo = "" Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With ActiveSheet.Cells
Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)
If Not c Is Nothing Then
p = c.Address
Do
c.Interior.ColorIndex = 4
q = q & c.Address & vbCrLf
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> p
End If
End With
MsgBox "查找数据在以下单元格中：" & vbCrLf & vbCrLf _
& q, vbInformation + vbOKOnly, "查找结果"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。
7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“7a686964616fe58685e5aeb9330男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。