VBA – Mostrar Mensaje en la Barra de Estado

En la esquina inferior izquierda de Excel, encontrará una Barra de Estado:

Excel utiliza esta barra de estado para comunicarle mensajes. Sin embargo, la Propiedad StatusBar también puede ajustarse utilizando VBA, permitiéndole mostrar sus propios mensajes.

Mensaje Personalizado de la Barra de Estado

Puede actualizar la barra de estado con su propio mensaje personalizado en Excel mientras se ejecuta una macro, utilizando la propiedad StatusBar.

1. Coloque este código en una macro siempre que desee actualizar al usuario con un mensaje personalizado en la barra de estado:

Application.StatusBar = "¡¡¡Ya estoy trabajando!!!"

2. Y al final de tu macro coloca este código para borrar la barra de estado y devolver el control a Excel:

Application.StatusBar = FALSE

Desactivar la Actualización de la Barra de Estado

En lugar de mostrar un mensaje mientras se ejecuta su 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 desactivar la actualización de la Barra de Estado mientras se ejecuta su código establezca la propiedad DisplayStatusBar a false.

Application.DisplayStatusBar = False

Al final de su código, restaure la actualización de la Barra de Estado:

Application.DisplayStatusBar = True

¡Importante! Utilice la propiedad StatusBar para establecer mensajes, pero utilice la propiedad DisplayStatusBar para desactivar o activar la barra de estado por completo.

Acelerar el Código VBA

Para una velocidad de procesamiento óptima intente utilizar este código:

Sub RunFast()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    Application.Calculation = xlCalculationManual
    
    'Coloque su código aqui.
    
    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
    Application.EnableEvents = True
    ActiveSheet.DisplayPageBreaks = True
    Application.Calculation = xlCalculationAutomatic
End Sub

<<Volver a Ejemplos VBA