Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row >= 1 And .Column = 2 Then
.Offset(0, 3) = Application.VLookup(.Value, "Y:\歐湘-庫存\進出貨\客人\34CO客人.xls("統計")".[C2:D500], 2, False)
End If
End With
End Sub作者: luhpro 時間: 2015-1-1 08:28