[已解决]请教老师们两个查找的代码

dfzc

两个表3及表2中查找的代码,请教老师或高手们帮助,谢谢
查找.rar (12.32 KB, 下载次数: 11)

2012-10-29 08:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-29 17:53

已经解决了啊，代码你没有加进去吧。
你单击按钮看看结果。 查找.rar (20.4 KB, 下载次数: 17)

2012-10-29 17:52 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

用函数应该也能实现的吧。

hwc2ycy

函数解法：
R20

1. =OFFSET(Sheet2!$Q$37,$S$20,3)

复制代码

T20

1. =OFFSET(Sheet2!$Q$37,$S$20,1)

复制代码

T35

1. =OFFSET(Sheet2!$S$38,MATCH(OFFSET(Sheet2!$C$12,-1,MATCH($T$39,Sheet2!$C$12:$N$12,0)-1),Sheet2!$R$38:$R$49,0)-1,)

复制代码

hwc2ycy

如果需要V代码的话，呆会再帮你写一个。

dfzc

老师高手还是帮助用VBA解决吧

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim s1 As String, rg As Range, s2 As String
   
3.     On Error Resume Next
   
4.     s1 = [T39]
   
5.     If Not IsEmpty([s20]) Then
   
6.         With Worksheets("sheet2")
   
7.             [T20] = .Range("Q37").Offset([s20], 1)
   
8.             [R20] = .Range("Q37").Offset([s20], 3)
   
9.         End With
   
10.         'MsgBox Worksheets("sheet2").Range("Q37").Offset([s20], 1)
    
11.         'MsgBox Worksheets("sheet2").Range("Q37").Offset([s20], 3)
    
12.     End If
    
13.     If Not IsEmpty([T39]) Then
    
14.         With Worksheets("sheet2")
    
15.             Set rg = .Range("C12:N12").Find(what:=s1, lookat:=xlWhole)
    
16.             If Not rg Is Nothing Then
    
17.                 'MsgBox rg.Offset(-1)
    
18.                 s1 = rg.Offset(-1)
    
19.                 Set rg = .Range("R38:R49").Find(what:=s1, lookat:=xlWhole)
    
20.                 If Not rg Is Nothing Then
    
21.                     [t35] = rg.Offset(, 1).Value
    
22.                     's1 = rg.Offset(, 1)
    
23.                     'MsgBox s1
    
24.                 End If
    
25.             End If
    
26.         End With
    
27.     End If
    
28. End Sub

复制代码

hwc2ycy

其实你可以把T39单元格也用数据有效性。

dfzc

老师们还有第二个问题没解决，等待中，谢谢了

hwc2ycy

已经解决了啊，代码你没有加进去吧。
你单击按钮看看结果。 查找.rar (20.4 KB, 下载次数: 17)

2012-10-29 17:52 上传

点击文件名下载附件

dfzc

测试过很好用，谢谢