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

½Ð°Ý2010¿é¤J¤é´Á

calendar 11.0
¬O2003¥Îªº¡A2010«ç»ò¨Óªº³o­ÓªF¦è¡H
¦b³]­p¼Ò¦¡¡AÂùÀ»¤ë¾ä±±¥ó
·|¥X¨Ó¦p¤U¡G
Private Sub Calendar1_Click()

End Sub
§ï¦¨¦p¤U¡G
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
Calendar1.Visible = True
End If
End Sub

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD