#姓名？Excel for VBA函数出错

Question

我正在制作我的第一个VBA程序，并尝试运行下面的函数。该函数检查第一行的特定命名范围，第一行的值不大于它的前导值，但小于1。

Public Function findPurchase()

Dim CRT As Range
Set CRT = Range("CostRateTable")

Dim existsBetter As Boolean
existsBetter = True

Dim r As Integer
r = 2
Dim c As Integer
c = 4

While existsBetter

    Dim Found As Boolean
    FoundBetter = False

    While Not FoundBetter And c <= CRT.Columns.Count
        If CRT(r, c) > CRT(r, 2) And CRT(r, c) < 1 Then
            FoundBetter = True
        Else
            c = c + 1
        End If
    Wend


    existsBetter = FoundBetter
    If existsBetter Then
        r = r + 1
    End If
Wend

findPurchase = CRT(r, 3)
'MsgBox(findPurchase)
End Function

我知道函数做了它应该做的事情，因为我手动检查了值表，从MsgBox中删除了注释'，并在函数遍历表时使用调试工具对函数的每个步骤进行了输入和输出。但是，当我在Excel中使用=findpurchie()引用函数时，我会得到一个#name？错误。当我开始键入它的名称时，函数甚至会显示在函数自动完成框中。当我编写其他函数时，不管是带参数还是不带参数，我都可以很好地引用它们，例如：

Function addtwo()
    addtwo = 1 + 2
End Function

我的函数做错了什么，导致它不能工作？

Answer 1

您得到这个错误是因为您有一个与函数同名的模块。

将名称改为find_purchause，那么一切都会好起来：）请参见下图...