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

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

¦^´_ 9# GBKEE


    ¦³¸Õ¹L°j°éªº¼gªk  ¥i¬O­ÈÁÙ¬OÅã¥Ü¤£¥X¨Ó  ¤£ª¾¹D°ÝÃDÂI¦b­þ......
  1. Private Sub Year01_Change()
  2. Set x = Sheets("Base")
  3. For I = 4 To 20
  4.      If x.Cells(I, 20) <> "" Then
  5.      Year01.AddItem x.Cells(I, 20)
  6.      Next I
  7.      End If
  8. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-26 07:15 ½s¿è

¦^´_ 11# ¤pµØ

  1. Private Sub Year01_Change()
  2.     Set x = Sheets("Base")
  3.     For I = 4 To 20
  4.         If x.Cells(I, 20) <> "" Then
  5.             Year01.AddItem x.Cells(I, 20)
  6.         End If     '***§A¹ï½Õ¤F**
  7.      Next I        '***§A¹ï½Õ¤F**
  8. End Sub
½Æ»s¥N½X
  ªþÀɪí³æµ{¦¡½X¦p­n¥i¥H¨Ï¥Î   x.[t4].End(xlDown)
¤£¥[ x.  [t4]¬OActiveSheet(¨Ï¥Î¤¤)¤u§@ªíªºÀx¦s®æ,µLªkµ²¦X"Base"ªºÀx¦s®æ»PActiveSheetªºÀx¦s®æ
¦p "Base"¬OActiveSheet®É ´N¥i¥H¤£¥[ x.  
Private Sub Year01_Change()
Set x = Sheets("Base")
ComboBox1.List = x.Range("t4", x.[t4].End(xlDown)).Value
'** ComboBox1 *** ¬O§_­n§ï¦¨ Year01
End Sub

1#»¡ ­n¦p¦óÅýComboBox¤]¦Û°Êªº¼W¥[
¬O§Æ±æÂI¿ïYear01¥i¥H¸ü¤J©Ò¦³ªº¦~«×¸ê®Æ¨Ñ¿ï¾Ü,¥i¦p¤U
Enter¡BExit ¨Æ¥ó
Enter ¥D­nµo¥Í¦b¤@­Ó±±¨î¶µ¡A±q¦P¤@ªí³æ¤Wªº¥t¤@­Ó±±¨î¶µ¨ú±o¾nÂI¤§«e¡FExit ·|¦b¤@­Ó±±¨î¶µ¥¢¥h¾nÂI®Éµo¥Í¡C
  1. Private Sub Year01_Enter()
  2.     Set x = Sheets("Base")
  3.     Year01.List = x.Range("t4", x.[t4].End(xlDown)).Value
  4. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


ÁÂÁÂ¥ý¶i!!   
   
§âµ{¦¡½X¼g¦bEnter¨Æ¥ó¡A­È´N¥i¥HÅã¥Ü¥X¨Ó¤F

¥t¥~·Q½Ð°Ýª©¥D
   
Year01.List = x.Range("t4", x.[t4].End(xlDown)).Value    ³o¥yµ{¦¡½X¥Nªí¬Æ»ò·N«ä??
   
¦]¬°§Ú¦³°Ñ¦Ò§O¤Hªº¼gªk   ¥L¬O¥Î°j°éªº¼gªk¥[¤WAdditem

TOP

¦^´_ 13# ¤pµØ
±±¨î¶µªº²M³æ=Àx¦s®æ(½d³ò)ªº­È©Î¬O°}¦C
  ¦pYear01.List =Range(t4:t20).Value   
  ¦pYear01.List =array("a","b","c","d","e")
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD