小编mar*_* R.的帖子

我试图根据if我在多个消息框中收到结果的预设语句获取不同单元格的结果,并根据第一个语句检查计算所有单元格的结果.如何在单个结果中接收所有结果msgbox并允许该功能检查范围内的每个单元格？

Dim rcell As Range
For Each rcell In Vou_Summary.Range("I5:I16")
    If 0 < rcell <= 2.5 Then
        MsgBox rcell.Cells.Offset(0, -3).Value & " Is Critical", vbOKOnly, "Notice!"
    ElseIf 2.5 < rcell <= 4 Then
        MsgBox rcell.Cells.Offset(0, -3).Value & " Requires PR Placement", vbOKOnly, "Notice!"
    ElseIf rcell >= 7 Then
        MsgBox rcell.Cells.Offset(0, -3).Value & " Is Oversupplied", vbOKOnly, "Notice!"
    Else
End If
Next