这里是一个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，供有兴趣的朋友学习参考。）
