No canto inferior esquerdo do Excel, você encontrará uma Barra de status:
O Excel usa essa barra de status para comunicar mensagens a você. No entanto, a propriedade StatusBar também pode ser ajustada usando o VBA, permitindo que você exiba suas próprias mensagens.
Mensagem da barra de status personalizada
Você pode atualizar a barra de status com sua própria mensagem personalizada no Excel enquanto uma macro está em execução, usando o Barra de status propriedade.
1. Coloque este código em uma macro sempre que desejar atualizar o usuário com uma mensagem personalizada da barra de status:
| 1 | Application.StatusBar = "Estou trabalhando agora !!!" |
2. E no final de sua macro coloque este código para limpar a barra de status e retornar o controle ao Excel:
| 1 | Application.StatusBar = FALSE |
Desativar atualização da barra de status
Em vez de exibir uma mensagem enquanto seu procedimento é executado, você pode desativar a barra de status. Isso aumentará a velocidade do seu código VBA, pois o Excel pode pular o processamento da mensagem da barra de status a ser exibida.
Para desativar a atualização da barra de status enquanto seu código está em execução, defina o DisplayStatusBar propriedade para falsa.
| 1 | Application.DisplayStatusBar = False |
No final do seu código, restaure a atualização da Barra de Status:
| 1 | Application.DisplayStatusBar = True |
Importante! Use o Barra de status propriedade para definir mensagens, mas use a DisplayStatusBar propriedade para desativar ou ativar a barra de status completamente.
Acelerar o código VBA
Para obter a velocidade de processamento ideal, tente usar este código:
| 12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.Calculation = xlCalculationManual'Seu código aquiApplication.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueApplication.Calculation = xlCalculationAutomaticfinal sub |
