En la esquina inferior izquierda de Excel, encontrará una barra de estado:
Excel usa esta barra de estado para comunicarle mensajes. Sin embargo, la propiedad StatusBar también se puede ajustar usando VBA, lo que le permite mostrar sus propios mensajes.
Mensaje de barra de estado personalizado
Puede actualizar la barra de estado con su propio mensaje personalizado en Excel mientras se ejecuta una macro, utilizando el Barra de estado propiedad.
1. Coloque este código en una macro siempre que desee actualizar al usuario con un mensaje de barra de estado personalizado:
| 1 | Application.StatusBar = "¡¡¡Estoy trabajando ahora !!!" |
2. Y al final de su macro, coloque este código para borrar la barra de estado y devolver el control a Excel:
| 1 | Application.StatusBar = FALSE |
Deshabilitar la actualización de la barra de estado
En lugar de mostrar un mensaje mientras se ejecuta el procedimiento, puede desactivar la barra de estado. Esto aumentará la velocidad de su código VBA ya que Excel puede omitir el procesamiento de qué mensaje de la barra de estado mostrar.
Para deshabilitar la actualización de la barra de estado mientras su código se está ejecutando, configure el DisplayStatusBar propiedad a falso.
| 1 | Application.DisplayStatusBar = False |
Al final de su código, restaure la actualización de la barra de estado:
| 1 | Application.DisplayStatusBar = True |
¡Importante! Utilizar el Barra de estado propiedad para establecer mensajes, pero use la DisplayStatusBar propiedad para deshabilitar o habilitar la barra de estado por completo.
Acelerar el código VBA
Para una velocidad de procesamiento óptima, intente usar este código:
| 12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = FalsoApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalsoApplication.Calculation = xlCalculationManual'Tu código aquíApplication.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = VerdaderoApplication.Calculation = xlCalculationAutomaticend sub |
