Comments on: Excel – VBA Timer Example v1.00

By: Adi

Adi — Wed, 25 Jan 2012 07:12:56 +0000

Super,

einfach und wirksam.
Kleiner Fehler in VB interval verweist auf D8,
da ist aber nichts

By: muro

muro — Thu, 28 Jul 2011 22:14:54 +0000

thx!

By: Chandra

Chandra — Wed, 06 Apr 2011 20:33:19 +0000

How we can activate Timer in Excel so while we lock the system the timer got activated.
9212034544

By: Sean

Sean — Thu, 31 Mar 2011 14:04:58 +0000

Very helpful to me. Thanks!!

By: Graham

Graham — Mon, 19 Jul 2010 23:19:47 +0000

Great code – many thanks

By: Chris (Atlanta GA)

Chris (Atlanta GA) — Mon, 01 Mar 2010 00:30:29 +0000

Very cool procedures. You need to edit this line of code to make it work:
CHANG Cell Reference in “interval = CDbl(Range(“D8″).Value)” to
interval = CDbl(Range(“D7″).Value)

Very elegant and nice. Solved my problem

By: Tony H

Tony H — Wed, 10 Feb 2010 03:45:09 +0000

Thanks for posting this code. I was looking for an example of a on_timer function for Excel that matches the functionality of MFC. This example was more helpful then the Microsoft help.

Appreciate it.
T.H.

By: Alex_F

Alex_F — Thu, 10 Dec 2009 10:25:51 +0000

Super, vielen Dank. Kann ich sehr gut gebrauchen zum periodischen/stündlichen Auslesen eines Temperatursensors am Comport mit Excel.

By: devit

devit — Thu, 08 Jan 2009 09:43:16 +0000

that’s is goodcode!
excelent!
oh! yea!
thank!

By: Hartmut Gierke

Hartmut Gierke — Thu, 06 Nov 2008 18:00:22 +0000

Hi Andrew,

try the following as VBA code on a worksheet (e.g. table1):
”————————————–
”Require that all variables be declared
Option Explicit
Dim Execute_TimerDrivenMacro As Boolean
‘

Sub Start_OnTimerMacro()
Execute_TimerDrivenMacro = True
Application.OnTime Time + TimeValue(“00:00:01″), ActiveSheet.Name & “.OnTimerMacro”
End Sub

Sub Stop_OnTimerMacro()
Execute_TimerDrivenMacro = False
End Sub

Public Sub OnTimerMacro()
If Execute_TimerDrivenMacro Then
‘ Do something e.g. put the actual time into cell A1 of the active sheet
ActiveSheet.Cells(1, 1).Value = Time

‘ At the end restart timer
Application.OnTime Time + TimeValue(“00:00:01″), ActiveSheet.Name & “.OnTimerMacro”
End If
End Sub

Private Sub Worksheet_Activate()
‘Start the timer driven method when opening the sheet
Start_OnTimerMacro
End Sub

Private Sub Worksheet_Deactivate()
‘Stop the timer driven method when opening the sheet
Stop_OnTimerMacro
End Sub
”————————————–

Hope that helps.
Kind regards,
Hartmut

By: Andrew

Andrew — Wed, 22 Oct 2008 05:39:26 +0000

*just <- early signs of retardation

By: Andrew

Andrew — Wed, 22 Oct 2008 05:38:24 +0000

am i jest being retarded, or has the download link been removed?

By: Alain Bigio

Alain Bigio — Tue, 17 Jun 2008 20:49:57 +0000

Dear Sebastian,

I am trying to update my portfolio by picking up the quotations at Yahoo every 20 minutes. I would like to understand the way this macro works. the button start timer activates which macro. the code I have to put where you say “put your code here” does not seem to execute. Can you please help

Thank you

Alain

By: hr

hr — Wed, 27 Feb 2008 15:31:14 +0000

Das Programm verwendet die dafür vorgesehene Excel-VBA-Funktion
Application.OnTimer(AufrufUhrzeit as Date, NameMeinerSub as String)
wie in der Excel-Hilfe vorgeschlagen:
Application.OnTimer( now()+TimeSerial(0,0,5) , NameMeinerSub as String) ‘ 5 Sekunden
Bug/Problem der Funktion: Wenn die Uhr des PC um 1 Stunde vorgestellt wird, dauert der nächste Aufruf 1 Stunde!