我试图根据预设的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
答案 0 :(得分:3)
您可以先创建一个String变量。不要抛出一个MsgBox,而是将结果保存到变量中。过去End If
语句显示MsgBox并将字符串变量作为内容传递。
更好的是,您可以使用String Builder使其工作速度比默认的VBA级联快1000倍;)