Wie erstelle ich einen Nachrichtenbox-Timer, um das Nachrichtenfeld nach einer bestimmten Zeit in Excel automatisch zu schließen?
Wenn Sie eine Excel-Arbeitsmappe verwenden, verwenden Sie möglicherweise häufig VBA-Skripts, um Probleme zu lösen. Und während der Ausführung des Skripts werden einige Meldungsfelder angezeigt. In einigen Fällen möchten Sie, dass bestimmte Meldungsfelder nach einer bestimmten Zeit automatisch geschlossen werden, anstatt sie manuell zu schließen. In diesem Artikel zeigen wir Ihnen eine Methode zum Erstellen eines Meldungsfeld-Timers, um das Meldungsfeld nach einer bestimmten Zeit in Excel automatisch zu schließen.
Erstellen Sie einen Nachrichtenbox-Timer, um das Nachrichtenfeld nach einer bestimmten Zeit automatisch zu schließen
Hier finden Sie eine VBA-Skriptvorlage, mit der Sie einen Nachrichtenfeld-Timer erstellen können.
Angenommen, Sie führen ein VBA-Skript aus, um Zeilen basierend auf dem Zellenwert zu verschieben. Nach Abschluss des Verschiebens muss ein Meldungsfeld angezeigt werden, das Ihnen mitteilt, dass der Vorgang erfolgreich war, und dieses Meldungsfeld muss nach 4 Sekunden automatisch geschlossen werden (siehe Screenshot unten). Bitte befolgen Sie die nachstehenden Schritte.
1. Öffnen Sie die Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul, und fügen Sie dann den VBA-Code ein, den Sie verwenden möchten, um Zeilen basierend auf dem Zellenwert zu verschieben.
2. Kopieren Sie den folgenden VBA-Code 1 und setzen Sie ihn vor den Code, den Sie ausführen möchten. Siehe Screenshot unten:
VBA-Code 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. Kopieren Sie den VBA-Code 2 unten und setzen Sie ihn vor die Zeile "End Sub" des Codes, den Sie ausführen möchten.
VBA-Code 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Note: Sie können den Inhalt des Meldungsfelds und die Anzeigezeit des Dialogfelds Ihren Anforderungen entsprechend ändern.
4. Nachdem Sie den Code zum Ausführen des Vorgangs ausgeführt haben, wird ein Meldungsfeld angezeigt und nach einer bestimmten Zeit (in diesem Fall 4 Sekunden) automatisch geschlossen.
In Verbindung stehende Artikel:
- Wie wird ein Meldungsfeld angezeigt, wenn Sie in Excel auf eine bestimmte Zelle klicken?
- Wie kopiere ich Text aus dem Meldungsfeld in Excel?
- Wie wird beim Aktivieren / Öffnen eines bestimmten Arbeitsblatts in Excel ein Meldungsfeld angezeigt?
- Wie wird ein Meldungsfeld geöffnet, um den Zellenbereich oder die Zellenwerte in Excel anzuzeigen?
- Wie wird ein Meldungsfeld angezeigt, wenn sich der Zellenwert innerhalb eines Bereichs in Excel ändert?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!