Cómo crear barra de progreso en VBA

Una barra de progreso se utiliza en una aplicación informática para indicar el progreso de una operación . Es comúnmente un rectángulo que está animado como una operación avanza . Visual Basic para Aplicaciones o VBA es un lenguaje de programación utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias y para crear interfaces de usuario . Puede fácilmente crear una barra de progreso utilizando VBA en Microsoft Office Excel. Excel es una aplicación de hoja de cálculo incluido en la suite de Microsoft Office. Instrucciones
1

Abra Microsoft Office Excel , a continuación, pulse la tecla " Alt" y " F11 " para abrir el Editor de Visual Basic . Haga clic en " VBAProject ", a continuación, haga clic en " formulario de usuario " para insertar un nuevo formulario . En el menú " Herramientas " , haga clic en " Label ". Mientras mantiene el botón del ratón , arrastre en el formulario para crear un nuevo control de etiqueta .

2 Haga clic en la etiqueta y seleccionar "Propiedades ", luego cambiar "Altura " a 42 y "Ancho " para 12 . Cambiar el " Top" de 12 . Cree nueve más etiquetas con el mismo proceso.
3

clic " CommandButton " en el panel " Toolbox" y añadir un nuevo botón a su formulario . . Haga clic en " CommandButton " y haga clic en " Ver código" para crear un nuevo procedimiento
4

Escriba lo siguiente para crear una nueva variable y defina su valor:

Dim cnt Como Integer

cnt = 0
5

Escriba lo siguiente para ocultar todas las etiquetas cuando se inicia el formulario :

Me.Label1.Visible = False
< p> 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

Escriba el siguiente para crear un bucle while y repetir 10 veces mientras se pausa el código durante 5 segundos :

Do Mientras cnt < > 10

Seleccione 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
< p > Case Is = 6 personas

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

caso es = 9

Me.Label9.Visible = True

Me.Label9.BackColor = vbBlue

Case Is = 10

Me.Label10.Visible =
verdadera

Me.Label10.BackColor = vbBlue

End Select

Me.Repaint

Aplicación . Espere ahora + TimeValue ( " 00:00:05 " )

cnt = cnt + 1

Loop
7

Haga clic en el menú "Insertar " y luego haga clic en "Módulo " para añadir un nuevo módulo. Copia y pega el código de abajo para empezar su " UserForm1 . "

Sub showProgressBar ()

UserForm1.Show

End Sub

Press "F5 " para ejecutar el programa .