Come creare un timer per una finestra di messaggio per chiudere automaticamente la finestra dopo un certo tempo in Excel?

Quando si utilizza una cartella di lavoro Excel, potresti spesso usare script VBA per risolvere problemi. Durante l'esecuzione dello script, potrebbero apparire alcune finestre di messaggio. In alcuni casi, vorrai che alcune finestre di messaggio specifiche si chiudano automaticamente dopo un certo periodo di tempo, invece di farlo manualmente. In questo articolo, ti mostreremo il metodo per creare un timer per una finestra di messaggio per chiuderla automaticamente dopo un certo tempo in Excel.

Crea un timer per una finestra di messaggio per chiudere automaticamente la finestra dopo un certo tempo

Crea un timer per una finestra di messaggio per chiudere automaticamente la finestra dopo un certo tempo

Qui viene fornito un modello di script VBA per creare un timer per una finestra di messaggio.

Supponendo che tu stia eseguendo uno script VBA per spostare righe basandoti sul valore della cella. Dopo aver finito di spostare, avrai bisogno di una finestra di messaggio che ti informi che l'operazione è stata completata con successo e questa finestra deve chiudersi automaticamente dopo 4 secondi (vedi screenshot sotto). Segui i passaggi seguenti.

1. Apri la finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo, e poi inserisci il codice VBA che vuoi utilizzare per spostare le righe basandoti sul valore della cella.

2. Copia il seguente codice VBA 1 e inseriscilo prima del codice che desideri eseguire. Vedi screenshot sotto:

Codice 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. Copia il seguente codice VBA 2 e inseriscilo prima della riga "End Sub" del codice che vuoi eseguire.

Codice VBA 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

Nota: Puoi cambiare il contenuto della finestra di messaggio e il tempo di visualizzazione della finestra di dialogo in base alle tue esigenze.

4. Dopo aver eseguito il codice per effettuare l'operazione, apparirà una finestra di messaggio che si chiuderà automaticamente dopo un certo tempo (in questo caso, 4 secondi).

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Articoli correlati:

• Come far apparire una finestra di messaggio quando si fa clic su una certa cella in Excel?
• Come copiare il testo da una finestra di messaggio in Excel?
• Come far apparire una finestra di messaggio all'attivazione/apertura di un foglio di lavoro specificato in Excel?
• Come far apparire una finestra di messaggio per visualizzare un intervallo di celle o valori delle celle in Excel?
• Come far apparire una finestra di messaggio se il valore della cella cambia all'interno di un intervallo in Excel?