VBA Paprastas antrasis laikmatis

VBA sistemoje paprastą antrąjį laikmatį lengva rašyti ir įtraukti į šaltinio kodą. „VBA“ turi pilną laikmatį, kuris gali būti naudojamas, kai tik reikia. Tačiau neprivaloma naudoti su VBA pateiktą laikmatį. Laikmačio valdymą VBA galima atlikti per rankinį laikmatį. Nėra sudėtinga užduotis sukurti rankinio laikmačio funkciją VBA . Norint sukurti laikmatį viešajame modulyje, reikia parašyti kodą. Naudojant „VBA“, gali būti sukurtas paprastas antrasis laikmatis, skirtas „Office“ programinės įrangos tobulinimui ir pritaikymui, ypač „Excel“ darbalapiams.

„VBA“ yra „Timer“ funkcija, tačiau taip pat galite sukurti ją labai lengvai.

Modulio lape:

 „Private Sub Worksheet_SelectionChange“ („ByVal Target As Range“). Pavyzdžiui: paleiskite / sustabdykite laikmatį kiekvieną kartą, kai ląstelė. „bet taip pat gali būti dedamas ant mygtuko ar kito ... TimeOnOFF = Ne TimeOnOFF Jei TimeOnOFF Tada laikmačio pabaiga 

Viešame modulyje:

 Public TimeOnOFF As Boolean Sub Timer () Boolean Sub Timer (Būlio laikmatis) () Dim S kaip Integer Nors TimeOnOFF = True If Second (Dabar)> S arba Second (Now) = 0 Tada 'Run code' .... 'pvz. („A1“). Reikšmė = laikas S = antrasis (dabar) pabaiga Jei „DoEvents Wend End“ pasibaigia