VBA A simple second Timer

In the VBA, a simple second timer is easy to write and include in the source code. The VBA comes with a full-featured timer which can be used whenever required. However, it is not compulsory to use the timer provided with the VBA. Timer control in the VBA can be done through a manual timer too. It is not a complicated task to create a manual timer function in the VBA. One needs to write the code to create a timer in a public module. With the VBA, a simple second timer can be created to enhance and customize the Office software especially for Excel worksheets.



In VBA there is Timer feature available, but you can also create one very easily.

In a module sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)        
'For example: Start / Stop the timer every time the cell.         
'but may also be placed on a button or another ...         
   TimeOnOFF = Not TimeOnOFF        
    If TimeOnOFF Then Timer        
End Sub

In a public module:

Public TimeOnOFF As Boolean        

Sub Timer()        
Dim S As Integer        
    While TimeOnOFF = True        
        If Second(Now) > S Or Second(Now) = 0 Then        
            '  Run code        
            '....        
            'for example        
            Sheets("shee1").Range("A1").Value = Time        
                    
            S = Second(Now)        
        End If        
        DoEvents        
    Wend        
            
End Sub

See also

Knowledge communities.

• Forum
• Excel forum
• Hardware forum
• Hard drive forum

This document entitled « VBA A simple second Timer » from Kioskea (en.kioskea.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.