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

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

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

§Ú¦b2010§ä¤£¨ì¤ë¾ä±±¨î¶µ

¨Ò¦pªG¾ã­ÓBC¨âÄd³£¬O»Ý­n¿é¤J¤é´Á­È(BÄæ:¶}©l¤é´Á / CÄæ:µ²§ô¤é´Á)
¦ý§Ú§Æ±æ¥ÎÂI¿ïÀx¦s®æ--¥X²{¤p¤ë¾ä--ÂI¿ï¤é´Á  «á¦Û°Ê±a¤Jªº¤è¦¡

½Ð°Ý­n«ç»ò§@©O?

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-5-19 23:49 ½s¿è

§AÀ³¸Ó¨S¦w¸ËACCESS©Ò¥H§ä¤£¨ì¤ë¾ä±±¨î¶µ12.0
¦w¸Ë¤ë¾ä±±¨î¶µ
´«¦¨¤ë¾ä±±¨î¶µ12.0¦w¸Ë§Y¥i
¦w¸Ë¤ë¾ä±±¨î¶µ.rar (77.6 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¤Ó¹àµLªk¤U¸ü  ¯à§_mail    [email protected]

¥t¥~  §Ú²{¦b§ä¨ì¤Fcalendar 11.0
µM«áµe­±¤W´N¥X²{¤@­Ó¤ë¾ä  §ÚÂ÷¶}³]­p¼Ò¦¡«á  ÁÙ¬OµLªkÂI¿ïÀx¦s®æ«áÅã¥Ü­è­è¨º­Ó¤ë¾ä¨Ó¿ï¤é´Á
½Ð°Ý§Ú¸Ó«ç»ò§@©O

TOP

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

¥»©«³Ì«á¥Ñ applepal ©ó 2011-5-23 17:00 ½s¿è

ÁÂÁ¡I¦¨¥\¤F¡I
:D

TOP

¤£¹L§Ú2010³]­p¦¨¥\¥H«á  2003´N¬Ý¤£¨ì¤F¬O¶Ü¡H ¦³¿ìªk¸Ñ¨M¹À¡H

TOP

¦^´_ 6# applepal
¦w¸Ë2003ªº±±¨î¶µ¡A¦b2010¤¤½s¿è
½s¿è§¹¦s¦¨97-2003¬¡­¶Ã¯´N¯à¦b2003ª©¥»¤¤¨Ï¥Î
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

ÁÙ¦³¤@­Ó¤p°ÝÃD  ´N¬OÂI¿ï¥H«á¥X²{¤ë¾ä  OK
¦pªG§Ú¤S¤£·Q¿é¤J¤é´Á¤F  ¤ë¾ä´N¤£·|®ø¥¢  §ÚÂI¨ä¥LÀx¦s®æ¥LÁÙ¬O¦b¨ºÃä......

TOP

¦^´_ 8# applepal
oobird ª©¥Dªºµ{¦¡­×§ï¤@¤U
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False

End If
End Sub

TOP

«z¡ã¦n·PÁ¡I³o´N¬O§Ú­nªº  ÁÂÁÂGBKEE .Hsieh .oobird ¡I

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD