VBA中如何实现MsgBox根据判定条件显示单条或多条提示

完全可以实现你要的效果，你现有代码无法触发组合提示的核心原因是：第一个库存不足的条件命中后会直接执行Exit Sub终止代码运行，根本不会执行第二个库存校验逻辑，自然无法识别两个库存同时不足的场景。

调整思路很简单：先跑完所有库存条件判定，不要中途退出流程，再根据命中的条件动态拼接提示文本，最后统一弹出一次提示框即可。

修正后可直接使用的代码 #

Dim aRow As Long
aRow = Worksheets("MFB Stock").Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

' 先完成两项库存校验，不中途终止流程
Dim monitorShortage As Boolean
monitorShortage = Val(TextBox4.Text) > Worksheets("MFB Stock").Cells(aRow, 3).Value

Dim laptopShortage As Boolean
laptopShortage = Val(TextBox12.Text) > Worksheets("MFB Stock").Cells(aRow, 1).Value

Dim showMsg As String
showMsg = ""

' 按实际命中的条件拼接提示内容
If laptopShortage Then
    showMsg = "Not enough Laptops in stock!"
End If
If monitorShortage Then
    If showMsg <> "" Then
        ' 已有笔记本不足提示时，拼接连接符和显示器不足提示
        showMsg = showMsg & " & Not enough Monitors in stock!"
    Else
        showMsg = "Not enough Monitors in stock!"
    End If
End If

' 存在库存不足场景时弹窗并终止后续流程
If showMsg <> "" Then
    MsgBox showMsg
    Exit Sub
End If

' 此处后续写库存充足时要执行的正常业务代码即可

逻辑说明 #

• 所有库存判定逻辑优先执行，不会因为单个条件命中就中断校验
• 提示文本动态生成：仅显示器不足时只显示对应提示、仅笔记本不足时只显示对应提示、两者都不足时自动拼接组合提示
• 全程仅触发一次MsgBox弹窗，不会出现连续弹出多个提示框的问题

内容的提问来源于stack exchange，提问作者Steve