Como criar um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após certo tempo no Excel?
Ao usar a pasta de trabalho do Excel, você pode usar scripts VBA para resolver problemas. E haverá algumas caixas de mensagem aparecendo durante a execução do script. Em alguns casos, você desejará que algumas caixas de mensagem especificadas sejam fechadas automaticamente após um determinado tempo, em vez de fechá-las manualmente. Neste artigo, mostraremos o método de criação de um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após determinado tempo no Excel.
Crie um temporizador de caixa de mensagem para dispensar automaticamente a caixa de mensagem após certo tempo
Aqui, fornece um modelo de script VBA para você criar um cronômetro de caixa de mensagem.
Supondo que você esteja executando o script VBA para mover linhas com base no valor da célula. Depois de terminar de mover, você precisa que uma caixa de mensagem apareça para informar que a operação foi bem-sucedida e esta caixa de mensagem precisa fechar automaticamente após 4 segundos (veja a captura de tela abaixo). Por favor, siga os passos abaixo.
1. Abra a Microsoft Visual Basic para Aplicações janela, clique em inserção > Móduloe insira o código VBA que você deseja usar para mover linhas com base no valor da célula.
2. Copie o seguinte código VBA 1 e coloque-o antes do código que deseja operar. Veja a captura de tela abaixo:
Código VBA 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. Copie o código VBA 2 abaixo e coloque-o antes da linha "End Sub" do código que deseja operar.
Código VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Note: Você pode alterar o conteúdo da caixa de mensagem e o tempo de exibição da caixa de diálogo de acordo com suas necessidades.
4. Após executar o código para realizar a operação, uma caixa de mensagem aparecerá e fechará automaticamente após um certo tempo (neste caso são 4 segundos).
Artigos relacionados:
- Como abrir uma caixa de mensagem ao clicar em uma determinada célula no Excel?
- Como copiar texto de caixa de mensagem no Excel?
- Como abrir uma caixa de mensagem ao ativar / abrir uma planilha especificada no Excel?
- Como abrir uma caixa de mensagem pop-up para exibir o intervalo de células ou valores de células no Excel?
- Como abrir uma caixa de mensagem pop-up se o valor da célula mudar dentro de um intervalo no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
