Come creare un timer per la finestra di messaggio in modo che si chiuda automaticamente dopo un certo tempo in Excel?
Quando utilizzi una cartella di lavoro Excel, capita spesso di ricorrere a script VBA per risolvere determinati problemi. Durante l'esecuzione dello script, potrebbero apparire alcune finestre di messaggio. In alcuni casi, vorresti che specifiche finestre di messaggio si chiudessero automaticamente dopo un certo intervallo di tempo, anziché richiedere un’azione manuale. In questo articolo ti mostreremo come creare un timer per la finestra di messaggio, in modo che si chiuda automaticamente dopo un periodo prestabilito in Excel.
Crea un timer per la finestra di messaggio che la chiuda automaticamente dopo un certo tempo
Crea un timer per la finestra di messaggio che la chiuda automaticamente dopo un certo tempo
Di seguito trovi un modello di script VBA per creare un timer nella finestra di messaggio.
Immagina di eseguire uno script VBA per spostare righe in base al valore di una cella. Al termine dell’operazione, vorresti che apparisse una finestra di messaggio a conferma del completamento, che si chiuda automaticamente dopo 4 secondi (vedi screenshot seguente). Segui i passaggi indicati di seguito.
1. Apri la finestra Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo, quindi inserisci il codice VBA che desideri utilizzare per spostare le righe in base al valore della cella.
2. Copia il seguente codice VBA 1 e inseriscilo prima del codice che desideri eseguire. Consulta lo screenshot seguente:
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 riportato di seguito e inseriscilo prima della riga «End Sub» del codice che intendi 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 personalizzare il contenuto del messaggio e la durata della sua visualizzazione in base alle tue esigenze.
4. Al termine dell'esecuzione del codice, verrà visualizzata una finestra di messaggio che si chiuderà automaticamente dopo un breve intervallo (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, il tutto con comandi semplici e intuitivi.
- Formule personalizzate: crea formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA in modo semplice e immediato.
- Interpretazione delle formule: Comprendi con facilità anche le formule più complesse.
- Traduzione del testo: Superate le barriere linguistiche direttamente nei vostri fogli di calcolo.
Articoli correlati:
- Come visualizzare una finestra di messaggio facendo clic su una specifica cella in Excel?
- Come si fa a copiare il testo da una finestra di messaggio in Excel?
- Come visualizzare una finestra di messaggio all’apertura o all’attivazione di un foglio di lavoro specifico in Excel?
- Come visualizzare una finestra di messaggio per mostrare un intervallo di celle o i relativi valori in Excel?
- Come visualizzare una finestra di messaggio quando il valore di una cella all’interno di un intervallo specifico in Excel viene modificato?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi