Cómo crear una barra de progreso en VBA

...

Utilice Excel y VBA para crear una barra de progreso.

Una barra de progreso se utiliza en una aplicación informática para indicar el progreso de una operación. Por lo general, es un rectángulo que se anima a medida que avanza una operación. Visual Basic para aplicaciones, o VBA, es un lenguaje de programación de computadoras que se usa en las aplicaciones de Microsoft Office para automatizar tareas rutinarias y crear interfaces de usuario. Puede crear fácilmente una barra de progreso usando VBA en Microsoft Office Excel. Excel es una aplicación de hoja de cálculo incluida en el paquete de Microsoft Office.

Paso 1

Abra Microsoft Office Excel, luego presione "Alt" y "F11" para abrir el Editor de Visual Basic. Haga clic derecho en "VBAProject", luego haga clic en "UserForm" para insertar un nuevo formulario. En el menú "Caja de herramientas", haga clic en "Etiqueta". Mientras mantiene presionado el botón del mouse, arrastre el formulario para crear un nuevo control de etiqueta.

Video del día

Paso 2

Haz clic derecho en la etiqueta y selecciona "Propiedades", luego cambia "Alto" a 42 y "Ancho" a 12. Cambie "Top" a 12. Cree nueve etiquetas más utilizando el mismo proceso.

Paso 3

Haga clic en "CommandButton" en el panel "Caja de herramientas" y agregue un nuevo botón a su formulario. Haga clic derecho en "CommandButton" y haga clic en "Ver código" para crear un nuevo procedimiento.

Paso 4

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

Dim cnt como entero cnt = 0

Paso 5

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

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

Paso 6

Escriba lo siguiente para crear un ciclo while e iterar 10 veces mientras pausa el código durante 5 segundos:

Hacer mientras cnt <> 10

Seleccione Case cnt Case Is = 1 Me. Label1.Visible = Verdadero yo. Label1.BackColor = vbBlue El caso es = 2 Yo. Label2.Visible = Verdadero yo. Label2.BackColor = vbBlue El caso es = 3 Yo. Label3.Visible = Verdadero yo. Label3.BackColor = vbBlue El caso es = 4 Yo. Label4.Visible = Verdadero yo. Label4.BackColor = vbBlue El caso es = 5 Yo. Label5.Visible = Verdadero yo. Label5.BackColor = vbBlue La caja es = 6 Yo. Label6.Visible = Verdadero yo. Label6.BackColor = vbBlue El caso es = 7 Yo. Label7.Visible = Verdadero yo. Label7.BackColor = vbBlue La caja es = 8 Yo. Label8.Visible = Verdadero yo. Label8.BackColor = vbBlue El caso es = 9 Yo. Label9.Visible = Verdadero yo. Label9.BackColor = vbBlue La caja es = 10 Yo. Label10.Visible = Verdadero yo. Label10.BackColor = vbBlue End Select. Me. Aplicación de repintado. Esperar ahora + TimeValue ("00:00:05")

cnt = cnt + 1

Círculo

Paso 7

Haga clic en el menú "Insertar" y luego haga clic en "Módulo" para agregar un nuevo módulo. Copie y pegue el código a continuación para iniciar su "UserForm1.":

Sub showProgressBar () UserForm1.Show End Sub

Presione "F5" para ejecutar su programa.