Opprette en disk ved hjelp av Visual Basic for Applications ( VBA ) kan enkelt oppnås ved hjelp av et brukergrensesnitt ( UI) eller et skjema . VBA er et programmeringsspråk som brukes i noen av Microsoft Office-programmer som Excel. I Excel kan du opprette et skjema med kontroller for eksempel etiketter og knapper for å starte, stoppe , gjenoppta , og avslutte en teller. Den beste måten å skape en tidtaker er å bruke en "For ... Loop " og oppdatere en etikett med den nyeste tid før brukeren bestemmer seg for å stoppe eller avslutte disken . Du trenger
Microsoft Office Excel
Vis flere instruksjoner
en
Launch Microsoft Office Excel , klikk på " Developer " og klikk " Visual Basic " for å starte VB Editor vinduet. Klikk på " Insert"-menyen og klikk " UserForm " for å legge en ny form . Klikk "Label " fra " Toolbox" -panelet , og klikk på skjemaet for å legge en ny etikett. Klikk på " Command Button " og klikk på skjemaet for å legge til en ny knapp . Legg tre mer kommandoknapper bruke den samme teknikken .
2
Høyreklikk skjemaet og klikk på " Vis kode " for å vise koden modulen. Legg til følgende kode for å opprette seks globale variabler til denne modulen : en
Public stp As Boolean
Public OldH
Public oldm
Public åringer
Public OLDMLN
3
Kopier og lim inn følgende kode for å opprette en ny klikkhendelsen for " CommandButton1 " for å starte tidtakeren : en
stp = False
CommandButton1.Enabled = False
CommandButton2.Enabled = sant
CommandButton3.Enabled = False
H = 0
M = 0 til 59
For S = 0 til 59
For MLN = 0 til 59
t = Timer
gjøre før Timer - t> = 1 /60
DoEvents
Loop
p Hvis stp = True Deretter GoTo X
Label1.Caption = _
Format ( H , " 00 ") & " :" & Format ( M , "00 ") _
& " :" & Format ( S , "00 " ) & " :" & Format ( MLN , "00" )
Neste MLN
Neste S
Neste M
H = H + 1
X : en
OldH = H
oldm = M
åringer = S
OLDMLN = MLN
stp = False
4
Kopier og lim inn følgende kode for å skape et klikk hendelsen for " CommandButton2 " som vil gjøre " CommandButton1 " og " CommandButton3 : "
Private Sub CommandButton2_Click ( )
CommandButton1.Enabled = sant
< p> CommandButton2.Enabled = False
CommandButton3.Enabled = sant
stp = sant
End Sub
5
Kopier og lim inn følgende koden for å lage et klikk hendelsen for " CommandButton3 " for å gjenoppta timer:
Private Sub CommandButton3_Click ( )
CommandButton3.Enabled = False
CommandButton2.Enabled = sant
CommandButton1.Enabled = False
stp = False
H = OldH
M = oldm Til 59
For S = åringer til 59
For MLN = OLDMLN Til 59
t = Timer
inntil Timer - t> = 1/60
DoEvents
< p> Loop
p Hvis stp = True Deretter GoTo X
Label1.Caption = _
Format ( H , "00 " ) & " :" & Format ( M , " 00 ") _
& " :" & Format ( S , "00 " ) & " :" & Format ( MLN , "00 ")
Neste MLN
< p > Neste S
Neste M
H = H + 1
X : en
OldH = H
oldm = M
åringer = S
OLDMLN = MLN
stp = False
End Sub
6
Lag et klikk hendelsen for " CommandButton4 "for å lukke programmet : en
Private Sub CommandButton4_Click ( )
losse Me
End
End Sub
7
Legg til følgende kode for å definere bildetekster for etiketten og knappene under oppstart:
Private Sub UserForm_Initialize ( )
CommandButton1.Enabled = sant
CommandButton1.Caption = " Begynn Timer "
CommandButton2.Enabled = False
CommandButton2.Caption =" Stopp "
CommandButton3.Enabled = False
CommandButton3.Caption =" Fortsett Timer "
CommandButton4.Caption =" Avbryt "
Label1.Caption = " 00:00:00:00 "
End Sub
8 < p> Legg til følgende kode for å avslutte programmet : en
Private Sub UserForm_QueryClose ( Cancel As Integer , CloseMode As Integer )
p Hvis CloseMode = 0 Then Cancel = Sant
End sub
9
Dobbeltklikk på " UserForm1 " fra " Object Explorer "-vinduet og trykk " F5 " for å kjøre programmet . Klikk "Start Timer " for å starte telleren , klikk på " Stop" for å stoppe det , og klikk " Fortsett Timer" for å gjenoppta disken . Klikk på " Avbryt" for å avslutte programmet .
