如何正确声明Application.WorksheetFunction的公共实例变量WF？

你遇到的两个错误其实都是因为对VBA中对象变量的声明和初始化逻辑理解不到位，咱们一步步来解决：

错误原因分析 #

• 运行时错误91（对象变量未设置）：你只是声明了Public WF As WorksheetFunction，但这个变量只是一个"空指针"，没有指向任何实际的对象实例。WorksheetFunction是Application对象的内置属性，必须明确把WF指向它才能使用。
• 编译错误（类型不匹配）：application.WorksheetFunction是一个具体的对象实例，不是一个数据类型，所以不能用它来声明变量类型，正确的类型就是WorksheetFunction。

正确的实现步骤 #

1. 在标准模块顶部声明公共变量
   在任意标准模块（比如Module1）的最顶部添加声明：

   Public WF As WorksheetFunction
   

2. 初始化变量（指向实际对象）
   你需要在代码执行前给WF赋值，最常用的方式是在工作簿的打开事件中初始化，或者在你的主程序开头执行：

   • 方法一：用Workbook_Open事件（双击ThisWorkbook，选择Workbook和Open）

     Private Sub Workbook_Open()
         Set WF = Application.WorksheetFunction
     End Sub
     

   • 方法二：在主程序开头手动初始化

     Sub MainProcedure()
         ' 先初始化WF
         Set WF = Application.WorksheetFunction
         
         ' 之后就可以正常使用了，比如：
         Dim sumResult As Double
         sumResult = WF.Sum(Range("A1:A10"))
         MsgBox "总和是：" & sumResult
     End Sub
     

注意事项 #

• 确保初始化代码在所有使用WF的代码之前运行，否则还是会触发错误91。
• 如果是在类模块中使用公共WF，需要确保标准模块的声明是全局可见的，并且初始化逻辑已经执行。

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