将多个 MsgBox 合并为一个

Question

我正在尝试将多个 MsgBox 合并为一个，但我没有成功。如果您有任何想法，请提供帮助。这是我的 VBA:

  If Worksheets("XXX").Range("D13") > 0 Then

MsgBox ("ATENTION!" & vbCrLf & "OLD = ") & Worksheets("XXX").Range("D13") & " PCS !"
End If

If Worksheets("XXX").Range("E13") > 0 Then
MsgBox ("ATENTION!" & vbCrLf & "REQUEST = ") & Worksheets("XXX").Range("E13") & " PCS !"
End If

谢谢！

Answer 1

您想在一个框中显示两条消息吗？像这样？

Dim msg As String
If Worksheets("XXX").Range("D13") > 0 Then
    msg = "ATENTION!" & vbCrLf & "OLD = " & Worksheets("XXX").Range("D13") & " PCS !"
End If

If Worksheets("XXX").Range("E13") > 0 Then
    msg = msg & vbCrLf & "ATENTION!" & vbCrLf & "REQUEST = " & Worksheets("XXX").Range("E13") & " PCS !"
End If
MsgBox msg

将多个 MsgBox 合并为一个

Merge multiple MsgBox into one

vba

msgbox