【发布时间】：2020-07-01 07:06:06
【问题描述】：
我正在运行一个需要状态日期的宏。我正在使用ActiveProject.CommandBars.ExecuteMso ("StatusDate")，并且宏在我在 Project 2016 上设置状态日期之前一直在执行。如何编写代码以等待输入日期？
【问题讨论】：
标签： vba ms-project
【发布时间】：2020-07-01 07:06:06
【问题描述】：
我可以看到使用该命令是多么实用，但是您已经发现了后果。
如果您准备再次单击设置状态日期，您可以在命令后添加一个虚拟的 MsgBox 对话框：
ActiveProject.CommandBars.ExecuteMso ("StatusDate")
MsgBox "Status Date set"
...或者您是否同时找到了其他解决方案？
【讨论】：
-
谢谢。我正在使用您的解决方案。唯一的问题是我在设置状态日期时按下取消按钮。它会弹出
msgboxanyway。 -
是的。另一个不需要的副作用。 :-) 不幸的是，似乎不可能为 Project 获得好的旧日期选择器，但当然可以使用带有一个文本框和两个按钮的简单表单（取决于您如何设置状态日期 *）在主代码中拥有这些行:
Sub StatusDateUpdate() 'In case you usually set the Status Date to today* frmStatusDate.txtStatusDate.Value = Date frmStatusDate.Show End Sub*您可以添加一些功能来设置明天、下周三等的状态日期。