使用 Excel 工作表时，您可能经常借助 VBA 脚本来解决问题。脚本运行过程中会弹出消息框，而在某些场景下，您希望特定的消息框能在指定时间后自动关闭，无需手动操作。本文将为您展示如何在 Excel 中创建带计时器的消息框，使其在设定时间后自动消失。

创建消息框计时器，在指定时间后自动关闭消息框

创建消息框计时器，在指定时间后自动关闭消息框

这里为您提供了一个用于创建消息框计时器的 VBA 脚本模板。

假设您正在运行 VBA 脚本，根据单元格的值移动行。操作完成后，系统将弹出一个消息框提示“操作成功”，并在 4 秒后自动关闭（如下方截图所示）。请按以下步骤操作。

1. 打开 Microsoft Visual Basic for Applications 窗口，单击插入> 模块，然后粘贴用于根据单元格值移动行的 VBA 代码。

2. 请复制下方的 VBA 代码 1，并将其粘贴到您要执行的代码之前，如下方截图所示：

VBA 代码 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. 复制下方的 VBA 代码 2，并将其粘贴到您要执行的代码中“End Sub”行之前。

VBA 代码 2：

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

注意：您可以根据需要自定义消息框内容及对话框的显示时长。

4. 运行代码执行操作后，消息框将弹出，并在指定时间（本例为 4 秒）后自动关闭。

借助 KUTOOLS AI 解锁 Excel 的神奇功能

• 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
• 自定义公式：生成量身定制的公式，助您优化工作流程！
• VBA 编码：轻松编写并运行 VBA 代码。
• 公式解析：轻松掌握复杂公式，一目了然！
• 文本翻译：轻松打破电子表格中的语言障碍！