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
Uso de cookies

Este sitio web utiliza cookies para que usted tenga la mejor experiencia de usuario. Si continúa navegando está dando su consentimiento para la aceptación de las mencionadas cookies y la aceptación de nuestra política de cookies, pinche el enlace para mayor información.

ACEPTAR
Aviso de cookies