Cómo escribir la función RANK en lenguaje VBA
Resuelto, el código es el siguiente:
Private Sub KILLONE()
Atenuar i como entero
Atenuar número como doble
Número = Hojas de trabajo("hoja1").Celdas(1, 1).Valor
Establecer miRango = Hojas de trabajo("Hoja1").Rango("A1:C10") p>
i = Application.WorksheetFunction.Rank(Number, myRange, 0)
End Sub
Tu error: el parámetro 1 de RANK debe ser un valor doble (como Como 3.5 Valores similares), el parámetro 2 debe ser de tipo rango. Se recomienda consultar mi método de escritura de tipo RANGE.
Cabe señalar que efectivamente hay un valor de tipo Doble en la celda A1; de lo contrario, se producirá un error de tipo 1004.
Ejecute el código anterior,