是/否button后错误结果

我目前正在给我的excel文件添加一个相对简单的用户决定框，但似乎有一些问题，我找不到。

基本的想法是，如果用户点击是，一切正常，一个消息框popup告诉他，如果他/她点击否，他应该input日历date，应该被添加到表单。

我目前的代码已经有问题，date添加部分甚至没有集成。

Private Sub CommandButton1_Click() MsgBox "Volume already in rolling forecast?", vbYesNo + vbQuestion, "Rolling Forecast Integration" If Answer = vbYes Then MsgBox "OK", vbOKOnly, "OK" Else MsgBox "Please specify", vbQuestion, "Contact Me" End If End Sub 

当我点击是的，它应该是确定消息框，对不对？ 那么它总是显示“请指定”MsgBox，我不明白为什么。

Answer 1

你也可以缩短你的代码：

 Private Sub CommandButton1_Click() If MsgBox("Volume already in rolling forecast?", vbYesNo + vbQuestion, "Rolling Forecast Integration") = vbYes Then MsgBox "OK", vbOKOnly, "OK" Else MsgBox "Please specify", vbQuestion, "Contact Me" End If End Sub 

Answer 2

您需要设置来自MsgBox的结果的Answer 。

修改你的第一行：

 MsgBox("Volume already in rolling forecast?", vbYesNo + vbQuestion, "Rolling Forecast Integration") 

至：

 Answer = MsgBox("Volume already in rolling forecast?", vbYesNo + vbQuestion, "Rolling Forecast Integration")