Quando você tem uma macro / código vba grande que precisa ser executado por muitos minutos, pode alterar o cursor para a ampulheta ou cursor de espera (com base na configuração do sistema) para o período em que a macro está sendo executada. Assim que a macro estiver concluída, o cursor pode ser restaurado de volta ao cursor padrão.
Este é um código de amostra que mostra como você pode alterar o cursor.
Opção Explícita
Sub macro1 ()
Application.Cursor = xlWait
‘Codifique aqui
Application.Cursor = xlDefault End Sub
- Após as declarações dim (este código de amostra ainda não tem nenhuma), definimos Application.Cursor = xlWait no início do código.
- Em seguida, você pode incluir qualquer código que você precisa para executar. Se você precisar chamar vários subs / procedures, pode fazê-lo aqui ou apenas inserir o código inteiro aqui.
- Então, antes da instrução End Sub, você precisa redefinir o cursor de volta ao padrão. Fazemos isso usando a linha Application.Cursor = xlDefault
- Você pode incluir todas as outras declarações de que precisa, como Application.ScreenUpdating = FalseouApplication.DisplayAlerts = Falsejuntamente com o Application.Cursor = xlWaitdemonstração. Da mesma forma, você pode incluir Application.ScreenUpdating = True ou Application.DisplayAlerts = True juntamente com o Application.Cursor = xlDefaultdemonstração.
- Para copiar este código, pressione as teclas Alt + F11 no teclado. Isso abrirá o módulo de código. No lado esquerdo, você verá os objetos do Microsoft Excel. Clique com o botão direito e selecione Inserir e, a seguir, selecione Módulo. Copie o código na janela de código à direita.