Logo_excel

Ejemplo de barra de progreso para las macros que diseñemos con VBA en excel. El siguiente ejemplo ha sido probado con Excel 2010.

Excel_BarraProgreso

Barra de progreso en la barra de estado de Excel

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