[已解决]求助代码：顺藤摸瓜查询目标数据

hwc2ycy

测试的工作交你了，辛苦下。
我还有点事。

HongMeig

hwc2ycy 发表于 2013-1-17 22:43

谢谢老师帮忙修改。经测试，还是会出错。

hwc2ycy

HongMeig 发表于 2013-1-17 23:00
谢谢老师帮忙修改。经测试，还是会出错。

你发个测试的附件上来吧。

HongMeig

hwc2ycy 发表于 2013-1-17 23:01
你发个测试的附件上来吧。

测试附件 新建文件夹.rar (29.02 KB, 下载次数: 17)

2013-1-17 23:16 上传

点击文件名下载附件

谢谢老师，附件用原来的测的。改的因通不过。

HongMeig

测出一结果不正确，后面附的才是正确的。

hwc2ycy

1. Function SearchInWorkbook(ByVal Filename$, ByVal iCol&, ByVal iRow&, ByVal iValue&) As Long
   
2.     Dim wbname$, Path$
   
3.     Dim wb As Workbook
   
4.     Dim rg As Range
   
5.     Path = ThisWorkbook.Path & Application.PathSeparator & "表格" & Application.PathSeparator
   
6.     wbname = Dir(Path & Filename & ".*")
   
7.     If Len(wbname) = 0 Then SearchInWorkbook = 0: Exit Function
   
8.     Set wb = GetObject(Path & wbname)
   
9.     If wb Is Nothing Then SearchInWorkbook = 0: Exit Function
   
10.     With wb.Worksheets("Sheet1")
    
11.         Set rg = .Range(.Cells(1, iCol), .Cells(iRow, iCol)).Find(what:=iValue, lookat:=xlWhole, SearchDirection:=xlPrevious)
    
12.     End With
    
13.     If rg Is Nothing Then
    
14.     SearchInWorkbook = 0
    
15.     Else
    
16.     SearchInWorkbook = rg.Row
    
17.     End If
    
18.     wb.Close False
    
19. End Function

复制代码

hwc2ycy

我找了第2列的2.

HongMeig

hwc2ycy 发表于 2013-1-17 23:22
我找了第2列的2.

你用我刚才上传的，只一个表的试试。

HongMeig

hwc2ycy 发表于 2013-1-17 23:19

这下正确了。谢谢老师帮忙。再谢！