Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to create a message box timer to auto close the message box after certain time in Excel?

You may use VBA script frequently to solve problems while using Excel workbook. And there will be message boxes popped up during the script running. In some cases, you would like some specified message boxes to be closed automatically after a certain time rather than close it manually. In this article, we will show you method of creating a message box timer to auto close the message box after certain time in Excel.

Create a message box timer to auto dismiss message box after certain time


arrow blue right bubble Create a message box timer to auto dismiss message box after certain time


Here provides a VBA script template for you to create a message box timer.

Supposing you are running VBA script to convert all cell references of specified formula cells to absolute. After converting successfully, you need a message box pop up to tell you the success of the conversion, and this message box should be closed automatically after 4 seconds (see below screenshot). Please do as follows.

1. Open the Microsoft Visual Basic for Applications window, then insert your used VBA script into the corresponding module.

2. Go ahead to add the following message box timer template script to your script.

VBA script: Create a message box timer to auto dismiss message box after certain time

'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 Sub

3. Copy the first part of the above VBA code and paste before your code. Then copy and paste the below script of the second part to replace the original script in your code where you need the message box pop up.

MsgBoxTimeout 0, "Converted complete (This message box will be closed after 4 seconds)", "Kutools for Excel", vbInformation, 0, 4000

Note: In this case, I need the message box pop up finally after the conversion successful. So I place this part of script at the end of the code. See screenshot:

You can change the content of the message box as you need.

4. Press the F5 key to run the code. The specified message box will pop up after the conversion. And this message box will be closed automatically after 4 seconds.


arrow blue right bubbleRelated articles:


Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 71%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 82% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fatih · 2 years ago
    You are just perfect... :lol: :lol: :lol: 8) 8) 8)