ªð¦^¦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

·PÁÂOVEN¤j¤j~~~
¨º¥i¥H¦A½Ð±Ð¤@­Ó°ÝÃD¶Ü¡H
¦³¿ìªkÅýExcel¸ÌSheet¤º¤U©Ô¦¡¿ï³æ~~~~~
ÀHµÛMyFormªºLabel1.Caption¨ÓÅܰʶܡH

TOP

¥»©«³Ì«á¥Ñ hray1234 ©ó 2015-1-28 10:37 ½s¿è


´N¬O­Y§ÚÂI¿ïMyForm¤WªºLabel
§Ú¸Ì­±²{¦bªº¨ç¼Æ¬O³o¼Ë
¤£ª¾¹D§Ú¤U©Ô¦¡¿ï³æ¬O§_¥i¥H¹ïÀ³¨ì§Ú¼ÐÅÒ¤W­±ªº¤º®e~~~~

Private Sub Label13_Click()
Sheets("Adhesion Recipe").Select
Unload Me
End Sub

TOP

Oven¤j~~~~~
¸Ô²Ó»¡©ú¦p¤U
Step1.
´N¬O±NLabel1ªº¤º®eµ¥©óComboBox1ªº¤º®e(¤w¸Ñ¨M)
Step2.
ÂI¿ïLabel1«á¡A·|¦Û°Ê¸õ¨ìsheet1
µM«ásheet1¸Ì­±ªº¤U©Ô¦¡¤è¶ô·|¹ïÀ³¨ìLabel1ªº¤º®e
¦Ó«ü©wÀx¦s®æªº¤º®e´N·|ÀHµÛ¤U©Ô¦¡ªº¤è¶ôªº¤º®e¦ÓÅÜ°Ê

³o´N¬O§Ú·Q­nªº§@ªk~~~
§Ú¸Õ¹LOven¤j¤W­±ªº¼gªk~~~~
¦ý¬OSheet1¤º§ä¤£¨ìComboboxªº¿ï¶µ~~~
­Y¯à§ä¨ì¤U©Ô¦¡¤è¶ôªº¨ç¼Æ~~~~
§Ú·QÀ³¸Ó°ÝÃD´N¥i¥H¸Ñ¨M¤F~~~
ÁÂÁÂ

TOP

Sheet1.ComboBox1.List = List
¤W­±ªºSheet1¸Ì­±¨S¦³Combobox1ªº¿ï¶µ~~~~~
©Ò¥H¥¨¶°´N¥X²{¤F"§ä¤£¨ì¤èªk¤Î¸ê®Æ¦¨­û"~~~
°»¿ù«á¡A´N¶]¨ì¤U­±ªº¦a¤è¤F
Sheet1.ComboBox1.List = List
Oven¤jÁÙ¦³¤°»ò¿ìªk©O?
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD