¿cómo mostrar/ocultar la barra de estado usando vba?

En VBA, hay una propiedad «Barra de estado» que puede ayudarlo a mostrar un valor en la barra de estado y también hay una «DisplayStatusBar» para ocultar y mostrar el estado de la ventana de Excel. Al utilizar estas propiedades, debe restablecer la barra de estado hasta el final; de lo contrario, el último mensaje o configuración permanecerá allí.

En el tutorial veremos algunos ejemplos que podemos utilizar a la hora de trabajar en Excel.

Mostrar un valor en la barra de estado

Como dije, puedes usar la propiedad StatusBar para mostrar un valor en la barra de estado. En el código siguiente, utilizó el valor «Hola» para agregarlo a la barra de estado.

1. Utilice la palabra clave «Aplicación» para referirse a la aplicación Excel.
2. Escriba un punto para obtener una lista de propiedades y métodos.
3. Seleccione la propiedad «Barra de estado».
4. Al final, use el signo igual para especificar el valor que desea mostrar en la barra de estado.

 Sub vba_status_bar() Application.StatusBar = "Hello" End Sub

Ocultar barra de estado usando VBA

Ahora supongamos que si desea ocultar la barra de estado, puede usar DisplayStatusBar y especificar esta propiedad en «False» ( considere el siguiente código ).

1. Utilice la palabra clave «Aplicación» para referirse a la aplicación Excel.
2. Escriba un punto para obtener una lista de propiedades y métodos.
3. Seleccione la propiedad «DisplayStatusBar».
4. Al final, utilice el signo igual para especificar «Falso».

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Actualizar el progreso en la barra de estado

Las ejecuciones de código posteriores muestran un contador de progreso en la barra de estado usando el número del 1 al 100, que puede cambiar según sea necesario.

 Sub vba_status_bar_update() Dim x As Integer Dim iTimer As Double 'you can change the loop if you need For x = 1 To 100 'dummy loop to run, you can change it as well iTimer = Timer Do Loop While Timer - MyTimer < 0.03 Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent") DoEvents Next x Application.StatusBar = False End Sub

Puntos importantes para recordar

1. Debes usar una «aplicación» con las propiedades de la barra de estado para usarlas.
2. Una vez que vea un mensaje sobre el estado, deberá borrar ese mensaje.