5,139
社区成员
发帖
与我相关
我的任务
分享请教一个问题
我的一张excel表中有很多的人员信息（约1000条）
格式为：
姓名 年龄 性别 部门 职务 毕业院校
现在拟用VBA开发个小程序 输入人员姓名后，回车，即可查询到该人员的所有信息。有什么好的办法
不准备使用for 遍历 所有的人员姓名
有什么好的办法吗？
VBA新手 大家不吝赐教
格式为：
姓名 年龄 性别 部门 职务 毕业院校
现在拟用VBA开发个小程序 输入人员姓名后，回车，即可查询到该人员的所有信息。有什么好的办法
不准备使用for 遍历 所有的人员姓名
有什么好的办法吗？
VBA新手 大家不吝赐教
...全文
请发表友善的回复…
发表回复
ChinaOBS 2006-06-15
- 打赏
- 举报
用match函数可以搞定。
Sub FindStr()
Dim i As Integer
i = Application.WorksheetFunction.Match("obs", Range("A:A"), 0)
'i---为目标行，也就是姓名“obs”所在的行
MsgBox Cells(i, 2) '提取该行相应列的值即可
MsgBox Cells(i, 3) '提取该行相应列的值即可
End Sub
Sub FindStr()
Dim i As Integer
i = Application.WorksheetFunction.Match("obs", Range("A:A"), 0)
'i---为目标行，也就是姓名“obs”所在的行
MsgBox Cells(i, 2) '提取该行相应列的值即可
MsgBox Cells(i, 3) '提取该行相应列的值即可
End Sub
