Excel的VBA：如何捕获MSGBOX响应

Question

我想执行以下任务：

• 写的留言“你醒了？”和显示问号

• 捕获在整数响应变量INTR，放INTR值在单元格A2

• 如果响应为是，则在单元格A1“乌拉”写

• 如果响应为否，则写有文字“ZZZZZZZZ”

• 一个消息框，如果响应取消，然后退出子

  Sub EX3_1_6MsgBoxFunction() 
  
  Dim intR As Integer 
  Dim TxtRng As Range 
  Dim stra As String 
  Dim stra2 As String 
  
  'Have the message box display the buttons Yes, No and Cancel 
  
  
  intR = MsgBox("Are you awake ? ", vbQuestion + vbYesNoCancel) 
  intR = Range("a2") 
  
  If intR = vbYes Then 
  Range("a1") = "Hurray" 
  
  'that means yes 
  
  ElseIf intR = vbNo Then 
  stra2 = MsgBox("ZZZZZZZZZZ") 
  
  Else 
  
  Range("a2") = intR 
  
  
  End If 
  
  End Sub 
  

Answer 1

首先欢迎来到StackOverflow。当您提出问题时，请记得指定您的代码中存在问题的位置。

• 写信息“你醒了吗？并显示一个问号

如果我理解正确的话，你不只是要显示一个问号，但3种可能性，这是由以下MSGBOX的方式给出一个选择：

intR = MsgBox "Are you awake ?", vbYesNoCancel 

这并显示MsgBox，这需要答案（所以我在这个问题上取下最后一颗子弹点，因为无论答案是“是”或“否”或“取消”，而不能是其他任何东西。The answer code is then mapped on an integerintR，这是正确的。

• 捕获在整数响应变量INTR，放INTR值在单元格A2

正如YowE3K指出的那样，它应该是Range("a2").Value = intR，不intR = Range("a2")

• 如果回答为是，则在单元格A1中写入“Hurray”
• 如果回答为否，则写有文字“ZZZZZZZZ”
• 如果响应取消一个消息框，然后退出子

您可以使用Select Case这里：想想作为If超过2种可能性：

Select Case intR 
    Case 6 '<- According to the link I provided vbYes = 6 
     Range("a1") = "Hurray" 
    Case 7 '<- According to the link I provided vbNo = 7 
     MsgBox "ZZZZZZZZ" 
    Case 2 '<- According to the link I provided vbCancel = 2 
     Exit Sub 
End Select 

你可以写vbYes，vbNo和vbCancel而不是整数。正如其他用户指出的那样，代码可能更具可读性。

Answer 2

你可以尝试这样的事情.....

Sub EX3_1_6MsgBoxFunction() 
Dim Ans As VbMsgBoxResult 

'Have the message box display the buttons Yes, No and Cancel 
Ans = MsgBox("Are you awake ? ", vbQuestion + vbYesNoCancel) 

Select Case Ans 
    Case vbYes 
     Range("A1").Value = "Hurray" 
     Range("A2").Value = "Yes" 
    Case vbNo 
     Range("A1").Value = "ZZZZZZZZZZ" 
     Range("A2").Value = "No" 
    Case Else 
     Range("A1").Value = "" 
     Range("A2").Value = "Calcel" 
End Select 

End Sub 

Answer 3

继诺多精灵的回答，作为一般规则，你不应该使用匈牙利命名法为您的变量名，intR并没有真正告诉你有什么关于变量与它的类型不同的地方。

你应该能够从上下文中推断出这个类型，而变量名应该给你更有用的东西。我建议重写像

Sub EX3_1_6MsgBoxFunction() 
    Dim retVal As Integer 

    'Ask the user whether they're awake 
    retVal = MsgBox("Are you awake ? ", vbQuestion + vbYesNoCancel) 

    'Switch on their answer 
    Select Case retVal 
     Case vbYes 
      Range("A2") = "Hurray" 
     Case vbNo 
      MsgBox "ZZZZZZZ" 
    End Select 
End Sub 

请注意，您不需要MSGBOX分配给一个变量，你可以用一个参数（在这种情况下"ZZZZZ"）调用它来提示用户你的代码，这样你可以消除你的不必要的stra2和stra。您也不需要明确Exit Sub，因为代码自然会在Select Case或If语句后退出。