Cómo escribir la función de clasificación en lenguaje VBA
Después de resolverlo, el código es el siguiente:
Private Submarine Killer ()
Marcar I como un número entero
Número difuso de doble precisión
Número =hoja("hoja1"). Celda(1,1). valor
establecer mi rango = Hojas de trabajo(" hoja 1 "). rango (" A1:C10 " )
i = aplicación . WorksheetFunction.Rank(Number, myRange, 0)
Conector final
Tu error: el parámetro 1 de RANK debe ser un valor de precisión doble (como un valor como 3,5), parámetro 2 debe ser del tipo Rango. Se recomienda consultar el tipo de rango que escribí.
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,