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

¦bA1Àx¦s®æ¥´¤W¥Ø«e®É¶¡¡A¥¨¶°«ç»ò¼g??

¦bA1Àx¦s®æ¥´¤W¥Ø«e®É¶¡¡A¥¨¶°«ç»ò¼g??

¦bA1Àx¦s®æ¥´¤W¥Ø«e®É¶¡¡A¥¨¶°«ç»ò¼g??

¦^´_ 1# t8899

'¥u­n±NB1ªº¼Æ­È¿é¤J¤j©ó0ªº¸Ü §Y¥i§Y®É§ó·s

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 1
        If Range("b1").Value > 0 Then
            Range("A1") = Date
            Range("A2") = Time
        
        End If
Next i
End Sub

TOP

·Q¦b  Range("d65536").End(xlUp).Offset(1).Select
³oÀx¦s®æ¥´¤W¥Ø«e®É¶¡­n¦p¦ó¼g??

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-6-29 16:51 ½s¿è

¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

TOP

¦^´_ 4# vpower


   ³o­Ó¤£¥Î°õ¦æ¥¨¶°...
¥u­n±N¸Ó«ü¥OÀx¦s®æªº­È ¿é¤J¤j©ó0 ªº¼Æ­È§Y¥i..
¬O±Ä¨ú¬¡­¶Ã¯Åܧó®É´N·|¦Û°Ê°õ¦æªº¤èªk

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-6-29 16:51 ½s¿è

¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

TOP

¦^´_ 6# vpower

0.0 ¤£µM
¦b thisworkbook ³oÃä ¥´ ¥H¤Uµ{¦¡½X


Private Sub Workbook_Open()

     
     Range("A1") = "=Date"
     
     Range("A2") = "=Time"

End Sub


PS ¦ý¬O³o¬qµ{¦¡½X ·|³y¦¨ µL­­°j°é~~~
¦pªG­n°±¤î®É­Ô ½Ð«öESC¤¤Â_

TOP

½Ð°Ý¤@¤U¡A®É¶¡«üªº¬O¤£§t¤é´Á¡A¯Â¤p®É¤Î¤ÀÄÁ¶Ü¡H
¤p§Ì¬Oexcelµ{¦¡ªì¾ÇªÌ¡A½Ð¦h¦h«ü±Ð

TOP

½Ð°Ý¤@¤U¡A®É¶¡«üªº¬O¤£§t¤é´Á¡A¯Â¤p®É¤Î¤ÀÄÁ¶Ü¡H
chiahuo µoªí©ó 2011-6-13 14:19



    ¤£À´·N«ä...
§Úµoªºµ{¦¡½X¬O±N¨âªÌ¤À¶}
time = ®É¶¡ (¦p ¤U¤È2ÂI28¤À59¬íªº¸Ü ´N·|Åã¥Ü 02:28:59 pm Ãþ¦ü³o¼Ë)
date = ¤é´Á

TOP

¥»©«³Ì«á¥Ñ vpower ©ó 2011-6-29 16:52 ½s¿è

¼È¥ý¤£¸Ñ¨M¤F,½Ð²¾°£,ÁÂ

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD