自定义VBA函数重算时如何显示并自动关闭等待提示消息？

因为自定义函数（UDF）会随每个单元格计算被多次调用，直接在函数内加载/卸载窗体必然导致重复弹窗。可以通过全局变量控制提示显示时机+计算完成事件自动关闭提示的方案解决，以下提供两种实现方式：

方案1：用状态栏显示提示（简单无窗体） #

这种方式无需创建用户窗体，直接利用Excel状态栏展示进度，代码更简洁：

1. 在标准模块中声明全局控制变量

Public gblCalcInProgress As Boolean

2. 修改你的自定义函数，添加提示逻辑

Function MyCustomFunction(...) As Variant
    ' 仅在计算启动时显示一次提示
    If Not gblCalcInProgress Then
        gblCalcInProgress = True
        Application.StatusBar = "正在重新计算，请稍候..."
        DoEvents ' 强制刷新屏幕，确保提示及时显示
    End If

    ' 你的原有计算逻辑
    ' ...

    MyCustomFunction = ' 函数返回值
End Function

3. 在工作表模块中添加计算完成事件，恢复状态栏

Private Sub Worksheet_Calculate()
    If gblCalcInProgress Then
        gblCalcInProgress = False
        Application.StatusBar = False ' 恢复默认状态栏内容
    End If
End Sub

方案2：用用户窗体显示提示（更直观） #

如果需要弹窗式提示，可按以下步骤实现：

1. 创建用户窗体

   • 插入用户窗体，命名为frmProgress
   • 添加一个Label控件，设置Caption为「正在重新计算，请稍候」，调整字体和窗体大小
   • 可选：设置窗体StartUpPosition为「2 - 屏幕中心」，BorderStyle为「0 - fmBorderStyleNone」（去除边框更简洁）

2. 在标准模块中声明全局控制变量

Public gblCalcInProgress As Boolean

3. 修改自定义函数，添加窗体显示逻辑

Function MyCustomFunction(...) As Variant
    If Not gblCalcInProgress Then
        gblCalcInProgress = True
        ' 非模态显示窗体，避免阻塞计算过程
        frmProgress.Show vbModeless
        DoEvents ' 刷新屏幕让窗体及时显示
    End If

    ' 你的原有计算逻辑
    ' ...

    MyCustomFunction = ' 函数返回值
End Function

4. 在工作表模块中添加计算完成事件，卸载窗体

Private Sub Worksheet_Calculate()
    If gblCalcInProgress Then
        gblCalcInProgress = False
        Unload frmProgress
    End If
End Sub

额外注意事项 #

• 如果自定义函数在多个工作表中使用，建议改用Application级事件：
  1. 插入类模块，命名为clsAppEvents
  2. 在类模块中写入：

  Public WithEvents App As Application
  
  Private Sub App_Calculate()
      If gblCalcInProgress Then
          gblCalcInProgress = False
          ' 状态栏方案：Application.StatusBar = False
          ' 窗体方案：Unload frmProgress
      End If
  End Sub
  

  3. 在标准模块中添加初始化代码：

  Dim AppEvents As clsAppEvents
  
  Sub Auto_Open()
      Set AppEvents = New clsAppEvents
      Set AppEvents.App = Application
  End Sub
  

• DoEvents语句不可省略，它能让Excel及时刷新界面，确保提示内容在计算开始前显示出来

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