基于条件运行多Excel VBA宏时跳过消息框的方法

你当前用的Application.DisplayAlerts = False只能屏蔽Excel自带的系统提示（比如覆盖文件提示、删除工作表提示），对宏里的自定义MsgBox弹窗完全无效，给你两种可行的解决思路：

方案1：直接修改被调用的宏（推荐） #

如果能编辑那些弹出消息框的目标宏，直接把里面的MsgBox语句删掉，或者替换成不弹窗的日志记录方式，比如把提示内容写到指定工作表里。

举个例子，把原宏里的：

MsgBox "宏执行完成"

改成：

' 将执行记录写入日志表（比如Sheet2的A列）
With ThisWorkbook.Worksheets("Sheet2")
    .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = "[" & Now() & "] 宏XXX执行完成"
End With

方案2：用API自动关闭MsgBox（无需修改被调用宏） #

如果没法修改目标宏，就用Windows API函数自动识别并关闭MsgBox弹窗。把下面的代码添加到你的VBA模块中，再运行RunMacrosBasedOnCondition2即可：

' 声明用于查找、关闭窗口的API函数
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Private Const BM_CLICK = &HF5

Sub RunMacrosBasedOnCondition2()
    Dim LastRow As Long
    Dim ws As Worksheet
    Dim i As Long
    
    Set ws = ThisWorkbook.Worksheets("Routines")
    LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False ' 禁用屏幕刷新，加快运行速度

    For i = 1 To LastRow
        If ws.Cells(i, 9).Value = "Yes" Then
            On Error Resume Next
            ' 启动定时检查，0.1秒后自动关闭MsgBox
            Application.OnTime Now + TimeValue("00:00:00.1"), "CloseMsgBox"
            Application.Run ws.Cells(i, 8).Value
            On Error GoTo 0
        End If
    Next i

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Sub CloseMsgBox()
    Dim hwnd As LongPtr
    ' 查找标题为"Microsoft Excel"的MsgBox窗口（如果你的MsgBox有自定义标题，替换成对应文本）
    hwnd = FindWindow("#32770", "Microsoft Excel")
    If hwnd <> 0 Then
        ' 模拟点击窗口的「确定」按钮
        SendMessage hwnd, BM_CLICK, 0, 0
    End If
End Sub

注意：如果你的MsgBox有自定义标题，要把FindWindow("#32770", "Microsoft Excel")里的第二个参数改成MsgBox的实际标题。

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