Hoe stelt u een timer in voor een meldingsvenster in Excel, zodat het automatisch sluit na een bepaalde tijd?
Bij het werken met Excel-werkboeken gebruikt u vaak VBA-scripts om problemen op te lossen. Tijdens het uitvoeren van zo’n script verschijnen er soms meldingsvensters. In bepaalde situaties wilt u dat deze automatisch sluiten na een vooraf ingestelde tijd, in plaats van ze handmatig te moeten wegklikken. In dit artikel laten we u een methode zien om een timer aan een meldingsvenster toe te voegen, zodat het venster in Excel automatisch verdwijnt na de ingestelde tijd.
Maak een timer voor een meldingsvenster om het automatisch te sluiten na een bepaalde tijd
Maak een timer voor een meldingsvenster om het automatisch te sluiten na een bepaalde tijd
Hieronder vindt u een VBA-scriptsjabloon om een timer voor een meldingsvenster te maken.
Stel dat u een VBA-script uitvoert om rijen te verplaatsen op basis van een celwaarde. Zodra het verplaatsen is voltooid, verschijnt er automatisch een meldingsvenster dat aangeeft dat de bewerking is geslaagd — dit venster sluit zichzelf na 4 seconden (zie onderstaande schermafbeelding). Volg de onderstaande stappen.
1. Open het Microsoft Visual Basic for Applications-venster, klik op Invoegen > Module en voeg vervolgens de VBA-code in die u wilt gebruiken om rijen te verplaatsen op basis van een celwaarde.
2. Kopieer de volgende VBA-code 1 en plak deze vóór de code die u wilt uitvoeren. Zie de schermafbeelding hieronder:
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. Kopieer de onderstaande VBA-code 2 en plak deze vóór de regel „End Sub" van de code die u wilt uitvoeren.
VBA-code 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Opmerking: U kunt de inhoud van het meldingsvenster en de weergavetijd van het dialoogvenster aanpassen aan uw wensen.
4. Nadat de code is uitgevoerd om de bewerking uit te voeren, verschijnt er een meldingsvenster dat na 4 seconden automatisch sluit.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe toont u een meldingsvenster wanneer u op een specifieke cel in Excel klikt?
- Hoe kopieert u tekst uit een meldingsvenster in Excel?
- Hoe toont u een meldingsvenster wanneer een specifiek werkblad in Excel wordt geopend of geactiveerd?
- Hoe toont u een meldingsvenster met een bereik van cellen of hun waarden in Excel?
- Hoe toont u een meldingsvenster wanneer de celwaarde binnen een bepaald bereik in Excel wordt gewijzigd?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins