如何在Excel中创建一个消息框计时器，在特定时间后自动关闭消息框？

在使用Excel工作簿时，您可能经常使用VBA脚本来解决问题。在脚本运行期间会弹出一些消息框。在某些情况下，您可能希望某些指定的消息框在特定时间后自动关闭，而不是手动关闭。本文将向您展示如何创建一个消息框计时器，在特定时间后自动关闭消息框的方法。

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

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

这里为您提供了一个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 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中单击某个单元格时弹出消息框？
• 如何在Excel中复制消息框中的文本？
• 如何在激活/打开Excel中的指定工作表时弹出消息框？
• 如何在Excel中弹出消息框以显示单元格区域或单元格值？
• 如何在Excel中单元格值在一定范围内变化时弹出消息框？