Oprettelse af en tæller ved hjælp af Visual Basic for Applications ( VBA ), kan nemt gøres ved hjælp af en User Interface ( UI ) eller en formular . VBA er et edb-programmering sprog, der anvendes i nogen af de Microsoft Office- programmer som Excel. I Excel kan du oprette en formular med kontroller såsom etiketter og knapper til at starte, stoppe, genoptage og afslutte en tæller. Den bedste måde at skabe en timer er ved hjælp af et "For ... Loop " og opdatere en etiket med den nyeste tid, før brugeren beslutter at stoppe eller afslutte disken. Ting du skal
Microsoft Office Excel
Vis Flere Instruktioner
1
Launch Microsoft Office Excel , skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at starte VB Editor vinduet. Klik på " Indsæt" menuen og klik på " UserForm " for at tilføje en ny form . Klik på " Label" fra " Toolbox" rude og klikke på formularen til at tilføje en ny etiket . Klik på " Command Button " og klik på formular til at tilføje en ny knap . Tilføj yderligere tre kommandoknapper hjælp af samme teknik .
2
Højreklik på formularen , og klik på " View Code " for at se koden modulet. Føj følgende kode til at oprette seks globale variabler til dette modul : Hej
Public stp Som Boolean
Public OldH
Public OldM
Public Olds
Public OLDMLN
3
Kopier og indsæt følgende kode til at oprette en ny klik begivenheden for " CommandButton1 " for at starte timeren : Hej
stp = False < br >
CommandButton1.Enabled = False
CommandButton2.Enabled = Sand
CommandButton3.Enabled = False
H = 0
M = 0 til 59
S = 0 til 59
MLN = 0 til 59
t = Timer
Må Indtil Timer - t> = 1 /60
DoEvents
Loop
p Hvis STP = Sand Så GoTo X
Label1.Caption = _
Format (H, "00" ) & " : " & Format (M , "00" ) _
& " : " & Format (S, "00" ) & " : " & Format ( MLN , "00" )
Næste MLN
Next S
Næste M
H = H + 1
X : Hej
OldH = H
OldM = M
årige = S
OLDMLN = MLN
stp = False
4
Copy og indsæt følgende kode til at oprette et klik begivenhed for " CommandButton2 ", der vil gøre det muligt " CommandButton1 " og " CommandButton3 : "
Private Sub CommandButton2_Click ()
CommandButton1.Enabled = Sand
< p> CommandButton2.Enabled = False
CommandButton3.Enabled = Sand
stp = Sand
End Sub
5
Kopier og indsæt følgende kode til at oprette et klik begivenhed for " CommandButton3 " for at genoptage timeren : Hej
Private Sub CommandButton3_Click ()
CommandButton3.Enabled = False
CommandButton2.Enabled = Sand < br >
CommandButton1.Enabled = False
stp = False
H = OldH
M = OldM til 59
S = åriges udsættelse for 59
MLN = OLDMLN til 59
t = Timer
Gør Indtil Timer - t> = 1/60
DoEvents
< p> Loop
p Hvis STP = Sand Så GoTo X
Label1.Caption = _
Format (H, "00" ) & " : " & Format (M , "00" ) _
& " : " & Format (S, "00" ) & " : " & Format ( MLN , "00" )
Næste MLN
< p > Next S
Næste M
H = H + 1
X : Hej
OldH = H
OldM = M < br >
årige = S
OLDMLN = MLN
stp = False
End Sub
6
Opret et klik begivenhed for " CommandButton4 "for at lukke programmet : Hej
Private Sub CommandButton4_Click ()
Unload Me
End
End Sub
7
Føj følgende kode til at definere billedtekster til mærket og knapperne under opstart :
Private Sub UserForm_Initialize ()
CommandButton1.Enabled = Sand
CommandButton1.Caption = " Start Timer "
CommandButton2.Enabled = False
CommandButton2.Caption = " Stop "
CommandButton3.Enabled = False
CommandButton3.Caption =" Genoptag Timer "
CommandButton4.Caption = " Annuller "
Label1.Caption =" 00:00:00:00 "
End Sub
8 < p> Føj følgende kode for at afslutte programmet : Hej
Private Sub UserForm_QueryClose ( Annuller As Integer , CloseMode As Integer )
p Hvis CloseMode = 0 Then Cancel = Sand
End sub
9
Dobbeltklik på " UserForm1 " fra " Object Explorer " vinduet og trykke på " F5 " for at køre programmet. Klik på "Start Timer" for at starte tælleren , klik på " Stop" for at stoppe det , og klik på " Genoptag Timer" for at genoptage tælleren . Klik på " Annuller" for at afslutte programmet.