Hvordan oprettes en meddelelsesboks-timer til automatisk at lukke meddelelsesboksen efter et bestemt tidspunkt i Excel?

Når du bruger Excel-projektmappe, kan du ofte bruge VBA-scripts til at løse problemer. Og der vil dukke nogle beskedbokse op, mens scriptet kører. I nogle tilfælde vil du have, at nogle angivne meddelelsesbokse lukkes automatisk efter et bestemt tidspunkt, i stedet for at lukke dem manuelt. I denne artikel viser vi dig metoden til at oprette en beskedboks-timer for automatisk at lukke beskedboksen efter et bestemt tidspunkt i Excel.

Opret en meddelelseskassetimer for automatisk at afvise meddelelsesboksen efter et bestemt tidspunkt

Opret en meddelelseskassetimer for automatisk at afvise meddelelsesboksen efter et bestemt tidspunkt

Her giver en VBA-scriptskabelon, som du kan oprette en meddelelsesboks-timer.

Antag, at du kører VBA-script for at flytte rækker baseret på celleværdi. Når du er færdig med at flytte, skal du have en beskedboks til at dukke op for at fortælle dig, at handlingen var vellykket, og denne beskedboks skal lukke automatisk efter 4 sekunder (se skærmbilledet nedenfor). Følg venligst nedenstående trin.

1. Åbn Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og indsæt derefter den VBA-kode, du vil bruge til at flytte rækker baseret på celleværdi.

2. Kopier følgende VBA-kode 1 og sæt den før den kode, du vil betjene. Se skærmbillede nedenfor:

VBA-kode 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. Kopier VBA-koden 2 nedenfor, og sæt den før linjen "End Sub" for den kode, du vil betjene.

VBA-kode 2:

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

Bemærk: Du kan ændre indholdet af beskedboksen og visningstiden for dialogboksen i henhold til dine behov.

4. Efter at have kørt koden for at udføre handlingen, vil en beskedboks poppe op og derefter lukke automatisk efter en bestemt tid (i dette tilfælde er 4 sekunder).

Relaterede artikler:

• Hvordan dukker pop op-meddelelsesfeltet, når du klikker på en bestemt celle i Excel?
• Hvordan kopieres tekst fra meddelelsesfeltet i Excel?
• Hvordan dukker en meddelelsesboks op, når du aktiverer / åbner et bestemt regneark i Excel?
• Hvordan dukker pop op-meddelelsesboks for at vise rækkevidde af celler eller celleværdier i Excel?
• Hvordan dukker op meddelelsesboks, hvis celleværdien ændres inden for et interval i Excel?