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

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

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

§Ú¬OVBAªì¾ÇªÌ½Ð°Ý¦U¦ì«e½ú¤@¤U§Ú·Q±NVLOOKUP¼g¨ìVBA¥i¥H°µ¨ì¶Ü?
§Ú¥ý¦bSHEET 2«Ø¥ßB1:C5ªºVLOOKUP Table array
µM«áVLOOKUPªº Lookup value¬O Sheet 1ªºA1
³o¼Ë¥i¥H¼g¤JVBA¶Ü?¦pA1~A*****(AÄ檺¨C¤@®æ)³£±a¤Jªº¸Ü¸Ó¦p¦ó¼gVBA½X?

¦^´_ 1# james1912


    ªþ¤WªþÀÉ»¡©úÂà´«»Ý¨D

VLOOKUPÂà¼gVBA.zip (9.33 KB)

VLOOKUPÂà¼g¤JVBA»¡©ú

TOP

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

¦^´_ 3# rouber590324


    ·PÁÂrouberªºÀ°¦£¾Ç¨ì¤F³o¤@­Óµ{¦¡
¨º¦pªG­nÅý¥¦«ùÄò¹ïÀ³©¹¤U±a­n¦p¦ó­×§ïµ{¦¡
¦pA1¿é¤JB1±a¥X¸ê®Æ
A2¿é¤JB2±a¥X¸ê®Æ.......¥H¦¹Ãþ±À

TOP

¦^´_ 4# james1912


    ¸Õ¸Õ¬Ý
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. With Target
  3. If .Row >= 1 And .Column = 1 Then
  4.   .Offset(0, 1) = Application.VLookup(.Value, Sheets("¤u§@ªí2").[B1:C5], 2, False)
  5. End If
  6. End With
  7. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# owen06


    ¤ô³á~~
·PÁÂowenªº¸Ñµª

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD