ªð¦^¦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 : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD