Excel实用工具20：带定时器的MsgBox消息框

excelperfect

这里是一个VBA用户定义函数(UDF)，它显示带有一个、两个或多个选项的消息框，其中一个选项（默认）将在秒时间计数结束时自动选择。它是一个改进的MsgBox函数，这里名为MsgBoxT函数。

在运行函数代码前，请先确保设置了“信任对VBA工程对象模型的访问”。如果运行时出现错误，请按下面的内容进行操作：

单击Excel左上角的“文件——选项”，在“Excel选项”对话框中，选择“信任中心”，单击“信任中心设置”，在“信任中心”对话框中，选择左侧的“宏设置”选项卡，在右侧的“开发人员宏设置”中，勾选“信任对VBA工程对象模型的访问”前的复选框，如下图1所示。

图1

使用了两段测试代码来测试MsgBoxT函数。

下图2所示是第一段测试代码，如果用户没有进行选择，那么在30秒后将自动选择第2个选项。

图2

下图3所示是第二段测试代码，如果用户没有进行选择，那么在40秒后将自动选择第8个选项。

图3

如果你想要研究或者直接使用这个MsgBoxT函数，可以在完美Excel公众号底部发送消息：

msgboxt

获取示例工作簿。

（注：本示例来自于cpap.com.br，供有兴趣的朋友学习参考。）

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。