VBA函数无法执行公式求助：自动计算员工过期年假时长

方案1：让自定义函数直接返回计算结果 #

如果希望在单元格输入自定义函数后直接得到数值结果，无需显示公式，可以修改函数逻辑，直接返回Application.Evaluate的计算值，而非公式字符串。示例代码：

Function CalculateAnnualLeave(targetCell As Range) As Variant
    ' 生成公式字符串（替换成你的实际逻辑）
    Dim formulaStr As String
    formulaStr = "=SUM('PP03:PP26'!I24)+" & targetCell.Address & "-240"
    
    ' 直接返回计算结果
    CalculateAnnualLeave = Application.Evaluate(formulaStr)
End Function

使用方式：在目标单元格输入=CalculateAnnualLeave(I26)即可得到最终数值。

方案2：用宏给单元格写入可执行公式 #

如果需要保留公式（方便后续查看或手动更新），不要用自定义函数，改用宏直接给目标单元格设置公式属性：

Sub SetAnnualLeaveFormula()
    Dim targetRange As Range
    Dim formulaStr As String
    
    ' 指定目标单元格，这里示例为选中单元格，可替换为具体范围如Sheet("PP26").Range("J26")
    Set targetRange = Selection
    ' 生成公式字符串（替换成你的实际逻辑）
    formulaStr = "=SUM('PP03:PP26'!I24)+I26-240"
    
    ' 给单元格写入并执行公式
    targetRange.Formula = formulaStr
End Sub

使用方式：按Alt+F8调用该宏，选中的单元格会自动写入并执行公式。

关键细节提示 #

• 自定义函数（UDF）在单元格中使用时，仅能返回值，无法直接修改其他单元格内容，因此要写入公式的话，宏是更合适的选择。
• 若之前用Evaluate仍返回字符串，大概率是函数返回类型设为了String，改成Variant即可正常返回数值。
• 可以动态生成工作表范围，避免硬编码：

' 示例：动态获取当年工资周期工作表的范围
Dim startSheet As Worksheet, endSheet As Worksheet
Set startSheet = ThisWorkbook.Sheets("PP03")
Set endSheet = ThisWorkbook.Sheets("PP26")
formulaStr = "=SUM('" & startSheet.Name & ":" & endSheet.Name & "'!I24)+I26-240"

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