Saltar al contenido

Sobre el aporte

Hola compañeros,

Quiero compartir con todos vosotros la barra de progreso que personalmente utilizo en mis aplicaciones ofimáticas.

Antes de nada, me gustaría apuntar que sólo recomiendo utilizar dicha barra de progreso en aquellos procedimientos en los que se haga un recorrido por todas las celdas de la hoja, tal y como puede comprobarse en el fichero adjunto.

Sin más que añadir, este es el código:

Sub BarraDeProgreso()

Application.ScreenUpdating = False

   ' Limpiamos los errores anteriores (por si acaso)...
   Err.Clear

   ' Tratamos los errores del procedimiento...
   On Error Resume Next

   ' Declaramos las constantes y variables locales...
   Const LONGITUD As Byte = 25
   Dim contador As Byte

   ' Recorremos el bucle...
   For contador = 1 To LONGITUD
      ' Iniciamos la barra de progreso...
      Application.StatusBar = Application.Rept(ChrW(9607), contador) & "  " & _
                              Application.Rept("  ", LONGITUD - contador) & Int(contador * 100 / LONGITUD) & "% completado" & _
                              IIf(contador <> LONGITUD, "...", ".")
      ' E insertamos aquí el procedimiento...
      ' ...
   Next contador

   ' Esperamos unos segundos...
   Call Application.Wait(Now + TimeValue("0:00:03"))

   ' Y finalizamos la barra de progreso...
   Application.StatusBar = False

'End Sub

Espero que os sea de utilidad.

Gracias, y un saludo.

 

Editado el por paikerr


Comentarios de los usuarios

Recommended Comments

No hay comentarios a visualizar.

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.