Cómo utilizar VBA para hacer una encimera

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

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

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

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 .