Especialmente, si usamos la instrucción Application.ScreenUpdating = False, que “congela” la pantalla y hace que parezca que el sistema dejó de funcionar. Podemos incluir un indicador de este tipo en la barra de estado de Excel, la que figura al pie de la pantalla.
Por ejemplo, supongamos que en la macro hay un ciclo For i = 1 To 1000; el cociente i/1000 da una medida del porcentaje de avance del ciclo. Entonces escribimos en el código, antes del Next que cierra el ciclo, la instrucción:
Application.StatusBar = Format(i / 1000, “0.00%”).
Esta instrucción muestra, al pie de la hoja, el valor de la expresión a la derecha del signo igual. En este caso, el porcentaje de progreso del ciclo. Para restituir la barra de estado estándar tenemos que incluir, al final del código, la instrucción:
Application.StatusBar = False
Este indicador de avance funciona aunque hayamos desactivado el refresco de pantalla.
Este texto en la barra de estado muestra el avance de la macro al estilo de una barra de progreso.
