Como acessar a barra de status do Excel
Você gostaria de usar a barra de status para exibir seu próprio texto ou informações enquanto uma macro está sendo executada?
Acesse a barra de status diretamente usando a propriedade Application.StatusBar usar. A macro a seguir demonstra como fazer isso:
Barra de sub status ()
Dim OnOff As Boolean
OnOff = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Minha mensagem …"
'insira comandos aqui
Application.StatusBar = False
Application.DisplayStatusBar = OnOff
End Sub
A macro registra primeiro se a barra de status está atualmente exibida ou oculta. Em seguida, a barra é ligada e o texto "Minha mensagem é emitida aqui. A barra de status é então redefinida para o valor padrão. A barra é desligada se também tiver sido desligada antes de a macro ser chamada.
Ao executar a macro, você pode ver a nova mensagem na barra de status:
