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

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?