Új hozzászólás Aktív témák

• #21221 Delila_1 veterán Metathrone #21220

  Új Válasz 2014-04-09 19:27:47 #21221

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz Metathrone #21220 üzenetére

  Nem én írtam, és már nem emlékszem, honnan spájzoltam be. A füzet megnyitásakor az aktuális lap A1 cellájába írja az időt, és másodpercenként módosítja.

  A ThisWorkbook-hoz rendeld:

  Private Sub Workbook_Open()
  Recalc
  End Sub

  Modulba:

  Dim SchedRecalc As Date
  
  Sub Recalc()
  Range("A1").Value = Format(Time, "hh:mm:ss")
  Call SetTime
  End Sub
  
  Sub SetTime()
  SchedRecalc = Now + TimeValue("00:00:01")
  Application.OnTime SchedRecalc, "Recalc"
  End Sub
  
  Sub Disable()
  On Error Resume Next
  Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False
  End Sub

Új hozzászólás Aktív témák