Inicio » VBA-Ejemplos » Crear una barra de progreso en Excel

Crear una barra de progreso en Excel

Share

José Skraviuk | 13/12/2005

Un ejemplo de una macro VBA de como crear una barra de progreso (progress bar) para incluir en nuestras aplicaciones y plantillas Excel.

Crear una barra de progreso en Excel VBA.

De esta forma podemos añadir un medidor de progreso gráfico a la barra de estado de Excel.

El código


Option Explicit
 
Sub BarraDeProgreso()
 
Dim R As Integer
Dim MT As Double
For R = 1 To 180
MT = Timer
Do
Loop While Timer - MT < 0.05
Application.StatusBar = "Progress: " & R & " de 180: " & _
Format(R / 180, "Percent") & " --- " & "Cumplimiento"
DoEvents
Next R
Application.StatusBar = False
 
End Sub