Cálculo de Percentil

El macro de abajo (q hice a base del codigo publicado por Chip Pearson aqui:
http://www.cpearson.com/excel/imptext.htm ) me funciona perfectamente.

Saludos,
KL

Sub ImportTextFile()
Dim ValorTemp As Variant
Dim LineaEntera As String
Dim Pos As Integer
Dim PosSiguiente As Integer
Dim NombreFichero As String
Dim Separador As String
Dim MiMatriz As Variant

ReDim MiMatriz(0)

NombreFichero = "C:\Texto.txt"
Separador = ";"

Application.ScreenUpdating = False
'On Error GoTo EndMacro:

Open NombreFichero For Input Access Read As #1

While Not EOF(1)
Line Input #1, LineaEntera
If Right(LineaEntera, 1) <> Separador Then
LineaEntera = LineaEntera & Separador
End If
ColNdx = 0
Pos = 1
PosSiguiente = InStr(Pos, LineaEntera, Separador)
While PosSiguiente >= 1
ValorTemp = Mid(LineaEntera, Pos, PosSiguiente - Pos)
Pos = PosSiguiente + 1
PosSiguiente = InStr(Pos, LineaEntera, Separador)
If ValorTemp <> "" Then
MiMatriz(UBound(MiMatriz)) = ValorTemp * 1
ReDim Preserve MiMatriz(UBound(MiMatriz) + 1)
End If
Wend
Wend
ReDim Preserve MiMatriz(UBound(MiMatriz) - 1)

MsgBox WorksheetFunction.Percentile(MiMatriz, 0.75)

EndMacro:
On Error GoTo 0
Close #1

End Sub

"KL" <lapink2000(at)hotmail.com> wrote in message
news:

Perdona mi ignorancia ?que es una grilla? Si es una matriz (digamos en
*.txt) pues entonces podrias crear una matriz (Array) a partir de tu
grilla y luego usarla asi:

'Digamos q la matriz resultante es esta.
MisValores=Array(1,2,3,4,5,6,etc.)
MiPorcentil=0.75

'como esta funcion admite matrices
'usamos la matriz MisValores directamente.
WorksheetFunction.Percentile(MisValores, MiPorcentil)

Saludos,
KL


"Lord Rogers" wrote in message
news:

No estoy sacando el percentil desde un Excel, si no que desde una grilla
poblada con datos


Saludos,

Lord Rogers

Desde el último lugar del mundo...
"KL" <lapink2000(at)hotmail.com> escribió en el mensaje
news:%

Hola Lord Rogers,

Solo por curiosidad, cual es el problema con usar la funcion Percentile
en
VBA?

WorksheetFunction.Percentile(MiRango, MiPorcentil)

Saludos,
KL

"Lord Rogers" wrote in message
news:
> Gau Héctor, desde ya te doy un millón de gracias por darte la molestia

en

> escribir esa explicación. La imprimo y la hago paso a paso para
> comprenderla (necesito pasar eso a VB). Muchas gracias
>
>
> Saludos,
>
> Lord Rogers
>
> Desde el último lugar del mundo...
> "Héctor Miguel" escribió en el mensaje
> news:
>> hola, Ernesto !
>>
>> > ... explicar como calcular un percentil X, pero sin la formula que
> entrega el Excel.
>>
>> espero que tengas [suficiente] tiempo, porque la 'explicacion'
>> sera...
>> +/-
> 'extensa'
>> [tratare de 'amenizarla'] :))
>>
>> ->por si las dudas, toma nota que mi separador de argumentos es la
>> coma
> ',' NO punto y coma ';'<-
>> si cualquier duda... ¿comentas?
>> saludos,
>> hector.
>>
>> => 'desmembrar' el metodo [uno entre varios] que usa excel para

devolver

> percentiles...
>> requiere de 5 pasos [al final se suman el paso 3 y el paso 5]
>> => voy a usar nombres para [tratar de] que sea mas 'entendible' el
> desarrollo :))
>> 'partiendo' de que el rango de datos [una sola columna] se
>> llama:
> RangoDatos
>> y una celda donde se solicita el porcentaje [entre 0% y 100%]
>> que

se

