La función de usuario principal y que será ingresada como fórmula en una celda de Excel (agregada a un módulo nuevo en VBA).
El procedimiento para el evento Worksheet_Calculate()
, agregado al código de la hoja de trabajo (si Excel está en español será la que dice Hoja1
o Sheet1
y no ThisWorkbook
).
Éste código básicamente ejecuta la función objeto del problema y guarda información en variables globales (Public
) que será usadaserán usadas como base para dibujar el resultado en las celdas anexas. La parte importante es la referencia de la celda de origen (donde se ingresó la fórmula) y un arreglo con los elementos adjuntos al resultado;resultado (resumen, conclusiones, información extra, etc.); además, habilitamos una bandera que permite señalizar que se deberá dibujar dicho resultado.
Public disparar_F1 As Boolean ' valor que determina si se dibuja o no el resultado para esta fórmula
Public resultado_F1(2) As Variant ' arreglo que contiene los valores resultantes (3 líneas para este ejercicio)
Public origen_F1 As Range ' rango (celda) donde se ingresó la fórmula
Function Funcion1(param1 As Variant, param2 As Variant, param3 As Variant)
' forzarseñalizar el redibujado del resultado de esta llamada
disparar_F1 = True
' cálculo principal de la función (una simple suma de los parámetros)
Funcion1 = param1 + param2 + param3
' definimos las distintas líneas resultantes de nuestra función
resultado_F1(0) = "LA SUMA DE LOS PARÁMETROS"
resultado_F1(1) = "GENERA EL SIGUIENTE RESULTADO:"
resultado_F1(2) = CStr(param1) + " + " + CStr(param2) + " + " + CStr(param3) + " = " + CStr(MiFuncionFuncion1)
' guardamos referencia al rango de origen de la función (desde dónde se llamó)
Set origen_F1 = Application.Caller
End Function
Por otro lado esteel evento Worksheet_Calculate que se dispara, ejecutado cada vez que se tiene que recalcular la hoja de trabajo, verifica que esté habilitada la bandera (definida en la otra función) y, si es así, dibuja el arreglo de resultados en las celdas debajo de donde se ingresó la fórmula.