- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2025-1-28

|
¤p§Ì¤£¤~¡A¥»¨Ó¸Õ4¼Ó¶W¯Åª©¥DªºÀɮ׸դ£¥X¨Ó¡C«á¨Óµo²{ì¨Ó
'Private Sub Worksheet_Activate() «á¨Óµo²{ì¨ÓWorksheetn¥[1
Åܦ¨Private Sub Worksheet1_Activate() ³o¼Ë¤~¶]±o°Ê
Private Sub Worksheet1_Activate()
With ComboBox1
For i = .ListCount - 1 To 0 Step -1
.RemoveItem i
Next
For Y = 1999 To 2100
.AddItem Y
Next
.Text = Year(Date)
End With
With ComboBox2
For i = .ListCount - 1 To 0 Step -1
.RemoveItem i
Next
For Y = 1 To 12
.AddItem Y
Next
.Text = Month(Date)
End With
End Sub |
|