Excel VBA：模块函数调用工作簿对象过程失败问题求助

一、如果你的function1是在Excel单元格里调用的（比如输入=function1("xxx", ...)） #

这是最常见的问题！Excel对**工作表自定义函数（UDF）**有严格限制：UDF只能用来返回计算结果，不允许执行任何有“副作用”的操作——比如弹出MsgBox、修改单元格内容、更改工作簿设置等。所以哪怕你在function1里调用了sub1，sub1里的MsgBox也会被Excel拦截，甚至sub1的部分逻辑根本不会执行。

对应解决方案：

• 方案1：改用Sub过程触发
  把function1改成Sub过程，然后给用户加个按钮，点击按钮执行这个Sub，这样就能正常调用sub1并触发MsgBox了：

  ' Module1里改成Sub
  Sub run_function1(Add As String, some parameters)
      ThisWorkbook.sub1 some parameters ' 注意调用Sub时不用括号，除非加Call
      ' 原来function1的逻辑，最后可以把结果写到指定单元格，比如：
      Range("A1").Value = 你的计算结果
  End Sub
  

• 方案2：用延迟执行绕开UDF限制（慎用）
  如果你一定要在单元格调用UDF时执行sub1，可以用Application.OnTime延迟执行sub1，让它在UDF执行完成后再运行：

  ' Module1的function1
  Function function1(Add As String, some parameters) As String
      ' 延迟1秒执行sub1，避开UDF的限制
      Application.OnTime Now + TimeValue("00:00:01"), "'ThisWorkbook.sub1 """ & 参数1 & """, """ & 参数2 & """'"
      ' 继续你的函数逻辑
      function1 = "计算结果"
  End Function
  

  注意：这种方式参数传递要处理好字符串转义，而且延迟执行可能会有用户体验上的问题，比如MsgBox会在UDF返回结果后才弹出。

二、如果你的function1是在VBA代码里调用的（比如其他Sub/Function里调用） #

这种情况大概率是调用方式错误或者参数不匹配，或者sub1里的条件没触发：

排查步骤：

1. 检查Sub的调用语法
   VBA里调用Sub过程时，如果不用Call关键字，不能加括号；加括号的话必须用Call：

   ' 正确写法1：不用Call，不加括号
   ThisWorkbook.sub1 some parameters
   ' 正确写法2：用Call，加括号
   Call ThisWorkbook.sub1(some parameters)
   

   你现在的写法ThisWorkbook.sub1(some parameters)如果参数是多个，可能会被VBA当成把参数打包成一个数组传递，导致sub1接收参数错误，进而执行出错但没提示（如果没开错误捕获的话）。

2. 确认sub1真的被执行了
   在sub1的开头加一句调试代码，然后打开VBA编辑器的立即窗口（按Ctrl+G），执行function1后看有没有输出：

   Public Sub sub1(some parameters)
       Debug.Print "sub1开始执行了" ' 加这句调试代码
       ...
       If (condition) Then
           MsgBox "触发提示"
       End If
       ...
   End Sub
   

   如果立即窗口有输出，说明sub1执行了，只是condition不满足导致MsgBox没弹出来，这时候要检查你的条件判断逻辑是否正确。

3. 检查参数类型匹配
   确认function1传递给sub1的参数类型，和sub1定义的参数类型完全一致，比如sub1要的是Integer，你传了String，就会导致执行错误。

额外提醒： #

把sub1设为Public是对的，这样其他模块才能调用，这个没问题。另外，ThisWorkbook里的WithEvents App和Workbook_Open里的Set App = Application和当前问题无关，不用管它。

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