> llama: Porciento
>> => los pasos siguientes [se supone que] son celdas 'aparte' y se les
> aplican los nombres [sugeridos]
>> 1° obtener el factor de incremento/porciento que le corresponde a
>> cada
> celda en RangoDatos
>> nombre a la celda: Incrementos
>> formula: =1/(filas(RangoDatos)-1)
>> 2° determinar cuantos incrementos 'caben' en el porcentaje solicitado
>> nombre a la celda: Posicion
>> formula: =Porciento/Incremento+1
>> 3° 'ubicar' la posicion en RangoDatos de la celda 'de partida' [algo

asi

> como el 'limite inferior']
>> nombre a la celda: Inferior
>> formula: =indice(RangoDatos,entero(Posicion))
>> 4° 'ubicar' la posicion en RangoDatos de la 'siguiente celda' [algo
>> asi
> como el 'limite superior']
>> nombre a la celda: Siguiente
>> formula: =indice(RangoDatos,entero(Posicion)+1)
>> 5° obtener la fraccion/porcentaje que se 'tomara' ->de la
>> diferencia<-
> entre los valores de ambos 'limites'
>> nombre a la celda: Fraccion
>> formula: =(Siguiente-Inferior)*(Posicion-entero(Posicion))
>> [finalmente]... sumar los resultados obtenidos en los pasos 3 y 5...
>> formula: =Inferior+Fraccion
>>
>> => puedes 'comprobar' el resultado vs. la aplicacion de la funcion:
> =percentil(RangoDatos,Porciento)
>> => esta 'forma' ASUME/REQUIERE en RangoDatos valores
> crecientes/ascendentes <= OJO
>> de otra manera, los pasos [y las formulas] resultarian todavia
>> mas
> largas [y posiblemente 'matriciales']
>> la funcion percentil [en estos casos] 'ajusta' los incrementos
>> por
> estimacion lineal
>> lo cual, 'debes ver' [definitivamente] como una 'ventaja' ;)
>>
>>
>
>

KL,

Mi problema es que los datos de donde se obtiene ese famoso percentil es
una grilla que contiene por lo meno 70 datos y ahí va creciendo

Una grilla es una planilla que se usa en VB para, en mi caso, pasar los
datos del Excel a Visual Basic (me es más fácil trabajar desde VB)



Saludos,

Lord Rogers

Desde el último lugar del mundo...
"KL" <lapink2000(at)hotmail.com> escribió en el mensaje
news:

Perdona mi ignorancia ?que es una grilla? Si es una matriz (digamos en
*.txt) pues entonces podrias crear una matriz (Array) a partir de tu

grilla

y luego usarla asi:

'Digamos q la matriz resultante es esta.
MisValores=Array(1,2,3,4,5,6,etc.)
MiPorcentil=0.75

'como esta funcion admite matrices
'usamos la matriz MisValores directamente.
WorksheetFunction.Percentile(MisValores, MiPorcentil)

Saludos,
KL


"Lord Rogers" wrote in message
news:
> No estoy sacando el percentil desde un Excel, si no que desde una grilla
> poblada con datos
>
>
> Saludos,
>
> Lord Rogers
>
> Desde el último lugar del mundo...
> "KL" <lapink2000(at)hotmail.com> escribió en el mensaje
> news:%
>> Hola Lord Rogers,
>>
>> Solo por curiosidad, cual es el problema con usar la funcion Percentile
>> en
>> VBA?
>>
>> WorksheetFunction.Percentile(MiRango, MiPorcentil)
>>
>> Saludos,
>> KL
>>
>> "Lord Rogers" wrote in message
>> news:
>> > Gau Héctor, desde ya te doy un millón de gracias por darte la

molestia

> en
>> > escribir esa explicación. La imprimo y la hago paso a paso para
>> > comprenderla (necesito pasar eso a VB). Muchas gracias
>> >
>> >
>> > Saludos,
>> >
>> > Lord Rogers
>> >
>> > Desde el último lugar del mundo...
>> > "Héctor Miguel" escribió en el

mensaje

>> > news:
>> >> hola, Ernesto !
>> >>
>> >> > ... explicar como calcular un percentil X, pero sin la formula que
>> > entrega el Excel.
>> >>
>> >> espero que tengas [suficiente] tiempo, porque la 'explicacion'

