Coeficiente R2 en vba

hola, !

para "evaluar" funciones de hoja de calculo "como si" estuvieran depositadas en celdas de la hoja
(generalmente) te sirve la funcion Evaluate("texto de la formula en ingles") desde VBA (p.e.)

de: -> ActiveCell.Offset(0, 1).Value = "=COEFICIENTE.R2(Hoja1!H5:H15000;Hoja1!B5:B15000)"
a: -> ActiveCell.Offset(, 1) = Evaluate("rsq(hoja1!h5:h15000,hoja1!b5:b15000)")

no te aseguro que trabajar la formula desde vba hablando de ~15000 filas en la evaluacion vaya a resultar una gran ventaja -?-

para conocer la traduccion al ingles de las funciones del complemento "herramientas para analisis"...
-> instala el complemento de Erc Desart traductor/convertidor del ATP (Analysis ToolPack)
puedes obtener un listado con las funciones del complemento (op. 1) desde la pagina de Ron DeBruin:
Analysis ToolPak Translator 7.0 (Windows Excel 97+)
http://www.rondebruin.nl/atptranslator.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __

Quisiera obtener el valor de la funcion Coeficiente.R2 en vba
ya que usar esta formula directamente en excel ralentiza los calculos
la funcion no existe directamente en vba y no se como obtenerla.
He probado a evaluar la funcion en la hoja de excel (desde vba) para obtener su valor
y luego convertirlo a número pero tampoco lo debo estar haciendo bien, he hecho varias pruebas sobre algo como:
ActiveCell.Offset(0, 1).Value = "=COEFICIENTE.R2(Hoja1!H5:H15000;Hoja1!B5:B15000)"
ActiveCell.Offset(0, 1).Value = "+COEFICIENTE.R2(Hoja1!H5:H15000;Hoja1!B5:B15000)"
Tengo activados los complementos de Herramientas para analisis.
He probado a usar la funcion correl de vba pero no obtengo resultados.
Con encontrar alguna maneraque me permita obtener el valor de dicha funcion me sirve
a poder ser que no sea definiendo una funcion personalizada porque esto tambien es mas lento que la funcion que ya tiene Excel.

Resuelto, todos los días se aprende algo.

Muchas gracias y un saludo



"Héctor Miguel" escribió en el mensaje
news:

hola, !

para "evaluar" funciones de hoja de calculo "como si" estuvieran
depositadas en celdas de la hoja
(generalmente) te sirve la funcion Evaluate("texto de la formula en
ingles") desde VBA (p.e.)

de: -> ActiveCell.Offset(0, 1).Value =
"=COEFICIENTE.R2(Hoja1!H5:H15000;Hoja1!B5:B15000)"
a: -> ActiveCell.Offset(, 1) =
Evaluate("rsq(hoja1!h5:h15000,hoja1!b5:b15000)")

no te aseguro que trabajar la formula desde vba hablando de ~15000 filas
en la evaluacion vaya a resultar una gran ventaja -?-

para conocer la traduccion al ingles de las funciones del complemento
"herramientas para analisis"...
-> instala el complemento de Erc Desart traductor/convertidor del ATP
(Analysis ToolPack)
puedes obtener un listado con las funciones del complemento (op. 1)
desde la pagina de Ron DeBruin:
Analysis ToolPak Translator 7.0 (Windows Excel 97+)
http://www.rondebruin.nl/atptranslator.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ la consulta original __

Quisiera obtener el valor de la funcion Coeficiente.R2 en vba
ya que usar esta formula directamente en excel ralentiza los calculos
la funcion no existe directamente en vba y no se como obtenerla.
He probado a evaluar la funcion en la hoja de excel (desde vba) para
obtener su valor
y luego convertirlo a número pero tampoco lo debo estar haciendo bien, he
hecho varias pruebas sobre algo como:
ActiveCell.Offset(0, 1).Value =
"=COEFICIENTE.R2(Hoja1!H5:H15000;Hoja1!B5:B15000)"
ActiveCell.Offset(0, 1).Value =
"+COEFICIENTE.R2(Hoja1!H5:H15000;Hoja1!B5:B15000)"
Tengo activados los complementos de Herramientas para analisis.
He probado a usar la funcion correl de vba pero no obtengo resultados.
Con encontrar alguna maneraque me permita obtener el valor de dicha
funcion me sirve
a poder ser que no sea definiendo una funcion personalizada porque esto
tambien es mas lento que la funcion que ya tiene Excel.