Come creare un timer della finestra di messaggio per chiudere automaticamente la finestra di messaggio dopo un certo tempo in Excel?
Quando si utilizza la cartella di lavoro di Excel, è possibile utilizzare spesso gli script VBA per risolvere i problemi. E ci saranno alcune finestre di messaggio che appariranno durante l'esecuzione dello script. In alcuni casi, vorrai che alcune finestre di messaggio specifiche si chiudano automaticamente dopo un certo tempo, invece di chiuderle manualmente. In questo articolo, ti mostreremo il metodo per creare un timer per la finestra di messaggio per chiudere automaticamente la finestra di messaggio dopo un certo tempo in Excel.
Crea un timer per la finestra di messaggio per chiudere automaticamente la finestra di messaggio dopo un certo tempo
Qui fornisce un modello di script VBA per creare un timer della finestra di messaggio.
Supponendo che tu stia eseguendo lo script VBA per spostare le righe in base al valore della cella. Dopo aver terminato lo spostamento, è necessario che venga visualizzata una finestra di messaggio per informarti che l'operazione è andata a buon fine e che questa finestra di messaggio deve chiudersi automaticamente dopo 4 secondi (vedi screenshot sotto). Si prega di seguire i passaggi seguenti.
1. Apri il Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli, quindi inserisci il codice VBA che vuoi usare per spostare le righe in base al valore della cella.
2. Copia il seguente codice VBA 1 e mettilo prima del codice che desideri utilizzare. Vedi screenshot qui 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 codice VBA 2 di seguito e mettilo prima della riga "End Sub" del codice che desideri utilizzare.
Codice VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Note:: È possibile modificare il contenuto della finestra di messaggio e il tempo di visualizzazione della finestra di dialogo in base alle proprie esigenze.
4. Dopo aver eseguito il codice per eseguire l'operazione, verrà visualizzata una finestra di messaggio che si chiuderà automaticamente dopo un certo tempo (in questo caso è di 4 secondi).
Articoli correlati:
- Come visualizzare la finestra di messaggio quando si fa clic su una determinata cella in Excel?
- Come copiare il testo dalla finestra dei messaggi in Excel?
- Come far apparire una finestra di messaggio all'attivazione / apertura di un foglio di lavoro specificato in Excel?
- Come visualizzare la finestra di messaggio per visualizzare l'intervallo di celle o i valori di cella in Excel?
- Come visualizzare la finestra di messaggio se il valore della cella cambia all'interno di un intervallo in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!