VBA Een eenvoudige tweede timer

In de VBA is een eenvoudige tweede timer eenvoudig te schrijven en op te nemen in de broncode. De VBA wordt geleverd met een complete timer die kan worden gebruikt wanneer dat nodig is. Het is echter niet verplicht om de timer te gebruiken die bij de VBA is geleverd. Timerbesturing in de VBA kan ook via een handmatige timer worden gedaan. Het is geen ingewikkelde taak om een ​​handmatige timerfunctie in de VBA te maken . Je moet de code schrijven om een ​​timer in een openbare module te maken. Met de VBA kan een eenvoudige tweede timer worden gemaakt om de Office-software speciaal voor Excel-werkbladen te verbeteren en aan te passen.

In VBA is de timerfunctie beschikbaar, maar je kunt er ook heel gemakkelijk een maken.

In een modulewerkblad:

 Particulier Subwerkblad_SelectieWijzigen (ByVal-doel als bereik) 'Bijvoorbeeld: Start / Stop de timer elke keer dat de cel. 'maar kan ook op een knop of een andere worden geplaatst ... TimeOnOFF = Niet TimeOnOFF Als TimeOnOFF dan Timer End Sub 

In een openbare 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' .... 'bijvoorbeeld Sheets ("shee1"). ("A1"). Waarde = Tijd S = Tweede (nu) Beëindigen als DoEvents Wend End Sub