Saltar al contenido
PROGRAMAR EN VBA MACROS DE EXCEL

Barra de progreso para una apariencia profesional


.

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.


.

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