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

[µo°Ý] =NOW() ¤£·|¦Û°Ê§ó·s·í¤U®É¶¡

[µo°Ý] =NOW() ¤£·|¦Û°Ê§ó·s·í¤U®É¶¡

½Ð°Ý¦U¦ì¤j¤j¡G
§Ú¤§«e¬O¥Îexcel2003¡A¥u¦³¦bÄæ¦ì¤¤¿é¤J¡u=NOW()¡v¡AÄæ¦ì´N·|¦Û°Ê±a¥X®É¶¡¤é´Á¡A¥B·|¤@ª½§ó·s¡C
¦ý²{¦b§ï¥Îexcel2010¡A¦bÄæ¦ì¤¤¿é¤J¡u=NOW()¡v«o¥u·|Åã¥Ü·í¤Uªº®É¶¡¤é´Á¡A³£­n¤â°ÊÂI¤@¤UÄæ¦ì¡AÄæ¦ìªº®É¶¡¤~·|§ó·s...
½Ð°Ý­n¦p¦ó¤~¯àÅý2010¦Û°Ê¤@ª½§ó·s·í¤U®É¶¡©O¡H

½Ð¦U¦ì¤j¤j«ü¾É¡IÁÂÁ¦U¦ì¤j¤j¡I¡I

DEAR SIR
  ©ó Private Sub Workbook_Open() ¥[µù¦p¤U

Private Sub Workbook_Open()
  Sheet1.Range("C4") = Now
  Application.OnTime Now + TimeValue("00:00:01"), "AA"
End Sub
ù

TOP

Private Sub Workbook_Open()
  AA
End Sub

Sub AA()
  Sheet1.Range("C4") = Now
  Application.OnTime Now + TimeValue("00:00:01"), "AA"
End Sub
ù

TOP

¦^´_ 3# rouber590324


   ·PÁ rouber590324 «ü¾É¡A²{¦b·|¤@ª½¸õ°Ê¤F^^~

   ¥u¬O´å¼Ð¤@ª½¸õ¨Ó¸õ¥h...½Ð°Ý³o¼Ë¥¿±`¶Ü@@?

´å¼Ð.jpg (157.36 KB)

´å¼Ð.jpg

TOP

¥¿±`
§â01¬í°õ¦æ¤@¦¸§ï30¬í°õ¦æ¤@¦¸.´N¤£·|¦p¦¹¨ë²´©Ô

Sub AA()
  Sheet1.Range("C4") = Now
  Application.OnTime Now + TimeValue("00:00:30"), "AA"
End Sub
ù

TOP

¦^´_ 5# rouber590324

    ¹ï£®~³o¼Ë´N¤£·|¤@ª½Âà¤F~¤£µM¬Ý±o§Ú²´³£ªáªá@@ «¢«¢
    ÁÂÁÂrouber590324¤j¤jªº«ü¾É^^~

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-5-11 11:36 ½s¿è

¤@¯ë¼Ò²Õ°Ï:
Public xTime

Sub AA()
Range("C4").Calculate
xTime = Now + TimeValue("00:00:01")
Application.OnTime xTime, "AA"
End Sub

Sub STOP_AA()
On Error Resume Next
Application.OnTime xTime, "AA", Schedule:=False
On Error GoTo 0
End Sub
'================================
¬¡­¶Ã¯¨Æ¥ó°Ï:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call STOP_AA
End Sub

Private Sub Workbook_Open()
With Sheet1.Range("C4")
     .Formula = "=NOW()"
     .NumberFormatLocal = "hh:mm:ss"
End With
Call AA
End Sub

®É¶¡§ïÅÜ, ¦ý¤£¼vÅT¦b¨ä¥¦Àx¦s®æ¾Þ§@«á, ¦ÓµLªk¨Ï¥Î[´_­ì/½Æ»s/¶K¤W]ªº¥\¯à,
¤£¹L, ­Y¤½¦¡¤Ó¦h, ¥i¯à·|Åý¾ã­ÓÀÉ®×¥d¦º~~
===================

TOP

¦^´_ 7# ­ã´£³¡ªL


   ·PÁ ­ã´£³¡ªL «ü¾É¡I¡I
   ²{¦b´å¼ÐÂà°é°é¡A³£ÁÙ¥i¥H½Æ»s¡B¶K¤W....µ¥µ¥¡C

   ·Q°Ý ­ã´£³¡ªL ¤j¤j¡ã
   ±z»¡ªº¡u¤@¯ë¼Ò²Õ°Ï¡v¡B¡u¬¡­¶Ã¯¨Æ¥ó°Ï¡v¬O«ü³o2°Ï¡A¹ï¶Ü@@?
   ¤@¯ë¹ïThisWorkbook ¬O«ç»òºÙ©I©O??
   ÁÂÁ±z¡I¡I

°Ï°ì°ÝÃD.jpg (198.43 KB)

°Ï°ì°ÝÃD.jpg

TOP

¦^´_ 8# cslu37

ThisWorkbook  ¬¡­¶Ã¯¨Æ¥ó°Ï
Module??? ¤@¯ë¼Ò²Õ°Ï
Sheet???  ¤u§@ªí¨Æ¥ó°Ï

TOP

¦^´_ 9# ­ã´£³¡ªL


    ·PÁ ­ã´£³¡ªL ¤j¤jªº»¡©ú¡I¡I
¡@­ì¨Ó¬O§Ú©ñ¿ù¤F...Ãø©Ç¤£°Ê>"<
¡@²{¦b²×©ó·d²M·¡¤F¡I¡I¤ÓÁÂÁ±z¤F¡I¡I

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD