无需计时器与用户干预关闭VBA MsgBox，实现任务进度展示

你的核心问题在于默认MsgBox是模态对话框（vbApplicationModal），会阻塞代码执行直到手动关闭，完全不符合自动更新进度的需求。下面提供两种实用的替代方案：

方法1：自定义非模态用户窗体（推荐） #

这是最灵活的方案，能清晰显示当前任务名称，且不阻塞后台代码运行，任务完成后可自动更新或关闭。

步骤1：创建进度窗体 #

1. 打开VBA编辑器，右键插入用户窗体，命名为frmProgress
2. 在窗体上添加一个Label控件（命名为lblTask），调整字体、大小和位置，让提示更醒目

步骤2：编写主程序代码 #

Sub ExecuteLongTasks()
    ' 加载并显示非模态进度窗体
    Load frmProgress
    frmProgress.Show vbModeless ' 关键：非模态不阻塞代码
    
    ' 执行任务1
    frmProgress.lblTask.Caption = "正在执行任务1：Solver优化..."
    Call RunSolverTask1 ' 你的Solver任务代码
    
    ' 执行任务2
    frmProgress.lblTask.Caption = "正在执行任务2：Solver优化..."
    Call RunSolverTask2
    
    ' 所有任务完成，关闭窗体
    Unload frmProgress
    MsgBox "全部任务执行完毕！"
End Sub

' 示例Solver任务（替换为你的实际代码）
Sub RunSolverTask1()
    SolverReset
    SolverOk SetCell:="$A$1", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$1:$B$10"
    SolverAdd CellRef:="$C$1", Relation:=1, FormulaText:="0"
    SolverSolve UserFinish:=False ' 保留Solver自带的进度条
End Sub

关键说明 #

• vbModeless参数让窗体保持非模态状态，代码可在后台继续运行
• 无需重复卸载/加载窗体，直接修改lblTask.Caption即可更新任务提示
• 若任务分多阶段，可在任务代码中随时更新窗体内容

方法2：利用Excel状态栏（轻量方案） #

如果不需要弹窗提示，用状态栏显示进度更简洁，不会遮挡工作区：

Sub ExecuteLongTasks_StatusBar()
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = True
    
    ' 任务1
    Application.StatusBar = "进度：正在执行任务1（Solver优化）"
    Call RunSolverTask1
    
    ' 任务2
    Application.StatusBar = "进度：正在执行任务2（Solver优化）"
    Call RunSolverTask2
    
    ' 恢复状态栏默认状态
    Application.StatusBar = False
    Application.ScreenUpdating = True
    MsgBox "全部任务完成！"
End Sub

为什么你的原始代码无效？ #

MsgBox "1", vbApplicationModal中的vbApplicationModal是模态属性，会强制暂停所有代码执行，必须手动关闭对话框后才会继续运行后续代码，完全无法满足自动更新进度的需求。

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