Ugrás a tartalomra

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:

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

kte lap 201905


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ufff... great!!... very good... thank you
This comment was minimized by the moderator on the site
Ufff... buenisimo!!... muy bien... gracias
This comment was minimized by the moderator on the site
Hi. Thanks for this - it's really useful. Is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
Hi thebankman,This is the default application system sounds in windows. You can turn it off as shown in the screenshot below.
This comment was minimized by the moderator on the site
Thanks Crystal. Much appreciated
This comment was minimized by the moderator on the site
Hi. is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
It is really nice, but on my codes I'm using the "GetAsyncKeyState" function to recognize the entry status for my data (using an scan gun) and the "MsgBoxTimeout" function is affecting the "GetAsyncKeyState" function. Without the "MsgBoxTimeOut" everything is working normal, when I include it, is like disactivate the "GetAsyncKeyState" function, but both not want to work together. Have you any suggestion?
This comment was minimized by the moderator on the site
You are just perfect... :lol: :lol: :lol: 8) 8) 8)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations