Saltar al contenido
macrosenexcel.com

Barra de progreso para una apariencia profesional


(adsbygoogle = window.adsbygoogle || []).push({});

Barra de Progreso: se debe insertar la barra de progreso y agregar este procedimiento dentro de ella.

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
 

Si te fue de utilidad puedes INVITARME
UN CAFÉ
 y de esta manera ayudar a seguir
manteniendo la página descargar el ejemplo desde el link.


(adsbygoogle = window.adsbygoogle || []).push({});

If this post was
helpful INVITE ME A COFFEE and so help keep
up the page.