- ©«¤l
- 36
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 44
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-8
- ³Ì«áµn¿ý
- 2020-10-29
|
¦^´_ 9# GBKEE
¦³¸Õ¹L°j°éªº¼gªk ¥i¬OÈÁÙ¬OÅã¥Ü¤£¥X¨Ó ¤£ª¾¹D°ÝÃDÂI¦bþ......- 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)
- Next I
- End If
- End Sub
½Æ»s¥N½X |
|