Ako používať VBA robiť pult

Tvorba počítadla pomocou jazyka Visual Basic for Applications ( VBA ) možno ľahko vykonať pomocou používateľského rozhrania ( UI ) alebo formulára . VBA je programovací jazyk použitý v niektorej z aplikácií balíka Microsoft Office , ako je Excel . V programe Excel , môžete vytvoriť formulár s ovládacími prvkami , ako sú štítky a tlačidlá pre spustenie , zastavenie , životopis , a končí na pult . Najlepší spôsob , ako vytvoriť časovač je pomocou " Pre ... Loop " a aktualizuje štítok s najnovšou doby , kým sa užívateľ rozhodne zastaviť alebo ukončiť počítadlo . Veci , ktoré budete potrebovať v Microsoft Office Excel
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Office Excel , kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie okná VB Editor . Kliknite na " Vložiť " menu a kliknite na " UserForm " pridať nový formulár . Kliknite na " Label " z " Toolbox " paneli a kliknite na formulár pridať nový štítok . Kliknite na " Command Button " a kliknite na formulár pridať nové tlačidlo . Pridať ďalšie tri príkazové tlačidlá s použitím rovnakého postupu .
2

pravým tlačidlom myši na formulár a kliknite na tlačidlo " Zobraziť kód " pre zobrazenie modulu kódu . Pridajte nasledujúci kód vytvoriť šesť globálne premenné do tohto modulu :

Public žiadanou As Boolean

Verejné OldH

Verejné OldM

Verejné Olds

Verejné OLDMLN
3

skopírujte a vložte nasledujúci kód vytvoriť novú udalosť click pre " CommandButton1 " pre spustenie časovača :

stp = False

CommandButton1.Enabled = False

CommandButton2.Enabled = TRUE

CommandButton3.Enabled = False

H = 0

M = 0 na 59

S = 0 až 59

MLN = 0 až 59

t = Timer

Do Do Timer - t > = 1 /60

DoEvents

Loop

Ak stp = True Then GoTo X

Label1.Caption = _

Format ( H , " 00 " ) & " : " & Format ( M , " 00 " ) _

& " : " & Format ( S , " 00 " ) & " : " & Format ( mil. , " 00 " )

Ďalšie MLN

Ďalšie S

Ďalšie M

H = H + 1

X :

OldH = H

OldM = M

kone = S

OLDMLN = MLN

stp = False
4

Kopírovanie a vložte nasledujúci kód vytvoriť udalosť click pre " CommandButton2 " , ktorý umožní " CommandButton1 " a " CommandButton3 : "

Private Sub CommandButton2_Click ( )

CommandButton1.Enabled = TRUE

CommandButton2.Enabled = False

CommandButton3.Enabled = true

STP = true

End Sub
5

skopírujte a vložte nasledujúci kód vytvoriť udalosť click pre " CommandButton3 " pre obnovenie časovača :

Private Sub CommandButton3_Click ( )

CommandButton3.Enabled = False

CommandButton2.Enabled = TRUE

CommandButton1.Enabled = false

stp = false

H = OldH

M = OldM až 59

S = študentov, aby 59

MLN = OLDMLN až 59

t = Timer

Do Do Timer - t > = 1 /60

DoEvents

Loop

Ak stp = True Then GoTo X

Label1.Caption = _

Format ( H , " 00 " ) & " : " & Format ( M , " 00 " ) _

& " : " & Format ( S , " 00 " ) & " : " & Format ( mil. , " 00 " )

Ďalšie MLN

Ďalšie S

Ďalšie M

H = H + 1

X :

OldH = H

OldM = M

Olds = S

OLDMLN = MLN

stp = false

End Sub
6

Vytvoriť udalosť click pre " CommandButton4 " zatvorte program :

Private Sub CommandButton4_Click ( )

Uvoľniť ma

Koniec

End Sub
7

pridajte nasledujúci kód definovať titulky pre označenie a tlačidiel pri spustení :

Private Sub UserForm_Initialize ( )

CommandButton1.Enabled = TRUE

CommandButton1.Caption = " spustiť časovač "

CommandButton2.Enabled = False

CommandButton2.Caption = " Zastaviť "

CommandButton3.Enabled = False

CommandButton3.Caption = " Pokračovať Timer "

CommandButton4.Caption = " Zrušiť "

Label1.Caption = " 00:00:00:00 "

End Sub
8

Pridajte nasledujúci kód do ukončenia programu :

Private Sub UserForm_QueryClose ( Cancel As Integer , CloseMode As Integer )

Ak CloseMode = 0 Then Zrušiť = True

End sub
9

Double - kliknite na " UserForm1 " z okna " Objekt aplikácie Explorer " a stlačte " F5 " pre spustenie programu . Kliknite na tlačidlo " Štart Timer " pre spustenie počítadla , kliknite na tlačidlo " Stop " na to zastaviť , a kliknite na tlačidlo " Pokračovať Timer " obnoviť čítač . Kliknite na " Zrušiť " pre ukončenie programu .

• Predchádzajúca strana: Ako vytvoriť líniu Fill - in - the - Blank v programe Word pomocou jazyka VBA 
• Ďalšia strana: Ako rozpoznať a spustené aplikácie pomocou VB