<!-- language-all: lang-vb --> Encontré [ésta respuesta][1] en SO (en inglés) e hice unas adaptaciones para explicarlo aquí. Básicamente se utilizan dos funciones: 1. 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). 2. El procedimiento para el evento `Worksheet_Calculate()`, agregado al código de la hoja de trabajo (`Hoja1` o `Sheet1` y no `ThisWorkbook`). A continuación pongo el ejemplo que preparé de ambas funciones. --- ### Código de Módulo1 Éste código básicamente ejecuta la función objeto del problema y guarda información en variables globales (`Public`) que será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 (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) ' señ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(Funcion1) ' guardamos referencia al rango de origen de la función (desde dónde se llamó) Set origen_F1 = Application.Caller End Function ### Código de Hoja1 Por otro lado [el evento Worksheet_Calculate][2], 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. Private Sub Worksheet_Calculate() ' salir si no se calculó una llamada a Funcion1 If Not disparar_F1 Then Exit Sub ' evitar redibujado posterior disparar_F1 = False ' imprimir el resultado de Funcion1 ' NOTA: A2 corresponde a la celda inmediatamente debajo de la celda ' donde se ingresó la fórmula, A3 a la siguiente, etc. origen_F1.Range("A2").Value = resultado_F1(0) origen_F1.Range("A3").Value = resultado_F1(1) origen_F1.Range("A4").Value = resultado_F1(2) End Sub --- La siguiente imagen ilustra el resultado del código en Excel: ![ejemplo](https://image.ibb.co/cDzO5a/EXCEL.png) Los datos agregados (en las celdas `D3`, `D4` y `D5`) son valores independientes que pueden ser manipulados sin ningún problema; p.ej. cambiar el formato, copiar, modificar, etc. [1]: https://stackoverflow.com/a/12504471/1732224 [2]: https://msdn.microsoft.com/en-us/library/office/ff838823.aspx