将多个MsgBox合并为一个

Question

我正在尝试将多个MsgBox合并为一个，但我没有运气。 如果您有任何想法，请帮忙。这是我的VBA：

SELECT   *
FROM     table_name
GROUP BY column_name

谢谢！

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