sera...

>> >> +/-
>> > 'extensa'
>> >> [tratare de 'amenizarla'] :))
>> >>
>> >> ->por si las dudas, toma nota que mi separador de argumentos es la
>> >> coma
>> > ',' NO punto y coma ';'<-
>> >> si cualquier duda... ¿comentas?
>> >> saludos,
>> >> hector.
>> >>
>> >> => 'desmembrar' el metodo [uno entre varios] que usa excel para
> devolver
>> > percentiles...
>> >> requiere de 5 pasos [al final se suman el paso 3 y el paso 5]
>> >> => voy a usar nombres para [tratar de] que sea mas 'entendible' el
>> > desarrollo :))
>> >> 'partiendo' de que el rango de datos [una sola columna] se

llama:

>> > RangoDatos
>> >> y una celda donde se solicita el porcentaje [entre 0% y 100%]

que

> se
>> > llama: Porciento
>> >> => los pasos siguientes [se supone que] son celdas 'aparte' y se les
>> > aplican los nombres [sugeridos]
>> >> 1° obtener el factor de incremento/porciento que le corresponde a

cada

>> > celda en RangoDatos
>> >> nombre a la celda: Incrementos
>> >> formula: =1/(filas(RangoDatos)-1)
>> >> 2° determinar cuantos incrementos 'caben' en el porcentaje

solicitado

>> >> nombre a la celda: Posicion
>> >> formula: =Porciento/Incremento+1
>> >> 3° 'ubicar' la posicion en RangoDatos de la celda 'de partida' [algo
> asi
>> > como el 'limite inferior']
>> >> nombre a la celda: Inferior
>> >> formula: =indice(RangoDatos,entero(Posicion))
>> >> 4° 'ubicar' la posicion en RangoDatos de la 'siguiente celda' [algo
>> >> asi
>> > como el 'limite superior']
>> >> nombre a la celda: Siguiente
>> >> formula: =indice(RangoDatos,entero(Posicion)+1)
>> >> 5° obtener la fraccion/porcentaje que se 'tomara' ->de la

diferencia<-

>> > entre los valores de ambos 'limites'
>> >> nombre a la celda: Fraccion
>> >> formula: =(Siguiente-Inferior)*(Posicion-entero(Posicion))
>> >> [finalmente]... sumar los resultados obtenidos en los pasos 3 y 5...
>> >> formula: =Inferior+Fraccion
>> >>
>> >> => puedes 'comprobar' el resultado vs. la aplicacion de la funcion:
>> > =percentil(RangoDatos,Porciento)
>> >> => esta 'forma' ASUME/REQUIERE en RangoDatos valores
>> > crecientes/ascendentes <= OJO
>> >> de otra manera, los pasos [y las formulas] resultarian todavia
>> >> mas
>> > largas [y posiblemente 'matriciales']
>> >> la funcion percentil [en estos casos] 'ajusta' los incrementos
>> >> por
>> > estimacion lineal
>> >> lo cual, 'debes ver' [definitivamente] como una 'ventaja' ;)
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Lord Rogers,

Por definicion, si los 70+ (o 7000+) valores q obtienes (de donde sea:
rango, matriz fija, txt, VB, etc.) pueden ser reconocidos y manipulados por
VBA entonces sin duda pueden ser incluidos en una matriz (Array) y por lo
consiguiente pueden servir de argumento para la funcion Percentile(). Si
expones aqui tu codigo, te lo podremos mirar.

Saludos,
KL

"Lord Rogers" wrote in message
news:

KL,

Mi problema es que los datos de donde se obtiene ese famoso percentil
es
una grilla que contiene por lo meno 70 datos y ahí va creciendo

Una grilla es una planilla que se usa en VB para, en mi caso, pasar los
datos del Excel a Visual Basic (me es más fácil trabajar desde VB)



Saludos,

Lord Rogers

Desde el último lugar del mundo...
"KL" <lapink2000(at)hotmail.com> escribió en el mensaje
news:

Perdona mi ignorancia ?que es una grilla? Si es una matriz (digamos en
*.txt) pues entonces podrias crear una matriz (Array) a partir de tu

