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語句後退出。