Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Option Explicit
Private mTijd As Double
Private Sub Workbook_Activate()
SetTimer
End Sub
Private Sub Workbook_Deactivate()
CancelTimer
End Sub
Private Sub SetTimer()
ThisWorkbook.Worksheets(1).Range("A1") = Format(Time, "hh:mm:ss")
mTijd = Now + TimeValue("00:00:01")
Application.OnTime mTijd, "ThisWorkbook.SetTimer"
End Sub
Public Sub CancelTimer()
On Error Resume Next
Application.OnTime mTijd, "ThisWorkbook.SetTimer", , False
End Sub
Plak dit in de ThisWorkbook module:
Code:Option Explicit Private mTijd As Double Private Sub Workbook_Activate() SetTimer End Sub Private Sub Workbook_Deactivate() CancelTimer End Sub Private Sub SetTimer() ThisWorkbook.Worksheets(1).Range("A1") = Format(Time, "hh:mm:ss") mTijd = Now + TimeValue("00:00:01") Application.OnTime mTijd, "ThisWorkbook.SetTimer" End Sub Public Sub CancelTimer() On Error Resume Next Application.OnTime mTijd, "ThisWorkbook.SetTimer", , False End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.