Como criar um temporizador para uma caixa de mensagem no Excel, de modo que ela se feche automaticamente após um determinado período?
Ao utilizar o Pasta de trabalho do Excel, poderá frequentemente recorrer a scripts VBA para resolver problemas. Durante a execução do script, poderão surgir algumas caixas de mensagem. Em determinados casos, pretenderá que algumas caixas de mensagem específicas sejam fechadas automaticamente após um certo período, em vez de as fechar manualmente. Neste artigo, mostramos-lhe um método para criar um temporizador de caixa de mensagem que fecha automaticamente a caixa após um determinado tempo no Excel.
Crie um temporizador de caixa de mensagem para fechar automaticamente a caixa após um determinado período
Aqui disponibilizamos um modelo de script VBA para criar um temporizador na caixa de mensagem.
Suponha que está a executar um script VBA para mover linhas com base no valor de uma célula. Após concluir a operação, pretende que apareça uma caixa de mensagem a indicar que esta foi bem-sucedida e que se feche automaticamente ao fim de 4 segundos (ver a captura de ecrã abaixo). Siga os passos indicados a seguir.
1. Abra a janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo e insira o código VBA que pretende utilizar para mover linhas com base no valor da célula.
2. Copie o seguinte código VBA 1 e insira-o antes do código que pretende executar. Consulte a captura de ecrã 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 insira-o antes da linha «End Sub» do código que pretende executar.
Código VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Nota: Pode personalizar o conteúdo da caixa de mensagem e o tempo de exibição da caixa de diálogo de acordo com as suas necessidades.
4. Após executar o código para realizar a operação, aparecerá uma caixa de mensagem que se fecha automaticamente após um determinado período (neste caso, 4 segundos).
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como exibir uma caixa de mensagem ao clicar numa célula específica no Excel?
- Como copiar texto de uma caixa de mensagem no Excel?
- Como exibir uma caixa de mensagem ao ativar ou abrir uma folha de cálculo específica no Excel?
- Como exibir uma caixa de mensagem com um intervalo de células ou os seus valores no Excel?
- Como exibir uma caixa de mensagem sempre que o valor de uma célula for alterado dentro de um intervalo específico no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos