Πώς να χρησιμοποιήσετε VBA για να βγάλουν ένα Counter

Δημιουργία μετρητή χρησιμοποιώντας τη Visual Basic for Applications ( VBA) μπορεί εύκολα να επιτευχθεί με τη χρήση User Interface ( UI ) ή μιας φόρμας . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται σε οποιαδήποτε από τις εφαρμογές του Microsoft Office, όπως το Excel . Στο Excel , μπορείτε να δημιουργήσετε μια φόρμα με τα στοιχεία ελέγχου , όπως ετικέτες και τα κουμπιά για να ξεκινήσετε, να σταματήσει , να συνεχίσετε και να τερματίσετε μια μετρητή . Ο καλύτερος τρόπος για να δημιουργήσετε ένα χρονόμετρο είναι με τη χρήση ενός « Για ... Loop » και να ενημερώσετε μια ετικέτα με την τελευταία ώρα έως ότου ο χρήστης αποφασίσει να σταματήσει ή να τερματίσετε τον πάγκο . Τα πράγματα που θα χρειαστείτε για Microsoft Office Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει η παράθυρο VB Editor. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " UserForm " για να προσθέσετε μια νέα μορφή . Κάντε κλικ στο " Ετικέτα " από την " Toolbox" παράθυρο και κάντε κλικ στη φόρμα για να προσθέσετε μια νέα ετικέτα . Κάντε κλικ στο " Command Button " και κάντε κλικ στη φόρμα για να προσθέσετε ένα νέο κουμπί . Προσθέστε τρία κουμπιά εντολών , χρησιμοποιώντας την ίδια τεχνική . 2

δεξιό κλικ στη φόρμα και κάντε κλικ στο " Προβολή κώδικα " για να προβάλετε τη λειτουργική μονάδα κώδικα . Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσει έξι καθολικές μεταβλητές σε αυτή την ενότητα :

Δημόσια stp Όπως Boolean

Δημόσια OldH

Δημόσια OldM

Δημόσια Olds

Δημόσια OLDMLN
εικόνων 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα νέο συμβάν click για " CommandButton1 " για να ξεκινήσει το χρονόμετρο :

stp = False

CommandButton1.Enabled = False

CommandButton2.Enabled = True

CommandButton3.Enabled = False

H = 0

Για M = 0 Για 59

Για S = 0 έως 59

Για ΕΚΑΤ. = 0 έως 59

t = Timer

Do Μέχρι Timer - t > = 1 /60

DoEvents

Loop

Αν stp = True Στη συνέχεια, GoTo X

Label1.Caption = _

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

& " : " & Format ( S , " 00 " ) & " : " & Format ( ΕΚΑΤΟΜΜΥΡΙΩΝ " 00 " )

Επόμενο ΕΚΑΤ.

Επόμενο S

Επόμενο Μ

H = H + 1

X :

OldH = Η

OldM = Μ

Olds = S

OLDMLN = ΕΚΑΤ.

stp = False
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα συμβάν click για " CommandButton2 " που θα επιτρέψει " CommandButton1 " και " CommandButton3 : "

Private Sub CommandButton2_Click ( )

CommandButton1.Enabled = True

CommandButton2.Enabled = False

CommandButton3.Enabled = True

stp = True

End Sub
5

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε ένα συμβάν click για " CommandButton3 " για να συνεχίσετε το χρονόμετρο :

Private Sub CommandButton3_Click ( )

CommandButton3.Enabled = False

CommandButton2.Enabled = True

CommandButton1.Enabled = False

stp = False

H = OldH

Για Μ = OldM Σε 59

Για S = άλογα που πρέπει να 59

Για ΕΚΑΤ. = OLDMLN Σε 59

t = Timer

Do Μέχρι Timer - t > = 1/60

DoEvents

Loop

Αν stp = True Στη συνέχεια, GoTo X

Label1.Caption = _

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

& " : " & Format ( S , " 00 " ) & " : " & Format ( ΕΚΑΤΟΜΜΥΡΙΩΝ " 00 " )

Επόμενο ΕΚΑΤ.

Επόμενη S

Επόμενο Μ

H = H + 1

X :

OldH = H

OldM = M
Olds

= S

OLDMLN = ΕΚΑΤ.

stp = False

End Sub
Η 6

Δημιουργήστε μια εκδήλωση click για " CommandButton4 "για να κλείσετε το πρόγραμμα :

Private Sub CommandButton4_Click ( )

Me Αφαίρεση

Τέλος

End Sub
Η 7

Προσθέστε τον ακόλουθο κώδικα για να καθορίσει τις λεζάντες για την ετικέτα και τα πλήκτρα κατά την εκκίνηση :

Private Sub UserForm_Initialize ( )

CommandButton1.Enabled = True

CommandButton1.Caption = " έναρξη Timer "

CommandButton2.Enabled = False

CommandButton2.Caption = " Stop "

CommandButton3.Enabled = False

CommandButton3.Caption = " Resume Timer "

CommandButton4.Caption = " Άκυρο "

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

End Sub
8

Προσθέστε τον παρακάτω κώδικα για να τερματίσετε το πρόγραμμα :

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

Εάν CloseMode = 0 τότε Cancel = True End

υπο
Η 9

διπλό κλικ στο " UserForm1 " από το " Object Explorer " παράθυρο και πατήστε το πλήκτρο "F5 " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο κουμπί "Start Timer " για να ξεκινήσει από τον πάγκο , κάντε κλικ στο κουμπί "Stop" για να το σταματήσει , και κάντε κλικ στο "Resume Timer" για να συνεχίσετε το μετρητή . Κάντε κλικ στο κουμπί "Άκυρο" για να τερματίσετε το πρόγραμμα .
Η
εικόνων