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) 

：

はにその行を変更してみてください。