grilla

y luego usarla asi:

'Digamos q la matriz resultante es esta.
MisValores=Array(1,2,3,4,5,6,etc.)
MiPorcentil=0.75

'como esta funcion admite matrices
'usamos la matriz MisValores directamente.
WorksheetFunction.Percentile(MisValores, MiPorcentil)

Saludos,
KL


"Lord Rogers" wrote in message
news:
> No estoy sacando el percentil desde un Excel, si no que desde una
> grilla
> poblada con datos
>
>
> Saludos,
>
> Lord Rogers
>
> Desde el último lugar del mundo...
> "KL" <lapink2000(at)hotmail.com> escribió en el mensaje
> news:%
>> Hola Lord Rogers,
>>
>> Solo por curiosidad, cual es el problema con usar la funcion
>> Percentile
>> en
>> VBA?
>>
>> WorksheetFunction.Percentile(MiRango, MiPorcentil)
>>
>> Saludos,
>> KL
>>
>> "Lord Rogers" wrote in message
>> news:
>> > Gau Héctor, desde ya te doy un millón de gracias por darte la

molestia

> en
>> > escribir esa explicación. La imprimo y la hago paso a paso para
>> > comprenderla (necesito pasar eso a VB). Muchas gracias
>> >
>> >
>> > Saludos,
>> >
>> > Lord Rogers
>> >
>> > Desde el último lugar del mundo...
>> > "Héctor Miguel" escribió en el

mensaje

>> > news:
>> >> hola, Ernesto !
>> >>
>> >> > ... explicar como calcular un percentil X, pero sin la formula
>> >> > que
>> > entrega el Excel.
>> >>
>> >> espero que tengas [suficiente] tiempo, porque la 'explicacion'

sera...

>> >> +/-
>> > 'extensa'
>> >> [tratare de 'amenizarla'] :))
>> >>
>> >> ->por si las dudas, toma nota que mi separador de argumentos es la
>> >> coma
>> > ',' NO punto y coma ';'<-
>> >> si cualquier duda... ¿comentas?
>> >> saludos,
>> >> hector.
>> >>
>> >> => 'desmembrar' el metodo [uno entre varios] que usa excel para
> devolver
>> > percentiles...
>> >> requiere de 5 pasos [al final se suman el paso 3 y el paso 5]
>> >> => voy a usar nombres para [tratar de] que sea mas 'entendible' el
>> > desarrollo :))
>> >> 'partiendo' de que el rango de datos [una sola columna] se

llama:

>> > RangoDatos
>> >> y una celda donde se solicita el porcentaje [entre 0% y 100%]

que

> se
>> > llama: Porciento
>> >> => los pasos siguientes [se supone que] son celdas 'aparte' y se
>> >> les
>> > aplican los nombres [sugeridos]
>> >> 1° obtener el factor de incremento/porciento que le corresponde a

cada

>> > celda en RangoDatos
>> >> nombre a la celda: Incrementos
>> >> formula: =1/(filas(RangoDatos)-1)
>> >> 2° determinar cuantos incrementos 'caben' en el porcentaje

solicitado

>> >> nombre a la celda: Posicion
>> >> formula: =Porciento/Incremento+1
>> >> 3° 'ubicar' la posicion en RangoDatos de la celda 'de partida'
>> >> [algo
> asi
>> > como el 'limite inferior']
>> >> nombre a la celda: Inferior
>> >> formula: =indice(RangoDatos,entero(Posicion))
>> >> 4° 'ubicar' la posicion en RangoDatos de la 'siguiente celda' [algo
>> >> asi
>> > como el 'limite superior']
>> >> nombre a la celda: Siguiente
>> >> formula: =indice(RangoDatos,entero(Posicion)+1)
>> >> 5° obtener la fraccion/porcentaje que se 'tomara' ->de la

diferencia<-

