VBA功能僅在可見范圍內

Question

我試圖在自動篩選的電子表格上運行PercentRank函數，使其僅在可見單元格上運行。 我嘗試定義范圍對象，即：

Dim x As Range
x = ActiveSheet.Range("K1:K6027").Rows.SpecialCells(x1CellTypeVisible)

然后嘗試使用該范圍的功能，即：

PercentRank = WorksheetFunction.PercentRank(Range(x, *value to be ranked*) )

但是該代碼返回“編譯錯誤：參數不是可選的”消息。 我假設這是由於percentrank函數的語法需要兩個參數來設置其運行的值的范圍，但是我只是在概念上不清楚如何將其轉換為代碼。 任何幫助將非常感激。

Answer 1

您需要Set x並使用它。 另外，您的括號需要左右移動：

Set x = ActiveSheet.Range("K1:K6027").Rows.SpecialCells(xlCellTypeVisible)
MyPercentRank  = WorksheetFunction.PercentRank(x, *value to be ranked*)