作者greengarden (I Love Rain)
看板Visual_Basic
标题[VBA ] 搜寻对照资料的问题
时间Thu Mar 2 08:26:11 2006
我想要从资料名单中找出相符的名字再将这些名字连同期详细资料
（地址、电话、...等）print出
我自己写了以下程式
但是会出现"型态不符的错误"
请问可以帮我看一下是哪里出问题吗
请多多指教 谢谢 感激不尽
Sub find()
Dim myfindname
Dim myfound
getoffpeople = Array("杨会敏", "蓝乡齐", "陈贞一")
、我想要找的名字
For Each people In getoffpeople
myfindname = people
Set myname = Cells.find(what:=myfindname, after:=ActiveCell)
、找出符合的名字
myfound = i + myfindname + ActiveCell.Offset(1, 1) + ActiveCell.Offset(1, 2)
、将我想要有关此名字的资料指定到myfound
Print myfound
'印出相符名字的与其相关资料
i = i + 1
Next people
、继续进行下一笔资料比对
End Sub
--
小玉西瓜的名言
我心情哪不好
就想要抬杠
哪想妹抬杠
搭一个人呼我找到
就算伊衰
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 192.192.90.29
1F：推 sueadolph:我没有你的原始表格~~不过使用"F8"看了一下 03/03 03:37
2F：→ sueadolph:I+XXXXXX 这边~~i是int格式了~名字是字串 03/03 03:37
3F：→ sueadolph:+ 换成 & 应该就没问题了~~~ 03/03 03:38
4F：推 greengarden:谢谢你真是感激不尽 03/07 12:23