Crear una barra de progreso en Excel

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.

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