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

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

更好的是，您可以使用String Builder使其工作速度比默认的VBA级联快1000倍;）

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

1 个答案: