VBA Excel：获取多个单元格的结果

我试图根据预设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 

Answer 1

您可以先创build一个stringvariables。 不要抛出一个MsgBox，但将结果保存到variables中。 过去的End If语句显示MsgBox并传递stringvariables作为内容。

更好的是，您可以使用string生成器使其工作速度比默认的VBA串联快1000倍;）