-
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.