创建Excel VBA自定义函数时将单元格引用设为可选参数默认值

这个需求可以实现，你当前的代码写法不符合VBA语法规则，无法正常运行。

原有代码的错误点 #

• VBA自定义函数的Optional可选参数，默认值必须是编译阶段可确定的常量，不能直接把单元格取值这类运行时才能获取的动态值写在参数默认值位置。
• 代码存在语法笔误：Worksheets"(MM_CALC"缺少工作表方法的左括号，正确引用格式为Worksheets("MM_CALC")。

正确实现方式 #

将动态读取默认值的逻辑放到函数内部，通过IsMissing函数判断用户是否传入了该可选参数：若用户未传参，再主动读取指定单元格的值作为默认参数即可。
修正后的可运行代码：

Function PleaseWork(First_Date As Date, Optional Second_Date As Variant) As Variant
    ' 检测用户是否省略了Second_Date参数
    If IsMissing(Second_Date) Then
        ' 未传参时取MM_CALC表B2单元格值为默认值
        Second_Date = Worksheets("MM_CALC").Range("B2").Value
    End If
    
    ' 校验参数合法性，避免非日期值导致计算错误
    If Not IsDate(Second_Date) Then
        PleaseWork = CVErr(xlErrValue)
        Exit Function
    End If
    
    PleaseWork = First_Date - CDate(Second_Date)
End Function

使用说明 #

• 只有声明为Variant类型的可选参数，才能通过IsMissing正确识别是否被用户省略。如果将参数声明为Date等固定值类型，IsMissing会始终返回False，无法判断用户是否传参。
• 增加的参数校验逻辑是为了避免B2单元格存储非日期格式内容时，函数返回无意义的错误结果，你可以根据实际需求调整。

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