Problema en funcion VBA que trabaja con rangos
Creado por Anel
Hola,
He creado una funcion en VBA que trabaja con rangos:
Function exp1d(rng1 As Range, Xi As Single, rng2 As Range, Yi As Single) As Double exp1d = Evaluate("Sum(Exp(1/sqrt(" & rng1. Address(, , , True) & "-" & Xi & ") ^ 2 + (" & rng2. Address(, , , True) & "-" & Yi & ")^2)))") End Function
Funciona perfectamente.
Ahora necesito llamarla desde otra funcion, que debe trabajar tambien con rangos, pero no logro hacerlo.
Necesito programar una funcion que haga:
Sum(C*exp1d)/sum(exp1d)
donde C tambien es un rango.
Si llamo a mi funcion asi (la llamo una sola vez para probar):
Function Cxy(rng3 As Range, rng1 As Range, Xi As Single, rng2 As Range, Yi As Single) As Double Cxy = Evaluate("sum(" & rng3.Address(, , , True) & "*" & exp1d(rng1, Xi, rng2 ...
Escrito por Cacho
Como no me queda muy claro la cuenta que deseas realizar (ni la primera ni la segunda), no te podría indicar que es lo que tienes mal (si es que algo tienes mal) ni si ya el Excel tiene lo que necesitas sin necesidad de apelar a una UDF. Entonces: ¿Podrías mostrarnos un ejemplo númerico y el resultado que esperas obtener? Quizás si nos muestras la fórmula (una imagen de ella, claro está) sea más orientativo... Saludos, Cacho R. ver debate
Escrito por Anel
He subido la imagen:
https://grupos.emagister.com/imagen/problema_en_funcion_vba_que_trabaja_con_rangos/6610-1102611.
Mi intencion es usar una funcion para calcular la exponencial y luego llamarla 2 veces desde otra funcion.
El resultado que me esta dando es el de multiplicar cada nuevo elemento Ci por la sumatoria de la exponencial, cuando deberia multiplicar cada elemento Ci por la exponencial de cada elemento y al final sumar todos los productos.
saludos
ver debate
