excel - 将整数和整数数组传递给 VBA 函数

Question

我试图将一个整数和一个整数数组传递给一个函数，以检查该整数是否是该数组的成员。带箭头的行给出的编译错误消息为:“expect:=”。

Public Sub mainSub()
B = Array(4, 5, 6, 7, 8, 9)
ckArr(4,B) '<-------
End Sub

Public function ckArr(N As Integer, A() As Integer)
For i = 0 To UBound(A)
If N = A(i) And i <= UBound(A) Then
    Debug.Print N; " Is in the List"
    Exit For 'Do
ElseIf i < UBound(A) Then GoTo NXT
Else:
    Debug.Print N; " Is NOT in the List"
    Exit For 'Do
End If
NXT:
'i = i + 1
Next 'Loop
End function

Answer 1

要调用函数，请使用:

a = func(b,c)

或者如果您对结果不感兴趣，请执行以下操作:

call func(b, c)

或

func b, c

正在做

func(b,c)

无效。

<小时/>

因此，在您的特定情况下，它将是:

Public Sub mainSub()  
  B = Array(4, 5, 6, 7, 8, 9)
  Call ckArr(4,B) '<-------
End Sub

或

Public Sub mainSub()  
  B = Array(4, 5, 6, 7, 8, 9)
  ckArr 4, B '<-------
End Sub