Cómo crear una barra de progreso en VBA

Escrito por jaime avelar | Traducido por juliana star
  • Comparte
  • Twittea
  • Comparte
  • Pin
  • E-mail
Cómo crear una barra de progreso en VBA
Usa Excel y VBA para crear una barra de progreso. (didital map image by charles taylor from Fotolia.com)

Una barra de progreso es usada en una aplicación de computadora para indicar el avance de una operación. Usualmente se trata de un rectángulo que es animado a medida que una operación progresa. Visual Basic para Aplicaciones, o VBA, es un lenguaje de programación computacional usado en las aplicaciones de Microsoft Office para automatizar tareas rutinarias y crear interfaces de usuario. Tú puedes crear fácilmente una barra de progreso usando VBA en Microsoft Office Excel. Excel es una aplicación de hoja de cálculo integrada en la suite de Microsoft Office.

Nivel de dificultad:
Moderado

Otras personas están leyendo

Instrucciones

  1. 1

    Abre Microsoft Office Excel y luego presiona "Alt" y "F11" para abrir el Editor de Visual Basic. Haz clic con el botón derecho en "VBAProject" y luego haz clic en "UserForm" para insertar un nuevo formulario. Haz clic en "Label" desde el menú "Toolbox". Mantén presionado el botón de tu ratón y arrastra este último en el formulario para crear un nuevo control label (etiqueta).

  2. 2

    Haz clic con el botón derecho en la etiqueta y selecciona "Properties", luego cambia el valor "Height" a 42 y el valor "Width" a 12. Cambia la posición "Top" a 12. Crea otras nueve etiquetas usando el mismo procedimiento.

  3. 3

    Haz clic en "CommandButton" en el panel "Toolbox" y agrega un nuevo botón a tu formulario. Haz clic con el botón derecho en "CommandButton" y selecciona "View Code" para crear un nuevo procedimiento.

  4. 4

    Escribe lo siguiente para crear una nueva variable y definir su valor:

    Dim cnt As Integer cnt = 0

  5. 5

    Escribe lo siguiente para esconder todas las etiquetas al cargar el formulario:

    Me.Label1.Visible = False Me.Label2.Visible = False Me.Label3.Visible = False Me.Label4.Visible = False Me.Label5.Visible = False Me.Label6.Visible = False Me.Label7.Visible = False Me.Label8.Visible = False Me.Label9.Visible = False Me.Label10.Visible = False

  6. 6

    Escribe lo siguiente para crear un ciclo while e iterar 10 veces además de pausar el código durante 5 segundos:

    Do While cnt <> 10

    Select Case cnt Case Is = 1 Me.Label1.Visible = True Me.Label1.BackColor = vbBlue Case Is = 2 Me.Label2.Visible = True Me.Label2.BackColor = vbBlue

    Case Is = 3 Me.Label3.Visible = True Me.Label3.BackColor = vbBlue

    Case Is = 4 Me.Label4.Visible = True Me.Label4.BackColor = vbBlue

    Case Is = 5 Me.Label5.Visible = True Me.Label5.BackColor = vbBlue

    Case Is = 6 Me.Label6.Visible = True Me.Label6.BackColor = vbBlue

    Case Is = 7 Me.Label7.Visible = True Me.Label7.BackColor = vbBlue

    Case Is = 8 Me.Label8.Visible = True Me.Label8.BackColor = vbBlue

    Case Is = 9 Me.Label9.Visible = True Me.Label9.BackColor = vbBlue

    Case Is = 10 Me.Label10.Visible = True Me.Label10.BackColor = vbBlue

    End Select Me.Repaint

    Application.Wait Now + TimeValue("00:00:05")

    cnt = cnt + 1

    Loop

  7. 7

    Haz clic en el menú "Insert" y luego en "Module" para crear un nuevo módulo. Copia y pega el siguiente código para comenzar tu "UserForm1":

    Sub showProgressBar() UserForm1.Show End Sub

    Presiona "F5" para ejecutar tu 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