Ejemplo de barra de progreso para las macros que diseñemos con VBA en excel. El siguiente ejemplo ha sido probado con Excel 2010.
Código:
' Ejemplo de barra de progreso en la barra de estado de excel Sub Test_Barra_Progreso() For x = 1 To 10 Application.Wait (Now + TimeValue("0:00:01")) 'Barra de estado para mostrar el progreso Application.StatusBar = "Progress: " & x & " of 10: " & Format(x / 10, "0%") 'Mismo ejemplo pero para un número máximo "NumRows" de iteraciones de un bucle 'Application.StatusBar = "Progress: " & x & " of " & NumRows & ": " & Format(x / NumRows, "0%") Next End Sub