功能名称出错

Question

尝试使用以下功能时出错。奇怪的是，错误发生在名称中

码：

Function DATECHECK(rng As Range, date_time As Date) As Boolean

    For Row = 1 To rng.Rows.Count

    'Stuff'
    Next Row

 End Function

句法：

DateCheck(Sheet2!A2:B561, Sheet1!A2)

错误：

#NAME
#NAME(Sheet2!A2:B561, Sheet1!A2)

Answer 1

1. 确保该功能在公共模块中;不是私人工作表代码表。
2. DateCheck应该返回一些东西。在结束函数之前添加DateCheck = 1。
3. 您无法使用工作表UDF操纵其他单元格的值。你决定显示相关代码并不重要;这很重要。
4. 在函数的上下文中，Row是一个变量。如果你使用的是dim row as long，你需要将它声明为long（例如Option Explicit）。