Cómo utilizar VBA para hacer un contador

Escrito por jaime avelar | Traducido por walter f. stocco
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo utilizar VBA para hacer un contador
Crea un contador en Excel. (Jupiterimages/Comstock/Getty Images)

Crear 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, puedes crear un formulario con controles, como etiquetas y botones para iniciar, detener, reanudar y detener a un contador. La mejor manera de crearlo es usar un "Para...lazo" y actualizar una etiqueta con la fecha límite hasta que el usuario decida suspender o detener el contador.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Necesitarás

  • Microsoft Office Excel

Lista completaMinimizar

Instrucciones

  1. 1

    Inicia Microsoft Office Excel, haz clic en la pestaña "Desarrollador" y luego en "Visual Basic" para abrir la ventana Editor VB. Haz clic en el menú "Insertar" y luego en "Formulario de usuario" para añadir uno nuevo. Haz clic en "Etiqueta" en el panel "Herramientas" y luego en el formulario para agregar una nueva. Haz clic en "Botón de comando" y luego en el formulario para agregar un nuevo botón. Añade otros tres botones de comando con la misma técnica.

  2. 2

    Haz clic derecho en el formulario y luego en "Ver código" para ver el módulo de código. Agrega el código siguiente para crear seis variables globales a este módulo:

    Public stp As Boolean Public OldH Public OldM Public OldS Public OLDMLN

  3. 3

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

    stp = False CommandButton1.Enabled = False CommandButton2.Enabled = True CommandButton3.Enabled = False

    H = 0 For M = 0 To 59 For S = 0 To 59 For MLN = 0 To 59 t = Timer Do Until Timer - t >= 1 / 60 DoEvents Loop If stp = True Then GoTo X Label1.Caption = Format(H, "00") & ":" & Format(M, "00") & ":" & Format(S, "00") & ":" & Format(MLN, "00") Next MLN Next S Next M H = H + 1 X: OldH = H OldM = M OldS = S OLDMLN = MLN stp = False

  4. 4

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

    Private Sub CommandButton2_Click() CommandButton1.Enabled = True CommandButton2.Enabled = False CommandButton3.Enabled = True stp = True End Sub

  5. 5

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

    Private Sub CommandButton3_Click() CommandButton3.Enabled = False CommandButton2.Enabled = True CommandButton1.Enabled = False

    stp = False H = OldH For M = OldM To 59 For S = OldS To 59 For MLN = OLDMLN To 59 t = Timer Do Until Timer - t >= 1 / 60 DoEvents Loop If stp = True Then GoTo X Label1.Caption = Format(H, "00") & ":" & Format(M, "00") & ":" & Format(S, "00") & ":" & Format(MLN, "00") Next MLN Next S Next M H = H + 1 X: OldH = H OldM = M OldS = S OLDMLN = MLN stp = False End Sub

  6. 6

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

    Private Sub CommandButton4_Click() Unload Me End End Sub

  7. 7

    Agrega 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 = "Resume Timer" CommandButton4.Caption = "Cancel" Label1.Caption = "00:00:00:00" End Sub

  8. 8

    Agrega el código siguiente al final del programa:

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True End Sub

  9. 9

    Haz doble clic en "UserForm1" de la ventana "Explorador del objeto" y presiona "F5" para ejecutar el programa. Haz clic en "Iniciar contador" para iniciarlo, haz clic en "Detener" para detenerlo, y en "Reanudar contador" para reanudarlo. Haz clic en "Cancelar" para cerrar el programa.

No dejes de ver

Filtrar por:
  • Mostrar todos
  • Artículos
  • Galerías de fotos
  • Videos
Ordenar:
  • Más relevante
  • Más popular
  • Más reciente

No se encuentran artículos disponibles

No se encuentran slideshows disponibles

No se encuentran videos disponibles