将多个 MsgBox 合并为一个答案

【问题标题】：Merge multiple MsgBox into one将多个 MsgBox 合并为一个
【发布时间】：2017-11-01 09:37:29
【问题描述】：

我正在尝试将多个 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

谢谢！

【问题讨论】：

标签： vba msgbox

【解决方案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

【讨论】：

是的，非常完美。谢谢！
请再问一个问题：即使 XXX!D13 =0，我仍然会收到一条带有“确定”按钮的空消息。我如何更改 vba，以便在 XXX!D13 为零的情况下，没有任何消息。
我在vba中添加了这一行，但现在看起来更复杂了:) If msg "" Then MsgBox msg.现在，如果 D13=0 和 E13=1，则消息根本不会出现
@lofgren 这是您可以使用的最佳解决方案。如果这对您来说是复杂的代码，那么您从未见过复杂的代码；）
两年前我才发现 VBA，所以是的，有些事情很复杂...... :))