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

Question

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

您可以先创建一个字符串变量。不要抛出 MsgBox，而是将结果保存到变量中。过去的End If语句显示 MsgBox 并传递字符串变量作为内容。

更好的是，您可以使用字符串生成器使其工作速度比默认的 VBA 连接快 1000 倍；）