Segunda ejecución de macro con lentitud

lmorente · el 20 de diciembre

Buenas gente, a ver si me podéis ayudar.

Tengo un código con el cual creo una barra de progreso para ver el estado de la macro en ejecución. Hasta aquí todo perfecto. El caso es que la primera vez que ejecuto la macro una vez abierta la excel, todo funciona correctamente, es en las ejecuciones posteriores que la macro va excesivamente lenta.

Este es el código que da problemas:

Do While LineaActual < UltimaLinea


        ContadorEscalones = ContadorEscalones + 1



        Me.Caption = "Calculando precio " & ContadorEscalones & " de " & NumeroEscalonesPrecios



        frm_Progreso.lbl_ProgressBar.Width = frm_Progreso.lbl_ProgressBar.Width + PixelesPorEscalon



        DoEvents


'Aqui en medio van más líneas de código

Loop

[/CODE]

Básicamente lo que hago es agrandar un label con fondo azul conforme van pasando las repeticiones del DoWhile y para que se actualice el label pongo el DoEvents. Es este DoEvents el que me ralentiza la macro, ya que al comentar esa línea ya no me pasa.

Lo único que no me cuadra es que la primera vez que la ejecuto va como un rayo y las siguientes van extremadamente lentas.

Agradeceré cualquier comentario.

Pinta · el 20 de diciembre

Puede ser que se te esté cargando en memoria y por eso te ralentiza. Yo utilizo la barra de status cuando quiero mostrar el progreso en las aplicaciones. Te dejo un ejemplo por si te vale.

Crea un módulo clase y copia esto:

Option Explicit
Private mValor As Long
Private mFinal As Long
Public Property Get Valor() As Long
    Valor = mValor
End Property
Public Property Let Valor(NuevoValor As Long)
    mValor = NuevoValor
End Property
Public Property Get Final() As Long
    Final = mFinal
End Property
Public Property Let Final(NuevoValor As Long)
    mFinal = NuevoValor
End Property
Public Sub Ejecuta()
    Dim Progreso As Byte
    Const Largo As Byte = 20
    Progreso = VBA.Int(mValor / Final * Largo)
    BarraDeEstado Progreso, Largo
End Sub
Private Sub BarraDeEstado(ByVal Progreso As Byte, ByVal Largo As Byte)
    If Progreso &lt; Largo Then
        Application.StatusBar = VBA.ChrW(9599) &amp; _
                                VBA.String(Progreso, VBA.ChrW(9607)) &amp; _
                                VBA.String(Largo - Progreso, VBA.ChrW(9620)) &amp; _
                                VBA.ChrW(9599) &amp; "  " &amp; _
                                Progreso * (100 / Largo) &amp; "% completado"
    Else
        Application.StatusBar = False
    End If
End Sub

Un ejemplo de como utilizarlo:

Sub EjecutaBarraProgreso()
    Dim Barra As New BarraProgreso
    Barra.Final = 10000
    For a = 1 To Barra.Final
        Barra.Valor = a
        Barra.Ejecuta
    Next a
    Set Barra = Nothing
End Sub