-
Cómo hacer Indicadores de Progreso en un formulario VBA
-
Visual Basic para Aplicaciones o VBA, es un lenguaje de programación orientado a eventos utilizado para el desarrollo de aplicaciones y programas basados en Windows. Se puede acceder a través de Microsoft Excel y se utiliza para una variedad de funciones, tales como la automatización de procesos, la creación de formularios personalizados o barras de herramientas y la creación de barras del indicador de progreso. Con la secuencia de comandos de VBA, puede crear un formulario con los indicadores de la barra de progreso y el código de entrada con el lanzamiento a través de Microsoft Excel.
Instrucciones
1 Lanzamiento de Microsoft Excel y pulse "Alt" y "F11" en el teclado para abrir VBA. Haga clic en "Proyecto de VBA", "formulario de usuario". Haga clic en "Herramientas", "Etiqueta".
2 Haga clic en la etiqueta y haga clic en "Propiedades". Seleccione la altura y anchura para adaptarse a sus preferencias. Crear nueve etiquetas más con las mismas dimensiones.
3 Haga clic en "caja de herramientas", "CommandButton" para crear un botón de comando. Haga clic en "CommandButton" y haga clic en "Ver código". Escriba la siguiente secuencia de comandos para agregar una nueva variable:
cnt As Integer Dim
cnt = 0
4 Escriba el siguiente código para ocultar sus etiquetas:
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
5 Escriba el siguiente código para crear un bucle entre sus etiquetas:
Hacer mientras que cnt <> 10
Seleccione la caja 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
6 Haga clic en "Insertar" y "módulo" y escriba el código siguiente para crear su barra de progreso:
showProgressBar sub ()
UserForm1.Show
End Sub
Pulse la tecla "F5" para guardar la configuración.