ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] §ì¨ú¸ê®Æ®w¹ïÀ³­È¤§¤è¦¡½Ð±Ð

[µo°Ý] §ì¨ú¸ê®Æ®w¹ïÀ³­È¤§¤è¦¡½Ð±Ð

DEAR ALL ¤j¤j
1.¤j®a¦n·Q½Ð°Ý¤j®a¥H¤U¸ê®ÆÂà¸m¸Ó¦p¦ó¥Îvba§¹¦¨
2.­ì©l¸ê®Æ¦p¤U
(sheet1)
²Ä¤@Äæ    ²Ä¤GÄæ
       A            
    A            
    B            
    B                           
    C
    .......           
(sheet2)
²Ä¤@Äæ    ²Ä¤GÄæ                  
    A       1              
    B       2
    C       3   
   .....
3.SHEET1 ¤§²Ä¤GÄæ­n§ì¨ú¥H SHEET1¤§²Ä¤@Äæ A1-A66536¬°KEY §ì¨ú¹ïÀ³ SHEET2¤§²Ä¤@Äæ A1-A66536¤§¬Û¦P¤º®e¤§SHEET2¤§²Ä¤GÄæ
      ¹ïÀ³­È¦Ü SHEET1¤§²Ä¤GÄæ.
    3.1  ¤w¨ç¼Æ¬°¨Ò. SHEET1¤§²Ä¤GÄæ B1=INDIRECT("Sheet2!B"&MATCH(A1,Sheet2!A:A,0))
4.½Ð°Ý¦p¦ó¨Ï¥Î  VAB¹F¦¨¦¹»Ý¨D  THANKS*10000
ù

¦^´_ 1# rouber590324


    ¥Î vlookup ´N¦n¤F

VBA ´N¥Î Worksheetfunction.vlookup

TOP

DEAR diolin  SIR
·PÁ«ü¾É.¤w§¹¦¨  THANKS*1000

Private Sub Worksheet_Change(ByVal Target As Range)

With Target

If .Row >= 1 And .Column = 9 Then

  .Offset(0, 12) = Application.VLookup(.Value, Sheets("³W®æÀÉ").[A1:E65536], 2, False)
  .Offset(0, 13) = Application.VLookup(.Value, Sheets("³W®æÀÉ").[A1:E65536], 3, False)
  .Offset(0, 14) = Application.VLookup(.Value, Sheets("³W®æÀÉ").[A1:E65536], 4, False)
  .Offset(0, 15) = Application.VLookup(.Value, Sheets("³W®æÀÉ").[A1:E65536], 5, False)

End If

End With

End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD