arrays - 编译错误: ByRef arugment type mismatch: How to call a value in an array

Question

在循环中，我想检查值是否在数组中，如果是，则跳到下一次迭代。

不过，我对数组的低理解阻碍了我:

我正在使用下面的函数(来自:Check if a value is in an array or not with Excel VBA)来查看该值是否在数组中。

Public Function IsInArray(Vtobefound As Long, arr As Variant) As Boolean
    Dim i
    For i = LBound(arr) To UBound(arr)
        If arr(i) = Vtobefound Then
            IsInArray = True
            Exit Function
        End If
    Next i
    IsInArray = False

End Function

但我下面的子仍然不起作用:

Sub CountCellstest()

    Dim i, k As Long
'   Dim iArray() As Single

    ReDim iArray(1 To 1) As Single

    For i = 1 To 3
        If IsInArray(i, iArray) Then 'ERROR HERE on the i

    GoTo next_iteration

        End If

            ReDim aArray(1 To 1) As Single
            iArray(UBound(iArray)) = 2
            ReDim Preserve iArray(1 To UBound(iArray) + 1) As Single
            'DO smth
            MsgBox "test"
next_iteration:
    Next i

End Sub

错误来自以下行:

If IsInArray(i, iArray) Then

我得到 Compile error: ByRef arugment type mismatch函数 IsInArray 需要很长，我在公式中放了很长，所以我不明白这个问题......有人能解释一下吗？

Answer 1

常见的错误。您的 i变量实际上是 Variant因此不匹配。您必须像这样单独键入所有变量:

Dim i As Long, k As Long