U kunt VBA-script vaak gebruiken om problemen op te lossen tijdens het gebruik van een Excel-werkmap. En er zullen berichtvensters verschijnen tijdens het uitvoeren van het script. In sommige gevallen wilt u dat bepaalde opgegeven berichtvensters na een bepaalde tijd automatisch worden gesloten in plaats van ze handmatig te sluiten. In dit artikel laten we u zien hoe u een berichtvak-timer maakt om het berichtvak na een bepaalde tijd in Excel automatisch te sluiten.
Maak een berichtvak-timer om het berichtvak na een bepaalde tijd automatisch te sluiten
Hier vindt u een VBA-scriptsjabloon waarmee u een timer voor een berichtvenster kunt maken.
Stel dat u een VBA-script gebruikt om alle celverwijzingen van opgegeven formulecellen naar absoluut te converteren. Nadat de conversie is gelukt, heeft u een pop-upvenster nodig om u het succes van de conversie te vertellen, en dit berichtvenster zou na 4 seconden automatisch moeten worden gesloten (zie onderstaande schermafbeelding). Ga als volgt te werk.
1. Open de Microsoft Visual Basic voor toepassingen venster en voeg vervolgens uw gebruikte VBA-script in de bijbehorende module in.
2. Ga je gang en voeg het volgende script voor de timer van het berichtvenster toe aan je script.
VBA-script: maak een timer voor een berichtvenster om het berichtvenster na een bepaalde tijd automatisch te sluiten
'The first part
#If Win64 Then '64?
Private Declare PtrSafe Function MsgBoxTimeout _
Lib "user32" _
Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As LongPtr, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) _
As Long
#Else
Private Declare Function MsgBoxTimeout _
Lib "user32" _
Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) _
As Long
#End If
'The second part
Sub btnMsgbox()
Call MsgBoxTimeout(0, "This message box will be closed after 4 seconds ", "Kutools for Excel", vbInformation, 0, 4000)
End Sub3. Kopieer het eerste deel van de bovenstaande VBA-code en plak deze voor uw code. Kopieer en plak vervolgens het onderstaande script van het tweede deel om het originele script in uw code te vervangen, waar u het berichtvenster nodig heeft.
MsgBoxTimeout 0, "Geconverteerd voltooid (dit berichtvenster wordt na 4 seconden gesloten)", "Kutools for Excel", vbInformation, 0, 4000
Opmerking:: In dit geval moet ik het berichtvenster eindelijk openen nadat de conversie is geslaagd. Dus plaats ik dit deel van het script aan het einde van de code. Zie screenshot:
U kunt de inhoud van het berichtvenster naar behoefte wijzigen.
4. druk de F5 sleutel om de code uit te voeren. Het opgegeven berichtvenster zal verschijnen na de conversie. En dit berichtvenster wordt automatisch na 4 seconden gesloten.
