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

[µo°Ý] ¥i¥H±NVLOOKUP¼g¨ìVBA¶Ü?

DEAR SIR
  ©ó SHEET1 ¥[¤J¦p¤U§Y¥i¹F¦¨ A1¿ï¨ú  B1 ¦Û°Ê¨q¥Xµ²ªG  

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheet1.Select
A1 = Sheet1.Range("A1")
   mymax = Evaluate("VLOOKUP(A1,¤u§@ªí2!B1:C5,2)")
   Sheet1.Range("B1") = mymax
End Sub
ù

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD