Question

我目前在我的Excel文件中添加了一个相对简单的用户决策框，但似乎有些问题无法找到。

基本的想法是，如果用户点击是，一切正常，弹出一个消息框告诉他，如果他/她点击否，他应该输入一个应该添加到工作表的日历日期。

我的当前代码已经存在问题，其中日期添加部分甚至还没有集成。

Private Sub CommandButton1_Click()

MsgBox "Volume already in rolling forecast?", vbYesNo + vbQuestion, "Rolling Forecast Integration"    
If Answer = vbYes Then
    MsgBox "O.K", vbOKOnly, "O.K"        
Else
    MsgBox "Please specify", vbQuestion, "Contact Me"
End If    

End Sub

当我单击是时，它应该是OK消息框，对吧？那么它总是显示＆＃34;请指定＆＃34; MsgBox和我不明白为什么。

Answer 1

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

修改你的第一行：

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

要：

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

Answer 2

您还可以缩短代码：

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

是/否按钮后错误的结果

2 个答案: