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

[µo°Ý] ComboBox ¼W¥[¿ï¶µ

[µo°Ý] ComboBox ¼W¥[¿ï¶µ

¤p§Ì·Q½Ð°Ý¦p¦ó¥Îµ{¦¡½X¼gComboBox­nÅã¥Üªº­È???
¦Ó§Ú­nÅã¥Üªº­È·|¥ý¿é¤J¦bExcelªí³æ¸Ì´£¨ÑComboBoxÅã¥Ü     ¨Ò¦p:A1:A10
¦A¨Ó´N¬O­nÅã¥Üªº­È·|¼W¥[     ¨Ò¦p:A1:A20
­n¦p¦óÅýComboBox¤]¦Û°Êªº¼W¥[???

¦^´_ 1# ¤pµØ
¼W¥[¿ï¶µªº®É¾÷¬°¦ó?
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# ¤pµØ
  1. ComboBox1.List = Range("A1", [A1].End(xlDown)).Value
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# Hsieh


    ¤º®e¥i¯à¬O­û¤u©m¦W©Î¬O½s¸¹µ¥µ¥........

    ·|¦]¬°²{¹êª¬ªp¿ï¶µªº¤º®e·|¦³©Ò¼W´î

TOP

¦^´_ 3# GBKEE


    µ{¦¡½X¿é¤J¶i¥h«áÁÙ¬OµLªkÅã¥Ü­È

   A1:A10ªº­È¨Ò¦p¬O 1¡B2¡B3.....10

   «áÄò·|¼W¥[¼Æ­È A1:A20   ¨Ò¦p¡G1¡B2¡B3......20

·Q½Ð°Ý¸Ó«ç»ò¼g ¤~¥i¥HÅýComboBoxÅã¥Üªº­È¤]·|¦Û°Ê¼W¥[

TOP

¦^´_  GBKEE
    µ{¦¡½X¿é¤J¶i¥h«áÁÙ¬OµLªkÅã¥Ü­È
   A1:A10ªº­È¨Ò¦p¬O 1¡B2¡B3.....10
   «áÄò ...
¤pµØ µoªí©ó 2013-5-23 21:42

¦]¬°§A­n¦b¨C¦¸¼W¥[¸ê®Æ®É³£­nÅܧóComboBox¿ï³æ¤ºªº¸ê®Æ,
©Ò¥H¸ÕµÛ±Nµ{¦¡©ñ¦b Change ¨Æ¥ó³B²zµ{§Ç¤º :
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   ComboBox1.List = Range("A1", [A1].End(xlDown)).Value
  3. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# ¤pµØ
¤u§@ªí¤Wªº±±¨î¶µ ComboBox ¨Æ¥ó ComboBox1_GotFocus()
  1. Private Sub ComboBox1_GotFocus()
  2.     ComboBox1.List = Range("A1", [A1].End(xlDown)).Value
  3. End Sub
½Æ»s¥N½X
ªí³æ¤Wªº±±¨î¶µ ComboBox ¨Æ¥ó ComboBox1_Enter()
  1. Private Sub ComboBox1_Enter()
  2.     ComboBox1.List = Range("A1", [A1].End(xlDown)).Value
  3. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE


    ¥Î¤FÁÙ¬O¤£·|Åã¥Ü­È.......
   
   §Ú§ä¤F¶WªO¤§«eªº©w¸q¦WºÙ¤èªk    ´N·|Åã¥Ü­È¤F

TOP

¦^´_ 8# ¤pµØ
½ÐªþÀɬݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE

OT DataBase1.rar (31.06 KB)

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD