Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1
  • 2

TEMA: Macros Timer

Macros Timer prieš 3 m. 1 mėn. #7

  • DariusT
  • DariusT avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 12
  • Gauta padėka 1
  • Reputacija: 0
Įmanoma, tik reikia nuimti visas Active funkcijas. Kai atsidarai naują wb, kodas vykdosi toliau, nes jis yra modulyje ir kas kartą aktyvuoji naujai atidarytą sheetą.

Supaprastintas variantas:

Sub startTimer()
On Error Resume Next

Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count"

End Sub

Sub Increment_count()
Sheet1.Range("I1").Value = Sheet1.Range("I1").Value + 1
startTimer
End Sub

Sub stopTimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "Increment_count", Schedule:=False

End Sub
Paskutinis taisymas: prieš 3 m. 1 mėn. nuo DariusT.
Administratorius uždraudė viešą pranešimų rašymą.
  • Puslapis:
  • 1
  • 2
Moderatoriai: bankeris
Puslapio sukūrimo laikas: 0.255 sekundžių