Como criar um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após certo tempo no Excel?
Ao usar uma pasta de trabalho do Excel, você pode frequentemente usar scripts VBA para resolver problemas. E durante a execução do script, algumas caixas de mensagem podem aparecer. Em alguns casos, você pode querer que determinadas caixas de mensagem sejam fechadas automaticamente após um certo tempo, em vez de fechá-las manualmente. Neste artigo, mostraremos o método para criar um temporizador de caixa de mensagem para fechar automaticamente a caixa de mensagem após certo tempo no Excel.
Crie um temporizador de caixa de mensagem para dispensar automaticamente a caixa de mensagem após certo tempo.
Aqui está um modelo de script VBA para você criar um temporizador de caixa de mensagem.
Suponha que você esteja executando um script VBA para mover linhas com base no valor da célula. Após concluir a movimentação, você precisa que uma caixa de mensagem apareça para informar que a operação foi bem-sucedida e essa caixa de mensagem precisa ser fechada automaticamente após 4 segundos (veja a captura de tela abaixo). Por favor, siga os passos abaixo.
1. Abra a janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e insira o código VBA que 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 "Fim 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)
Observação: Você pode alterar o conteúdo da caixa de mensagem e o tempo de exibição da caixa de diálogo conforme necessário.
4. Após executar o código para realizar a operação, uma caixa de mensagem aparecerá e depois será fechada automaticamente após certo tempo (neste caso, são 4 segundos).
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
- Como fazer uma caixa de mensagem aparecer ao clicar em uma determinada célula no Excel?
- Como copiar texto de uma caixa de mensagem no Excel?
- Como fazer uma caixa de mensagem aparecer ao ativar/abrir uma planilha específica no Excel?
- Como fazer uma caixa de mensagem aparecer para exibir um intervalo de células ou valores de células no Excel?
- Como fazer uma caixa de mensagem aparecer se o valor da célula mudar dentro de um intervalo no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins