Question

如何让Excel vba根据条件自动暂停和继续？

我设计了一个按钮，用于检查Excel单元格内输入内容是否为日期格式，希望当检查到输入的内容为非日期格式时弹出msgbox提示，在点确定之前要求能够即时修改。当修改完成，点确定后程序继续运行进行检查，如此重复检查、重复提示、重复修改，直到完全检查并修改完毕。但当弹出msgbox提示时，不能对Excle单元格进行修改，请高手指点。不用msgbox也行，只要能达到要求。先谢谢了。

Answer 1

Sub t()
    a = ""
    Do While Not (a > 0 And a < 100)
        a = InputBox("请输入0到100的数：", "输入数据")
    Loop
    [A1] = a
End Sub

参考一下。

追问

我希望能够达到由自己控制修改的时间，点确定后再继续运行的效果。因为我要拿去给很多人用的，有些人修改的时间长，有的人时间短，设置时间长了，动作快的人会觉得耽误很多时间，设置时间短了，有的人又来不及改。pieryon的方法虽然能够由用户自己设置修改的时间，但还是感觉美中不足，不知道还有什么办法吗？

Answer 2

这个通过计时器和布尔变量实现。

追问

我希望能够达到由自己控制修改的时间，点确定后再继续运行的效果。因为我要拿去给很多人用的，有些人修改的时间长，有的人时间短，设置时间长了，动作快的人会觉得耽误很多时间，设置时间短了，有的人又来不及改。还有什么办法吗？