2

我一直在努力弄清楚这里出了什么问题。我有两个包含字符串值的列。我使用第三列在工作表中调用 UDF，但最终得到 #Value 并出现错误 - “公式中使用的值的数据类型错误”。

例如：

 Col I   Col J
 File1    Y
 File1    N
 File2    Y
 File3    N

我尝试调试它，输入值被很好地传递到函数变量中。我在VBA方面的知识有限，希望你们能帮助我解决这个问题。

工作表中调用的函数：

=FileCheck(I3,I3:J38)

代码：

Public Function FileCheck(V As Range, Q As Range) As String
    Dim vtest As Variant
    Dim i, j, stat As Integer

    stat = 0

    vtest = Q

    For i = 1 To UBound(vtest)
        If V = vtest(i, 1) And vtest(i, 2) = "N" Then

            For j = 1 To UBound(vtest)
                If V = vtest(j, 1) And vtest(j, 2) = "Y" Then

                    FileCheck = "Y"
                    stat = 1
                End If
            Next
            If stat = 0 Then
                FileCheck = "N"
                End
            Else: End
            End If


        ElseIf V = vtest(i, 1) And vtest(i, 2) = "Y" Then
            FileCheck = "Y"
        End If
    Next

End Function
4

2 回答 2

4

您收到该错误是因为您正在使用End.

想关电脑的时候是按一下Start Menu ~~> Shut down还是直接拔电源线？:-)

使用End与拉电缆非常相似。不要使用End. 优雅地退出函数。该End语句基本上是一种使程序崩溃的方法，但不显示任何错误消息。

尝试这个。替换这些行

If stat = 0 Then
    FileCheck = "N"
    End
Else: End
End If

和

If stat = 0 Then FileCheck = "N"
Exit Function

编辑

顺便说一句，您是否试图找到Col Iin的相应值Col J？如果是，那么您不需要 UDF。您可以使用Vlookup()

使用此公式=VLOOKUP(I3,I3:J38,2,0)代替=FileCheck(I3,I3:J38)

于 2013-01-22T14:08:35.490 回答
1

我认为您的第一个输入类型应该是字符串而不是范围：

V as string

当你想结束函数时你需要使用额外exit function的，但是我不确定你是想结束函数，结束 if 语句还是 for 循环？

于 2013-01-22T14:05:08.973 回答