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 de ordenador utilizado en aplicaciones de Microsoft Office para automatizar tareas rutinarias y para crear interfaces de usuario. Usted puede crear fácilmente una barra de progreso con VBA en Microsoft Office Excel. Excel es una hoja de cálculo incluido en el paquete de Microsoft Office.
Instrucciones
1 Abra Microsoft Office Excel, a continuación, pulse "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 "Etiqueta". 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" a 12. Cambiar el "Top" a 12. Crear nueve etiquetas más utilizando el mismo proceso.
3 Haga clic en "CommandButton" en el panel de "caja de herramientas" 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 Escribe lo siguiente para crear una nueva variable y definir su valor:
cnt As Integer Dim
cnt = 0
5 Escribe lo siguiente para ocultar todas las etiquetas cuando se inicia 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 Escriba lo siguiente para crear un bucle de tiempo y repetir 10 veces mientras se pausa el código durante 5 segundos:
Hacer mientras que cnt <> 10
Select Case cnt
Caso es = 1
Me.Label1.Visible = True
Me.Label1.BackColor = vbBlue
Caso es = 2
Me.Label2.Visible = True
Me.Label2.BackColor = vbBlue
Caso es = 3
Me.Label3.Visible = True
Me.Label3.BackColor = vbBlue
Caso es = 4
Me.Label4.Visible = True
Me.Label4.BackColor = vbBlue
Caso es = 5
Me.Label5.Visible = True
Me.Label5.BackColor = vbBlue
Caso es = 6
Me.Label6.Visible = True
Me.Label6.BackColor = vbBlue
Caso Is = 7
Me.Label7.Visible = True
Me.Label7.BackColor = vbBlue
Caso es = 8
Me.Label8.Visible = True
Me.Label8.BackColor = vbBlue
Caso es = 9
Me.Label9.Visible = True
Me.Label9.BackColor = vbBlue
Caso Is = 10
Me.Label10.Visible = True
Me.Label10.BackColor = vbBlue
End Select
Me.Repaint
Application.Wait ahora + TimeValue ( "00:00:05")
cnt = cnt + 1
Lazo
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.":
showProgressBar sub ()
UserForm1.Show
End Sub
Pulse la tecla "F5" para ejecutar el programa.