>> > entre los valores de ambos 'limites'
>> >> nombre a la celda: Fraccion
>> >> formula: =(Siguiente-Inferior)*(Posicion-entero(Posicion))
>> >> [finalmente]... sumar los resultados obtenidos en los pasos 3 y
>> >> 5...
>> >> formula: =Inferior+Fraccion
>> >>
>> >> => puedes 'comprobar' el resultado vs. la aplicacion de la funcion:
>> > =percentil(RangoDatos,Porciento)
>> >> => esta 'forma' ASUME/REQUIERE en RangoDatos valores
>> > crecientes/ascendentes <= OJO
>> >> de otra manera, los pasos [y las formulas] resultarian todavia
>> >> mas
>> > largas [y posiblemente 'matriciales']
>> >> la funcion percentil [en estos casos] 'ajusta' los incrementos
>> >> por
>> > estimacion lineal
>> >> lo cual, 'debes ver' [definitivamente] como una 'ventaja'
>> >> ;)
>> >>
>> >>
>> >
>> >
>>
>>
>
>

Eso lo sé, muchas gracias por tu ayuda e interés, ya tengo solucionado ese
tema con las siguientes líneas de código

'Se obtienen primeros los incrementos
incremento = 1 / ((VALORES.G_VALOR.Rows - 1) - 1)
posicion = 0.75 / incremento + 1
Posinferior = Int(posicion)
VALORES.G_VALOR.Row = Posinferior
Inferior = VALORES.G_VALOR.Text
Possuperior = Int(posicion) + 1
VALORES.G_VALOR.Row = Possuperior
Superior = VALORES.G_VALOR.Text
Fraccion = (Superior - Inferior) * (posicion - Int(posicion))
resultado = Round((Inferior + Fraccion), 2)

y no he tenido ningún problema en todas las pruebas que le he hecho


Saludos,

Lord Rogers

Desde el último lugar del mundo...
"KL" escribió en el mensaje
news:%

Lord Rogers,

Por definicion, si los 70+ (o 7000+) valores q obtienes (de donde sea:
rango, matriz fija, txt, VB, etc.) pueden ser reconocidos y manipulados

por

VBA entonces sin duda pueden ser incluidos en una matriz (Array) y por lo
consiguiente pueden servir de argumento para la funcion Percentile(). Si
expones aqui tu codigo, te lo podremos mirar.

Saludos,
KL

"Lord Rogers" wrote in message
news:
> KL,
>
> Mi problema es que los datos de donde se obtiene ese famoso percentil
> es
> una grilla que contiene por lo meno 70 datos y ahí va creciendo
>
> Una grilla es una planilla que se usa en VB para, en mi caso, pasar

los

> datos del Excel a Visual Basic (me es más fácil trabajar desde VB)
>
>
>
> Saludos,
>
> Lord Rogers
>
> Desde el último lugar del mundo...
> "KL" <lapink2000(at)hotmail.com> escribió en el mensaje
> news:
>> Perdona mi ignorancia ?que es una grilla? Si es una matriz (digamos en
>> *.txt) pues entonces podrias crear una matriz (Array) a partir de tu
> grilla
>> y luego usarla asi:
>>
>> 'Digamos q la matriz resultante es esta.
>> MisValores=Array(1,2,3,4,5,6,etc.)
>> MiPorcentil=0.75
>>
>> 'como esta funcion admite matrices
>> 'usamos la matriz MisValores directamente.
>> WorksheetFunction.Percentile(MisValores, MiPorcentil)
>>
>> Saludos,
>> KL
>>
>>
>> "Lord Rogers" wrote in message
>> news:
>> > No estoy sacando el percentil desde un Excel, si no que desde una
>> > grilla
>> > poblada con datos
>> >
>> >
>> > Saludos,
>> >
>> > Lord Rogers
>> >
>> > Desde el último lugar del mundo...
>> > "KL" <lapink2000(at)hotmail.com> escribió en el mensaje
>> > news:%
>> >> Hola Lord Rogers,
>> >>
>> >> Solo por curiosidad, cual es el problema con usar la funcion
>> >> Percentile
>> >> en
>> >> VBA?
>> >>
>> >> WorksheetFunction.Percentile(MiRango, MiPorcentil)
>> >>
>> >> Saludos,
>> >> KL
>> >>
>> >> "Lord Rogers" wrote in message
>> >> news:
>> >> > Gau Héctor, desde ya te doy un millón de gracias por darte la
> molestia
>> > en
>> >> > escribir esa explicación. La imprimo y la hago paso a paso para
>> >> > comprenderla (necesito pasar eso a VB). Muchas gracias
>> >> >
>> >> >
>> >> > Saludos,
>> >> >
>> >> > Lord Rogers
>> >> >
>> >> > Desde el último lugar del mundo...
>> >> > "Héctor Miguel" escribió en el
> mensaje
>> >> > news:
>> >> >> hola, Ernesto !
>> >> >>
>> >> >> > ... explicar como calcular un percentil X, pero sin la formula
>> >> >> > que
>> >> > entrega el Excel.
>> >> >>
>> >> >> espero que tengas [suficiente] tiempo, porque la 'explicacion'
> sera...
>> >> >> +/-
>> >> > 'extensa'
>> >> >> [tratare de 'amenizarla'] :))
>> >> >>
>> >> >> ->por si las dudas, toma nota que mi separador de argumentos es

la

>> >> >> coma
>> >> > ',' NO punto y coma ';'<-
>> >> >> si cualquier duda... ¿comentas?
>> >> >> saludos,
>> >> >> hector.
>> >> >>
>> >> >> => 'desmembrar' el metodo [uno entre varios] que usa excel para
>> > devolver
>> >> > percentiles...
>> >> >> requiere de 5 pasos [al final se suman el paso 3 y el paso

5]

>> >> >> => voy a usar nombres para [tratar de] que sea mas 'entendible'

el

>> >> > desarrollo :))
>> >> >> 'partiendo' de que el rango de datos [una sola columna] se
> llama:
>> >> > RangoDatos
>> >> >> y una celda donde se solicita el porcentaje [entre 0% y

100%]

> que
>> > se
>> >> > llama: Porciento
>> >> >> => los pasos siguientes [se supone que] son celdas 'aparte' y se
>> >> >> les
>> >> > aplican los nombres [sugeridos]
>> >> >> 1° obtener el factor de incremento/porciento que le corresponde a
> cada
>> >> > celda en RangoDatos
>> >> >> nombre a la celda: Incrementos
>> >> >> formula: =1/(filas(RangoDatos)-1)
>> >> >> 2° determinar cuantos incrementos 'caben' en el porcentaje
> solicitado
>> >> >> nombre a la celda: Posicion
>> >> >> formula: =Porciento/Incremento+1
>> >> >> 3° 'ubicar' la posicion en RangoDatos de la celda 'de partida'
>> >> >> [algo
>> > asi
>> >> > como el 'limite inferior']
>> >> >> nombre a la celda: Inferior
>> >> >> formula: =indice(RangoDatos,entero(Posicion))
>> >> >> 4° 'ubicar' la posicion en RangoDatos de la 'siguiente celda'

[algo

>> >> >> asi
>> >> > como el 'limite superior']
>> >> >> nombre a la celda: Siguiente
>> >> >> formula: =indice(RangoDatos,entero(Posicion)+1)
>> >> >> 5° obtener la fraccion/porcentaje que se 'tomara' ->de la
> diferencia<-
>> >> > entre los valores de ambos 'limites'
>> >> >> nombre a la celda: Fraccion
>> >> >> formula: =(Siguiente-Inferior)*(Posicion-entero(Posicion))
>> >> >> [finalmente]... sumar los resultados obtenidos en los pasos 3 y
>> >> >> 5...
>> >> >> formula: =Inferior+Fraccion
>> >> >>
>> >> >> => puedes 'comprobar' el resultado vs. la aplicacion de la

funcion:

>> >> > =percentil(RangoDatos,Porciento)
>> >> >> => esta 'forma' ASUME/REQUIERE en RangoDatos valores
>> >> > crecientes/ascendentes <= OJO
>> >> >> de otra manera, los pasos [y las formulas] resultarian

todavia

>> >> >> mas
>> >> > largas [y posiblemente 'matriciales']
>> >> >> la funcion percentil [en estos casos] 'ajusta' los

incrementos

>> >> >> por
>> >> > estimacion lineal
>> >> >> lo cual, 'debes ver' [definitivamente] como una 'ventaja'
>> >> >> ;)
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>