Creación de un contador utilizando Visual Basic para Aplicaciones ( VBA) se puede lograr fácilmente mediante una interfaz de usuario (UI ) o un formulario. VBA es un lenguaje de programación utilizado en cualquiera de las aplicaciones de Microsoft Office, como Excel. En Excel , puede crear un formulario con controles , como etiquetas y botones para iniciar, detener , reanudar y terminar con un contador. La mejor manera de crear un contador de tiempo es el uso de un " For ... Loop" y actualizar una etiqueta con la fecha límite hasta que el usuario decide suspender o terminar el mostrador. Cosas que necesitará
Microsoft Office Excel
Ver Más instrucciones
1
lanzamiento de Microsoft Office Excel , haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para iniciar la ventana del editor de VB . Haga clic en el menú " Insertar" y haga clic en " formulario de usuario " para añadir un nuevo formulario. Haga clic en " Label " en el panel " Herramientas " y haga clic en el formulario para agregar una nueva etiqueta. Haga clic en " botón de comando " y haga clic en el formulario para agregar un nuevo botón . Añadir otros tres botones de comando con la misma técnica .
2 Haga clic en el formulario y haga clic en "View Code" para ver el módulo de código . Agregue el código siguiente para crear seis variables globales a este módulo :
Pública stp As Boolean
Pública OldH
Pública OldM
Pública Olds
Pública OLDMLN
3
Copia y pega el código siguiente para crear un nuevo evento de clic " CommandButton1 " para iniciar el temporizador :
stp = False < br >
CommandButton1.Enabled = False
CommandButton2.Enabled = True
CommandButton3.Enabled = False
H = 0
Para M = 0 Para 59
Para S = 0 a 59
Para MLN = 0 a 59
t = Timer
hacer hasta Timer - t> = 1 /60
DoEvents Loop
Si stp = True Luego GoTo X
Label1.Caption = _
Formato
(H, "00 " ) & " :" & Format ( M, "00 ") _
& " :" & Format ( S , "00 " ) & " :" & Format ( MLN ", 00 ")
, Next MLN
Siguiente S
Siguiente M
H = H + 1
X :
OldH = H
OldM = M
Olds = S
OLDMLN = MLN
stp = False
4
Copiar y pegue el siguiente código para crear un evento click de " CommandButton2 " que permitirá " CommandButton1 " y " CommandButton3 : "
Private Sub CommandButton2_Click ()
CommandButton1.Enabled = True
< p> CommandButton2.Enabled = False
CommandButton3.Enabled = True
stp = True End Sub
5
Copia y pega el siguiente código para crear un evento click de " CommandButton3 " para reanudar el temporizador :
Private Sub CommandButton3_Click ()
CommandButton3.Enabled = False
CommandButton2.Enabled = True < br >
CommandButton1.Enabled = False
stp = False
H = OldH
Para M = OldM Para 59
para s = edad a 59
Para MLN = OLDMLN Para 59
t = Timer
¿ Hasta Timer - t> = 1/60
DoEvents
< p> Loop
Si stp = True Luego GoTo X
Label1.Caption = _
Formato
(H, "00 " ) & " :" & Format ( M, "00 ") _
& " :" & Format ( S , "00 " ) & " :" & Format ( MLN , "00 " )
Siguiente MLN
< p > Siguiente S
Siguiente M
H = H + 1
X :
OldH = H
OldM = M < br >
Olds = S
OLDMLN = MLN
stp = False End Sub
6
Crear un evento click de " CommandButton4 " para cerrar el programa :
Private Sub CommandButton4_Click ()
Unload Me End of
End Sub
7
Agregue el código siguiente para definir los títulos de la etiqueta y los botones durante el inicio:
Private Sub UserForm_Initialize ()
CommandButton1.Enabled = True
CommandButton1.Caption = " Iniciar temporizador "
CommandButton2.Enabled = False
CommandButton2.Caption = " Stop "
CommandButton3.Enabled = False
CommandButton3.Caption =" Reanudar Timer "
CommandButton4.Caption =" Cancelar "
Label1.Caption =" 00:00:00:00 "
End Sub
8 < p> Agregue el siguiente código al final del programa :
Private Sub UserForm_QueryClose ( Cancel As Integer , CloseMode As Integer )
Si CloseMode = 0 Entonces Cancel = True End
Sub
9
doble clic en " UserForm1 " de la ventana "Object Explorer" y presione "F5 " para ejecutar el programa. Haga clic en " Start Timer" para iniciar el contador , haga clic en "Stop" para detenerla , y haga clic en " Reanudar Timer " para reanudar el mostrador. Haga clic en " Cancelar" para cerrar el programa .
