Cómo utilizar VBA para hacer una contraoferta

Cree un temporizador en Excel. 

CONTADOR

Creación de un contador utilizando Visual Basic para Aplicaciones (VBA) se puede lograr fácilmente con 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.

Lo que necesita

Microsoft Office Excel

Inicie Microsoft Office Excel, haga clic en la pestaña de "desarrolladores" y haga clic en "Visual Basic" para abrir la ventana Editor 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.

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

Public OldH

OldM Pública

Olds Públicas

OLDMLN Pública

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 a 59

Para S = 0 a 59

Para MLN = 0 a 59

t = Timer

Do Until Timer - t = 1/60

DoEvents

Bucle

Si stp = True Luego GoTo X

Label1.Caption = _

Formato (H, "00") Material (M, "00") _

mat (S ", 00") Material (MLN ", 00")

Siguiente MLN

Siguiente S

Siguiente M

H = H + 1

X:

OldH = H

OldM M =

Olds = S

OLDMLN = MLN

stp = False

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

Private Sub CommandButton2_Click ()

CommandButton1.Enabled = True

CommandButton2.Enabled = False

CommandButton3.Enabled = True

stp = True

End Sub

Copia y pega el siguiente código para crear un evento de clic de "CommandButton3" para reanudar el cronómetro:

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

Do Until Timer - t = 1/60

DoEvents

Bucle

Si stp = True Luego GoTo X

Label1.Caption = _

Formato (H, "00") Material (M, "00") _

mat (S ", 00") Material (MLN ", 00")

Siguiente MLN

Siguiente S

Siguiente M

H = H + 1

X:

OldH = H

OldM M =

Olds = S

OLDMLN = MLN

stp = False

End Sub

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

Private Sub CommandButton4_Click ()

Unload Me

Final

End Sub

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 = "Start Timer"

CommandButton2.Enabled = False

CommandButton2.Caption = "Stop"

CommandButton3.Enabled = False

CommandButton3.Caption = "Reanudar Timer"

CommandButton4.Caption = "Cancelar"

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

End Sub

Agregue el código siguiente al final del programa:

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

Si CloseMode = 0 Entonces Cancel = True

End Sub

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