Hogyan hozhatunk létre egy üzenetdoboz időzítőt az üzenetdoboz automatikus bezárásához az Excel bizonyos idő után?
Az Excel-munkafüzet használatakor gyakran használhat VBA-parancsfájlokat a problémák megoldására. És a szkript futása közben felbukkan néhány üzenetdoboz. Egyes esetekben azt szeretné, hogy egyes megadott üzenetablakok egy adott idő után automatikusan bezárjanak, ahelyett, hogy manuálisan zárnák be. Ebben a cikkben bemutatjuk, hogyan hozhat létre üzenetmező-időzítőt az üzenetablak automatikus bezárásához bizonyos idő elteltével az Excelben.
Hozzon létre egy üzenetdoboz időzítőt az üzenetdoboz automatikus elvetéséhez bizonyos idő után
Hozzon létre egy üzenetdoboz időzítőt az üzenetdoboz automatikus elvetéséhez bizonyos idő után
Itt található egy VBA parancsfájl sablon, amellyel létrehozhat egy üzenetdoboz időzítőt.
Tegyük fel, hogy VBA-szkriptet futtat a sorok cellaérték alapján történő mozgatásához. A költözés befejezése után fel kell bukkannia egy üzenetablaknak, amely jelzi, hogy a művelet sikeres volt, és ennek az üzenetablaknak 4 másodperc után automatikusan be kell zárnia (lásd lent a képernyőképet). Kérjük, kövesse az alábbi lépéseket.
1. Nyissa meg a Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd illessze be a VBA-kódot, amelyet a cellaérték alapján a sorok mozgatásához használni szeretne.
2. Másolja ki a következő VBA-kódot 1, és helyezze a kezelni kívánt kód elé. Lásd az alábbi képernyőképet:
VBA kód 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. Másolja ki az alábbi VBA 2-es kódot, és tegye a kezelni kívánt kód "End Sub" sora elé.
VBA kód 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Megjegyzések: Igényei szerint módosíthatja az üzenetablak tartalmát és a párbeszédpanel megjelenítési idejét.
4. A művelet végrehajtásához szükséges kód futtatása után egy üzenetablak jelenik meg, majd bizonyos idő elteltével (jelen esetben 4 másodperc) automatikusan bezárul.
Kapcsolódó cikkek:
- Hogyan jelenik meg az üzenetmező, amikor az Excel egy bizonyos cellájára kattint?
- Hogyan lehet szöveget másolni az Excel üzenetmezőjéből?
- Hogyan jelenítsen meg egy üzenetdobozt egy megadott munkalap aktiválásakor / megnyitásakor az Excelben?
- Hogyan jelenik meg az üzenetmező, hogy megjelenítse a cellák tartományát vagy a cellaértékeket az Excelben?
- Hogyan jelenjen meg az üzenetmező, ha a cella értéke egy tartományon belül változik az Excelben?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!