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).
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?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
