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

¨Ï¥Î TODAY() ¨ú±o¨t²Î¤é´Á µM«á©T©w¤£ÅÜ «ç¼Ò°µ©O

§O¥Î¤½¦¡¤F¡Actrl+; ¤£¦n¶Ü¡H

TOP

­è­è¸Õ¤F¤@¤U¡ã¯uªº°¨¤W¥X²{¤µ¤Ñªº¤é´Á­C¡I¥u¬OÁÙ±oµ¥¨ì©ú¤Ñ¦A¬Ý¬Ý¨º¤@®æªº¤é´Á·|ºû«ù¢°¢¯¡þ¢°¢³©Î¦Û°ÊÅܦ¨ ...
onegirl0204 µoªí©ó 2010-10-14 09:37



    «Ü¦³½ì¡I
­Y«ö­@¤£¦í®É¥i§ïÅܤ@¤U¨t²Î¤é´Á¡A«¢«¢¡C

TOP

¬O¤ÏÂйBºâ¡C
³Ì¦nÁÙ¬O¥Îctrl+;
¬°¤°»ò¤@©w­n¿é¤J¤½¦¡¡H¥u¬°¼W¥[§xÃø«×¡H§ïÅܤÏÂйBºâ·|¼vÅT©Ò¦³ªº¬¡­¶Ã¯¡C

TOP

¤w¸g»\¨ì27¼Ó¤F¡AÁÙ¬O¨S§ËÀ´¼Ó¥D¯u¥¿­nªº¬O¤°»ò¡C
§A¬O©È¥Îctrl+;¿é¤Jªº¤é´Á·|³Q§ó§ï¡H¨º«OÅ@¸ÓÀx¦s®æ´N¦æ¤F¡A­Y§A¤£°µ«OÅ@¡A¤£ºÞ¥Î¤½¦¡¡A¥Îvba¡A¥Î¤é¾ä±±¥ó¿é¤J³£¤@¼Ë·|³Q§ó§ïªº¡C¦P®É­n¥Î±±¥ó§A¥²¶·¾Ç·|vba»y¨¥¥h±±ºÞ¡I

TOP

«OÅ@«á´N¨S¿ìªk ¿é¤J
§Ú¬O¥s§A¿é¤J¤é´Á«á¦A«OÅ@¡A¤S¤£¬O¥s§A¥ý«OÅ@¦A¿é¤J¤é´Á¡C
¥Îvba«Ü²³æ¡A¥u¦³´X­Ó¦r¡G[a1]=date §Y¥i¦ba1²£¥Í·í¤Ñ¤é´Á¡A¤£¹L§A¤£«OÅ@¸ÓÀx¦s®æÁÙ¬O¤£¯à¹w¨¾³Q­×§ï¡C

TOP

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column > 1 Then Exit Sub
    If Target <> "" Then Cells(Target.Row, 2) = Date
End Sub

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD