El problema que tengo es, como hago para operar un rango de datos que esta en una matriz.
Me explico, tengo una hoja con datos, y a una columna especifica debo sacarle el percentil, como el tamaño varia hice una macro que los ordena en una matriz y luego pensaba hacer la operaciones, sacar el percentil.
Código: Seleccionar todo
Function percentiles(Columna As Integer, Rango As Integer) As Double
Dim oHojaActiva As Object
Dim dato As Object
Dim dato1 As Double
Dim dato2 As String
Dim co As Integer
Dim y As Integer
Dim mDat() As Variant
co = 0
y = 1
oHojaActiva = ThisComponent.getCurrentController.getActiveSheet()
dato = oHojaActiva.getCellByPosition( Columna, y )
dato1 = dato.Value
dato2 = dato.getString()
While dato2 <> ""
Redim Preserve mDat(co)
mDat(co) = dato1
y = y + 1
co = co + 1
dato = oHojaActiva.getCellByPosition( Columna, y )
dato1 = dato.Value
dato2 = dato.getString()
Wend
dato = oHojaActiva.getCellByPosition( Columna, y + 5 )
dato.setValue(Percentil(mDat(),Rango)
End function
pero me sale error, en la parte final de la operacion :
Código: Seleccionar todo
dato.setValue(Percentil(mDat(),Rango)