PERCENTRANK를 실행할 때 "WorksheetFunction 클래스의 PercentRank 속성을 가져올 수 없습니다"오류

Question

PERCENTRANK 함수를 사용하여 '대답'열이 'B'열의 백분위 수를 찾으려고합니다. "Dim x As Double"에서 시작하는 것은 PercentRank 함수가 시작되는 곳입니다. 나머지 코드를 포함하여 내가하는 일을 보여줍니다. 당신이보고있는 무엇

Dim response As VbMsgBoxResult 
    response = MsgBox("Is This Item Catch Weight?", vbYesNo) 
    If response = vbNo Then 
    Dim cost, weight, answer As Variant 
    Dim myrng As Range 
     cost = InputBox("Please Enter PO Cost") 
     weight = InputBox("Please Enter Net Weight") 
     answer = cost/weight 
     MsgBox "Price per KG is: " & answer 
     Dim x As Double 
      Set ws = ActiveWorkbook.Worksheets("Sheet1") 
      Set relevant_array = ws.Range(ws.Range("B1"), ws.Range("B1").End(xlDown)) 
      x = WorksheetFunction.PercentRank(relevant_array.Address, answer) 
      Debug.Print x 
     Exit Sub 

Answer 1

는 사실로 인해입니다 배열/범위가 아닌 주소에 PercentRank 작품. 에 그 라인을 변경

시도 :

x = WorksheetFunction.PercentRank(relevant_array, answer) 

을 수정해야합니다.