Como mostrar/ocultar a barra de status usando vba?

No VBA, existe uma propriedade “Status Bar” que pode ajudá-lo a exibir um valor na barra de status e também existe “DisplayStatusBar” para ocultar e mostrar o status da janela do Excel. Ao usar essas propriedades, você deve redefinir a barra de status para o final, caso contrário a última mensagem ou configuração permanecerá lá.

No tutorial veremos alguns exemplos que podemos usar ao trabalhar no Excel.

Mostrar um valor na barra de status

Como eu disse, você pode usar a propriedade StatusBar para exibir um valor na barra de status. No código abaixo, você usou o valor “Hello” para adicionar à barra de status.

1. Use a palavra-chave “Aplicativo” para se referir ao aplicativo Excel.
2. Digite um ponto final para obter uma lista de propriedades e métodos.
3. Selecione a propriedade “StatusBar”.
4. No final, use o sinal de igual para especificar o valor que deseja exibir na barra de status.

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

Ocultar barra de status usando VBA

Agora suponha que se você deseja ocultar a barra de status, você pode usar DisplayStatusBar e especificar esta propriedade como “False” ( considere o código a seguir ).

1. Use a palavra-chave “Aplicativo” para se referir ao aplicativo Excel.
2. Digite um ponto final para obter uma lista de propriedades e métodos.
3. Selecione a propriedade “DisplayStatusBar”.
4. No final, use o sinal de igual para especificar “Falso”.

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Atualizar o progresso na barra de status

As execuções de código subsequentes exibem um contador de progresso na barra de status usando o número de 1 a 100, que você pode alterar conforme necessário.

 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

Pontos importantes a serem lembrados

1. Você precisa usar “app” com propriedades da barra de status para usá-los.
2. Depois de visualizar uma mensagem sobre o status, você precisa apagá-la.