msgbox 循环关闭

如何解决msgbox 循环关闭

如果单元格 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

解决方法

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

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