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

½Ð±ÐComboBox_Changeªº°ÝÃD

¥O¤H§x´bªºActiveX ControlBox

¥»©«³Ì«á¥Ñ yen956 ©ó 2017-2-28 13:26 ½s¿è

¥Ñ©ó¤p§Ì¥ý«e»s§@ªº Jenpu30 «ö¶s¹ê¦b¤Ó¦h¤F,
¦p¤U¹Ï

Jenpu40 ª©¤S·Q¼W¥[¤@¨Ç«ö¶s, ¦]¦¹·Q¥Î ¤U©Ô¦¡¿ï³æ,
§â«ö¶sÂkÃþ¨ì Active ComboBox ¤¤, ¦p¤U¹Ï

¨S·Q¨ìÓýµo¥Í·sªº°ÝÃD,¤£ª¾¦p¦ó¸Ñ¨M,
1. ¥t¦s·sÀÉ ®É
2. §ó§ï ¤u§@ªí¦W ®É
3. ½Æ»s¤u§@ªí ®É
4. (À³¸ÓÁÙ¦³...)
§¡·|²ö©ú©_§®ªº±qComboBox½Æ»s¤@¨Ç¤å¦r¨ìActiveCell¤¤
ÁöµM¦³ ¦Û»s«ö¶s ¸Ñ¨M³¡°ÝÃD, ¦ýÁ`¤£¬O¦n¿ìªk,
¤£ª¾¦³¤°»ò¦n¤èªk?
¦p¤U¹Ï
20170227.gif

TOP

¸ÉÀÉ, ¦pªG¯Â´ú¸ÕActive ComboBox ªº VBA, ¥i¤£¥²¦w¸Ë¦r«¬,ÁÂÁÂ!!
Jenpu40.zip (167.99 KB)

TOP

1111.zip (114.88 KB)

¥i¯à¦³§ó²³æªº¤è¦¡

TOP

1111  Timer ªº¸ó¤é°ÝÃD , ¥i¥H¸Ñ¨M
¦ý¥L¨ÌµM¤£¬O¤@­Ó100%¥i¾a¤è¦¡

§A¥i¥H¦Ò¼{¤£­n§â combobox ªº°_©l¤Æ°Ê§@¸j©w¦b ListFillRange
§ï¦¨§A¦Û¤v¥Îµ{¦¡¥h°µ°_©l¤Æ°Ê§@

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2017-2-28 17:27 ½s¿è

¦^´_ 4# jackyq
§A¬O»¡:
Private Sub ComboBox1_Change()
comboBox1.Items.Add(new Item(..., 1));...
...
End Sub
¶Ü? ¦ý ¤@¥¹±Ò°ÊComboBox1_Change()
´N·|±qÀY¨ì§À°õ¦æ¤@¹M,¤£¬O¶Ü?
¦³¤@­Ó¤èªk, ´N¬O­n¨D¨Ï¥ÎªÌ
Á׶} ComboBox ªº°õ°õ°Ï,
§Y¥ý¦b¦Ç¦â°ÏÂI¤@¤U, ¦A«ö [ÀÉ®×]-->[¥t¦s·sÀÉ],
³o¤]¬O§Úªº¦Û»s«ö¶s [¥t¦s·sÀÉ] ªº¤èªk,
¦ý­n¨D¨Ï¥ÎªÌ¦p¦¹¾Þ¤£¬O«Ü©_©Çªº¤èªk¶Ü?!

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2017-2-28 18:15 ½s¿è

¦^´_ 3# jackyq
«D±`·PÁ jackyq ¤j¤jªº«ü¾É, ¸g¹L´ú¸Õ, ¤@¤Á¥¿±`, ¤£¦A¦³©_©Çªº¨Æ±¡µo¥Í¤F, ÁÂÁÂ!!
¥u¬Oµ{¦¡½X¦³ÂIÃø¸Ñ, ¥ý·Ó§Û¦AºCºC¬ã¨s°Õ!!
(¸É½s)²{¦b¤~µo²{ 3F, 4F ³£¬O¤j¤jªº³Ç§@, ¥¢Â§.
3Fªº¤èªk¥i¸Ñ¨M¥Ø«eªº§x´b, ¦³·s°ÝÃD¦A»¡, 4Fªº¤èªkÀ³¸Ó¦æ¤£³q.
¦A¦¸ÁÂÁ±z!!

TOP

¦^´_ 4# jackyq
­ì¨Ó¬O§Ú·Q¿ù¤F, ÁÙ¬O¤j¤j»¡ªº
""§A¥i¥H¦Ò¼{¤£­n§â combobox ªº°_©l¤Æ°Ê§@¸j©w¦b ListFillRange
§ï¦¨§A¦Û¤v¥Îµ{¦¡¥h°µ°_©l¤Æ°Ê§@"" ¤~¹ï,
¸Õ¹L¤F, ¥Î Workbook_Open
¥h°µ°_©l¤Æ°Ê§@¤£­n»P ListFillRange ¸j©w, «h
¥t¦s·sÀÉ ©Î §ó§ï ¤u§@ªí¦W  ©Î ½Æ»s¤u§@ªí ®É
§¡¤£·|IJ°Ê ComboBox_Change¡C
ÁÂÁ¤j¤jªº«ü±Ð!!

TOP

½Ð±ÐComboBox_Changeªº°ÝÃD

¥»©«³Ì«á¥Ñ yen956 ©ó 2017-3-8 19:20 ½s¿è

½Ð±Ð½Ñ¦ì¤j¤j:
ComboBox_Change¶·¦b¤º®e§ïÅܮɤ~IJ°ÊVBA,
§Æ±æ¯à¦³¤º®eÅܤ£Åܧ¡¯àIJ°ÊVBAªº¤èªk,
¦p¤U¹Ï©Ò¥Ü

¦]¬°¤º®e§ïÅܮɤ~IJ°ÊVBA, ¹ï¨Ï¥ÎªÌ¨Ó»¡, ¨Ã¤£¤è«K,
¦p¤U¹Ï©Ò¥Ü
click.gif
ªþÀɦb
http://forum.twbts.com/thread-19341-1-1.htmlªº 2f
ÁÂÁ½Ѧì¤j¤j

QX9770.zip (10.27 KB)

TOP

¦^´_ 9#
ÁÂÁ¤j¤j¦A¤T«ü¾É, ªGµM¥i¥Î¦ý¥u¯à·Ó§Û, ÁÂÁÂ!!

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD