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

VBA¨Ï¥ÎVLOOKUP¥\¯à

§Ú¸òµo¤åªº¤j¤j¦³¤@¼Ëªº°ÝÃD~~~
¤U­±¬O§Ú¼gªº¨ç¼Æ~~~~
¥i¬O«öÁä°õ¦æ«á¡A´N¥X²{"µLªk¨ú±oÃþ§OWorksheetFunction ªºVLookup ÄÝ©Ê"
½Ð°Ý¬O­þ¸Ì¥X¤F°ÝÃD~~~~
½Ð¤j¤j«ü±Ð

Private Sub CommandButton5_Click()

myForm.Label13.Caption = Application.WorksheetFunction.VLookup(myForm.ComboBox1.Text, ¤u§@ªí1.Range("A:E"), 2, False)

End Sub

TOP

ª½±µ¥ÎVLOOKUP
Application.WorksheetFunction.VLookup("X", Range("A1:B3"), 2, False)
¦pªí¦bA1:B3
ÄæA ÄæB
Z    1
X    2
Y    3
¤W­±ªº·|¦^¶Ç2
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD