運行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) 

這應該修復它。