请教多表查询日期

kangkumbong

请教 各位大神：
YAO&HUI 工作表的W列根据其他工作表对应PO ITEM的 DELIVERY ACTUALDATE列的日期 自动获取已出库日期
谢谢

kangkumbong

1楼 附件 VBA PASSWORD  : sfdisk

zglibk

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim rx&, Rng As Range
   
3.    
   
4.     Target.Value = UCase(Target.Value)
   
5.     ITEM_NO = Target.Value
   
6.     For Each SH In Worksheets
   
7.         If SH.Name <> "YAO&HUI" Then
   
8.             rx = SH.Cells(Rows.Count, 5).End(xlUp).Row
   
9.             Set Rng = SH.Range("E2:E" & rx).Find(ITEM_NO, LookAt:=1)
   
10.             With Worksheets("YAO&HUI")
    
11.                 Select Case SH.Name
    
12.                     Case "OB"
    
13.                         If Not Rng Is Nothing Then MsgBox Rng.Offset(0, 45).Value: Exit For
    
14.                     Case "ELK"
    
15.                         If Not Rng Is Nothing Then MsgBox Rng.Offset(0, 17).Value: Exit For
    
16.                     Case "YARGICI"
    
17.                         If Not Rng Is Nothing Then .Cells(Target.Row, 23) = Rng.Offset(0, 21).Value: Exit For
    
18.                 End Select
    
19.             End With
    
20.         End If
    
21.     Next
    
22. End Sub

复制代码

zglibk

YAO&HUI 录入 ITEM NO 时，查找并反回对应日期（未做容错处理），供参考！

kangkumbong

你好 老师 经测试 在不同 PO 相同ITEM的出库日期 返回的值始终都是按第一次出现的值返回
而不是 PO&ITEM 组合下的出库日期 请指教