½Ð°Ý§Ú·Q§Q¥Îvba°µ¬d¸ß
¦ý¬°¦óµLªk¬d¸ß¨ìY:\¼Ú´ð-®w¦s\¶i¥X³f\«È¤H\34CO«È¤H.xls("²Îp")¤ºªºÈ©O?
¬Oþ¤@Ó³¡¥÷¼g¿ù¤F.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row >= 1 And .Column = 2 Then
.Offset(0, 3) = Application.VLookup(.Value, "Y:\¼Ú´ð-®w¦s\¶i¥X³f\«È¤H\34CO«È¤H.xls("²Îp")".[C2:D500], 2, False)
End If
End With
End Sub |