Cómo utilizar VBA para hacer una contraoferta

Creación de un contador utilizando Visual Basic para Aplicaciones (VBA) se puede lograr fácilmente utilizando una interfaz de usuario (UI) o de 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 tales como etiquetas y botones para iniciar, detener, reanudar y terminar con un contador. La mejor manera de crear un temporizador es mediante el uso de un "bucle For ..." y actualizar una etiqueta con la última vez hasta que el usuario decida detener o finalizar el mostrador.

Instrucciones

1 Lanzamiento de Microsoft Office Excel, haga clic en la pestaña "desarrolladores" y haga clic en "Visual Basic" para abrir la ventana Editor de VB. Haga clic en el menú "Insertar" y haga clic en "formulario de usuario" para añadir una nueva forma. Haga clic en "Etiqueta" 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 tres más botones de comando utilizando la misma técnica.

2 Haga clic en el formulario y haga clic en "Ver código" para ver el módulo de código. Agregue el código siguiente para crear seis variables globales a este módulo:

STP pública As Boolean

OldH pública

oldm pública

Olds públicas

OLDMLN pública

3 Copia y pega el código siguiente para crear un nuevo evento de clic de "CommandButton1" para iniciar el temporizador:

STP = false

CommandButton1.Enabled = False

CommandButton2.Enabled = True

CommandButton3.Enabled = False

H = 0

Para M = 0 a 59

Para S = 0 a 59

Para MLN = 0 a 59

t = Timer

Hacer hasta Temporizador - t> = 1/60

DoEvents

Lazo

Si STP = True Then GoTo X

Label1.Caption = _

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

& ":" & Format (S ", 00") & ":" & Format (MLN, "00")

Siguiente MLN

Siguiente S

Siguiente M

H = H + 1

X:

OldH = H

Oldm = M

Olds = S

OLDMLN = MLN

STP = false

4 Copia y pega el código siguiente para crear un evento de clic de "CommandButton2" que permitirá "CommandButton1" y "CommandButton3:"

Private Sub CommandButton2_Click ()

CommandButton1.Enabled = True

CommandButton2.Enabled = False

CommandButton3.Enabled = True

STP = true

End Sub

5 Copia y pega el código siguiente para crear un evento de clic 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 a 59

Para S = edad a los 59

Para MLN = OLDMLN a 59

t = Timer

Hacer hasta Temporizador - t> = 1/60

DoEvents

Lazo

Si STP = True Then GoTo X

Label1.Caption = _

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

& ":" & Format (S ", 00") & ":" & Format (MLN, "00")

Siguiente MLN

Siguiente S

Siguiente M

H = H + 1

X:

OldH = H

Oldm = M

Olds = S

OLDMLN = MLN

STP = false

End Sub

6 Crear un evento de clic de "CommandButton4" para cerrar el programa:

Private Sub CommandButton4_Click ()

Unload Me

Fin

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 = "Temporizador de inicio"

CommandButton2.Enabled = False

CommandButton2.Caption = "Stop"

CommandButton3.Enabled = False

CommandButton3.Caption = "Reanudar temporizador"

CommandButton4.Caption = "Cancelar"

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

End Sub

8 Agregue el código siguiente para finalizar el programa:

Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode como número entero)

If CloseMode = 0 Then Cancel = True

End Sub

9 Haga doble clic en "UserForm1" de la ventana "Explorador de objetos" y pulse la tecla "F5" para ejecutar el programa. Haga clic en "Temporizador de inicio" para iniciar el contador, haga clic en "Stop" para detenerla y, haga clic en "Continuar temporizador" para reanudar el contador. Haga clic en "Cancelar" para finalizar el programa.