Cum se creează un temporizator de casetă de mesaje pentru a închide automat caseta de mesaje după un anumit timp în Excel?

Când utilizați registrul de lucru Excel, puteți utiliza adesea scripturi VBA pentru a rezolva probleme. Și vor apărea câteva casete de mesaje în timpul rulării scriptului. În unele cazuri, veți dori ca anumite casete de mesaje specificate să se închidă automat după un anumit timp, în loc să le închideți manual. În acest articol, vă vom arăta metoda de a crea un temporizator pentru caseta de mesaje pentru a închide automat caseta de mesaj după un anumit timp în Excel.

Creați un cronometru casetă de mesaje pentru a respinge automat caseta de mesaje după un anumit timp

Creați un cronometru casetă de mesaje pentru a respinge automat caseta de mesaje după un anumit timp

Aici oferă un șablon de script VBA pentru a crea un temporizator de casetă de mesaje.

Să presupunem că rulați script VBA pentru a muta rândurile pe baza valorii celulei. După ce ați terminat mutarea, aveți nevoie de o casetă de mesaj care să vă spună că operațiunea a avut succes și că această casetă de mesaj trebuie să se închidă automat după 4 secunde (vezi captura de ecran de mai jos). Vă rugăm să urmați pașii de mai jos.

1. Deschide Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi introduceți codul VBA pe care doriți să îl utilizați pentru a muta rândurile în funcție de valoarea celulei.

2. Copiați următorul cod VBA 1 și puneți-l înaintea codului pe care doriți să-l operați. Vedeți captura de ecran de mai jos:

Cod 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ți codul VBA 2 de mai jos și puneți-l înaintea liniei „End Sub” a codului pe care doriți să-l operați.

Cod VBA 2:

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

notițe: Puteți modifica conținutul casetei de mesaj și timpul de afișare a casetei de dialog în funcție de nevoile dvs.

4. După rularea codului pentru a efectua operația, va apărea o casetă de mesaj și apoi se va închide automat după un anumit timp (în acest caz este de 4 secunde).

Deblocați Excel Magic cu Kutools AI

• Execuție inteligentă: Efectuați operații cu celule, analizați date și creați diagrame, toate conduse de comenzi simple.
• Formule personalizate: generați formule personalizate pentru a vă simplifica fluxurile de lucru.
• Codare VBA: Scrieți și implementați codul VBA fără efort.
• Interpretarea formulei: Înțelegeți cu ușurință formulele complexe.
• Traducere text: spargeți barierele lingvistice din foile de calcul.

Îmbunătățiți-vă capabilitățile Excel cu instrumente bazate pe inteligență artificială. Descarcă acum și experimentați eficiența ca niciodată!

Articole pe aceeași temă:

• Cum să pop-up caseta de mesaj atunci când faceți clic pe o anumită celulă din Excel?
• Cum se copiază textul din caseta de mesaje în Excel?
• Cum să deschideți o casetă de mesaj la activarea / deschiderea unei foi de lucru specificate în Excel?
• Cum să pop-up caseta de mesaj pentru a afișa gama de celule sau valorile celulei în Excel?
• Cum să pop-up caseta de mesaj dacă valoarea celulei se modifică într-un interval din Excel?