worksheetfunction 클래스 오류

Question

내가 Arr1 및 Arr2

Dim arr1() As Variant 
Dim arr2() As Variant 

arr1 and arr2 are initialized in the function. 

Dim result As Double 
result = Application.WorksheetFunction.Correl(arr1, arr2) 

두 배열 의 상관 계수를 얻을 수있는 Correl 방법을 던졌습니다 때 나는, VBA에서이 오류를 얻고의 CORREL 속성을 가져올 수 없습니다 예외

"는 worksheetfunction 클래스의 CORREL 속성을 가져올 수 없습니다"는 이유가 될 수있는 것을

어떤 생각 예외.

편집 :

내가 배열 중 하나가 같은 모든 요소가있는 경우이 문제가 발생 생각합니다. 이 경우 상관 계수는 # DIV0 오류를 발생시킵니다.

감사합니다.

Answer 1

배열을 초기화하는 것을 잊었을 것 같습니다.

이 아주 간단한 예를 작동합니다

Public Sub Test() 
    Dim arr1() As Variant 
    Dim arr2() As Variant 
    Dim result As Double 

    arr1() = Array(1, 2, 3, 4) 
    arr2() = Array(1, 2, 3, 4) 

    result = Application.WorksheetFunction.Correl(arr1, arr2) 

    MsgBox ("The result is: " & result) 
End Sub 

Answer 2

키란,이 오류를 방지

두 가지 가능한 솔루션을 ...하지만 데이터를 보는 것이 훨씬 더 도움이 될 것

1. 한 (또는 둘 다) 변형 배열에 숫자가 아닌 문자열이 포함되어 있음
2. 배열의 크기가 같지 않음