msgbox循环关闭

Question

我正在做编码，如果单元格1的值大于单元格2和3，那么消息与中止和忽略按钮。但是当我点击ignore时，循环将不会关闭pop is continue。

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

Answer 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