msgbox 循环关闭答案

【问题标题】：msgbox loop closingmsgbox 循环关闭
【发布时间】：2021-03-31 02:08:54
【问题描述】：

我正在为单元格 1 的值是否大于单元格 2 和 3 进行编码，然后使用中止和忽略按钮发送消息。但是当我点击忽略时，循环不会关闭弹出继续。

Sub op05_Press_Data()
Dim a As Worksheet
Set a = ThisWorkbook.Worksheets("TPS")

Dim result As VbMsgBoxResult

If a.Range("L15") <> "" Then

If a.Range("J18").Value > a.Range("J22") Then

result = MsgBox("Die R-L size more than Press Bolster R-L Size?", vbExclamation + vbYesNo) = vbNo
Exit Sub
End If

If a.Range("J18").Value > a.Range("J23") Then

MsgBox "Die R-L size more than Press Ram R-l Size", vbExclamation + vbYesNo = vbNo
Exit Sub
End If

If a.Range("K18").Value > a.Range("K22") Then

MsgBox "Die F-B size more than Press Bolster F-B Size", vbExclamation + vbYesNo = vbNo
Exit Sub
End If

If a.Range("K18").Value > a.Range("K23") Then

MsgBox "Die F-B size more than Press Ram F-B Size", vbExclamation + vbYesNo = vbNo
Exit Sub
End If
End If


End Sub

【问题讨论】：

标签： excel vba msgbox

【解决方案1】：

如果答案是否定的，您希望脚本继续吗？应该这样做：

Sub op05_Press_Data()
Dim a As Worksheet
Set a = ThisWorkbook.Worksheets("TPS")

If a.Range("L15") <> "" Then
  If a.Range("J18").Value > a.Range("J22") Then
    If MsgBox("Die R-L size more than Press Bolster R-L Size?", vbExclamation + vbYesNo) = vbNo Then Exit Sub
  End If
  If a.Range("J18").Value > a.Range("J23") Then
    If MsgBox("Die R-L size more than Press Ram R-l Size", vbExclamation + vbYesNo) = vbNo Then Exit Sub
  End If
  If a.Range("K18").Value > a.Range("K22") Then
    If MsgBox("Die F-B size more than Press Bolster F-B Size", vbExclamation + vbYesNo) = vbNo Then Exit Sub
  End If
  If a.Range("K18").Value > a.Range("K23") Then
    If MsgBox("Die F-B size more than Press Ram F-B Size", vbExclamation + vbYesNo) = vbNo Then Exit Sub
  End If
End If

End Sub

【讨论】：

如果答案有助于解决问题，请检查答案旁边的✓符号。