VBA Ein einfacher Sekunden-Timer

In der VBA ist ein einfacher zweiter Timer einfach zu schreiben und in den Quellcode aufzunehmen. Der VBA wird mit einem voll ausgestatteten Timer geliefert, der bei Bedarf verwendet werden kann. Es ist jedoch nicht erforderlich, den mit dem VBA gelieferten Timer zu verwenden. Die Timer-Steuerung im VBA kann auch über einen manuellen Timer erfolgen. Es ist keine komplizierte Aufgabe, eine manuelle Timer-Funktion in der VBA zu erstellen. Man muss den Code schreiben, um einen Timer in einem öffentlichen Modul zu erstellen. Mit dem VBA kann ein einfacher zweiter Timer erstellt werden, um die Office-Software speziell für Excel-Arbeitsblätter zu erweitern und anzupassen.

In VBA gibt es eine Timer-Funktion, die Sie aber auch ganz einfach erstellen können.

In einem Modulblatt:

 Private Sub Worksheet_SelectionChange (ByVal Target As Range) 'Zum Beispiel: Start / Stop des Timers jedes Mal, wenn die Zelle. 'kann aber auch auf eine Schaltfläche oder eine andere Schaltfläche gelegt werden ... TimeOnOFF = Not TimeOnOFF If TimeOnOFF Then Timer End Sub 

In einem öffentlichen Modul:

 Public TimeOnOFF As Boolean Sub Timer () Dim S As Integer While TimeOnOFF = True Wenn Second (Now)> S Oder Second (Now) = 0 Dann 'Run code' .... 'zum Beispiel Sheets ("shee1") ("A1") Wert = Zeit S = Sekunde (jetzt) ​​Ende, wenn Ereignisse Wend End Sub