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

[µo°Ý] VBA¤U©Ô¦¡¿ï³æ(¤w¸Ñ¨M)

[µo°Ý] VBA¤U©Ô¦¡¿ï³æ(¤w¸Ñ¨M)

¥»©«³Ì«á¥Ñ arcticfox ©ó 2011-5-19 17:27 ½s¿è

¦U¦ì¤j¤j¤È¦w@@"
³o¦¸¤S¦³¤@­Ó¤p°ÝÃD

¦p¤U¹Ï, §Ú³]­p¤F¤@­Ó«È¤áºÞ²zªí, ¤£¹L§Ú§Æ±æ¤§«á©Ò¦³¹ï¸Ü®Øªº¤U©Ô¦¡¿ï³æ"Company"¥i¥H¤Þ¥Î¸Óªí®æªº«È¤áÄæ¦ì


·N«ä´N¬O»¡, ¥¼¨Ó·s¼Wªº«È¤á¸ê®Æ, ¨ä¤¤«È¤áªº¦W¦r¥i¥H³Q¤Þ¥Î¨ì¤U©Ô¦¡¿ï³æ¸Ì­±, ¦p¤U¹Ï

¦]¬°§Ú¥u·|¥Î¼g

Private Sub UserForm_Initialize()

Pro_Statu.Combo_Cus.List = Array("xxxx", "xxxx") ¤§Ãþªº

End Sub

¤£¾å±o¬O§_¦³¤°»ò¤èªk¥i¸Ñ¨M¦¹°ÝÃD? ¦A³Â·Ð¦U¦ì¤j¤j«ü¾É, ÁÂÁÂ^^

¦^´_ 1# arcticfox
§A¥i¥H¦b SelectionChange ¸Ì¥[¤W§PÂ_¦¡,
¥u­n A Ä椺®e¦³²§°Ê´N§ó·s¸Ó¤U©Ô¦¡¿ï³æªº¤º®e.

¥ý¥Î Range(Cells(1, 1), Cells([A65535].End(xlUp).Row, 1)) ¨ú±o­n¥áµ¹¿ï³æªº¦WºÙ½d³ò,
¦A±N¨ä½á¤©µ¹¸Ó¿ï³æ§Y¥i.

TOP

¦n, ÁÂÁ¤j¤j
§Ú¥ý¸Õ¸Õ¬Ý^^

TOP

±NAÄæ¸ê®Æ©w¸q°ÊºA½d³òªº¦WºÙ
ComboBoxªºRowSourceÄݩʳ]¬°¸Ó¦WºÙ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

3Q¨â¦ì¤j¤jªº«ü¾É, ¤£¹L³£¨S¥Î¥X¨ÓT_T
ª©¥D·N«ä¬O»¡¹³¤U­±¤@¼Ë, ¼gªk¶Ü


¤£¹L¥L¤£Åý§Ú³]©wÄÝ©Ê, µL®ÄªºÄݩʪ½
§Úª½±µ¦bRowSource¥´ Cus_List


·Q½Ð°Ý¬O­þ­ÓÀô¸`·d¿ù©O??

TOP

¨Ò¦p¡G
Private Sub UserForm_Initialize()
Dim i%
i = Range("A65536").End(xlUp).Row
Me.ComboBox1.List = Sheet1.Range("A1:A" & i).Value
End Sub

TOP

«z«¨~~«ç»ò©M§Ú·Qªº§¹¥þ¤£¤@¼Ë=.=
§Ú¥ý¸Õ¸Õ¬Ý
ªGµM¥Î·Qªº³£¤ñ¹ê»Ú¤U¥h§ËÁÙ²³æ
¹q¸£¤Ó²Â  ÁÙ¬O§Ú¤Ó²ÂXD

3Q¦U¦ì¤j¤j

TOP

¥»©«³Ì«á¥Ñ arcticfox ©ó 2011-5-17 14:34 ½s¿è

¦^´_ 6# chin15


   ¤@­Ó¤p°ÝÃD
§Ú±N¤j¤jªºµ{¦¡½X§ï¼g¦p¤U:


Private Sub UserForm_Initialize()

Dim i%

i = Range("A65536").End(xlUp).Row
Pro_Statu.Combo_Cus.List = Worksheets("«È¤á¸ê®ÆºÞ²z").Range("A1:A" & i).Value

End Sub
¤£¹LÁ`¬O·|¥X²{, °õ¦æ¶¥¬q¿ù»~381 - µLªk³]©wListÄÝ©Ê. ÄÝ©Ê°}¦C¤Þ¯Á¤£¥¿½T

©Ò¥H§Ú­«·s§â¾ã¬qµ{¦¡½Æ»s¶i¥h
¨Ã¥u§ï¼g¤Fcombobox1¨º­Ó³¡¤À

«o±o¨ì : °õ¦æ¶¥¬q¿ù»~424 - ¦¹³B»Ý­nª«¥ó

TOP

¦^´_ 5# arcticfox


    option.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ arcticfox ©ó 2011-5-17 15:11 ½s¿è

¦^´_ 9# Hsieh


»Å!!  3Q ª©¤j :'(

¤£·Q¦A¦h¼W¥[ª©­±
¦b¤@¦¸3Q¦U¦ì¤j¤j
§Ú²×©ó·d©w­ùXD
µ¥ºN¼ô¦A¨ÓºCºC¸Õ¸Õ¬Ý¦Û¤v¥Î¼gªº¤è¦¡
:lol

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD