- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-5-26 07:15 ½s¿è
¦^´_ 11# ¤pµØ
- Private Sub Year01_Change()
- Set x = Sheets("Base")
- For I = 4 To 20
- If x.Cells(I, 20) <> "" Then
- Year01.AddItem x.Cells(I, 20)
- End If '***§A¹ï½Õ¤F**
- Next I '***§A¹ï½Õ¤F**
- End Sub
½Æ»s¥N½X ªþÀɪí³æµ{¦¡½X¦pn¥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 ¥Dnµo¥Í¦b¤@Ó±±¨î¶µ¡A±q¦P¤@ªí³æ¤Wªº¥t¤@Ó±±¨î¶µ¨ú±o¾nÂI¤§«e¡FExit ·|¦b¤@Ó±±¨î¶µ¥¢¥h¾nÂI®Éµo¥Í¡C
- Private Sub Year01_Enter()
- Set x = Sheets("Base")
- Year01.List = x.Range("t4", x.[t4].End(xlDown)).Value
- End Sub
½Æ»s¥N½X |
|