Skip to main content
replaced http://stackoverflow.com/ with https://stackoverflow.com/
Origen Enlace

Encontré ésta respuestaésta respuesta en SO (en inglés) e hice unas adaptaciones para explicarlo aquí.

Encontré ésta respuesta en SO (en inglés) e hice unas adaptaciones para explicarlo aquí.

Encontré ésta respuesta en SO (en inglés) e hice unas adaptaciones para explicarlo aquí.

corrección de errores y cambio de imagen
Origen Enlace
Fer García
  • 456
  • 3
  • 10

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.

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.

corrección de errores y cambio de imagen
Origen Enlace
Fer García
  • 456
  • 3
  • 10
  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 (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.

ejemploejemplo

  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 (si Excel está en español será la que dice Hoja1 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á usada 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; 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)
    ' forzar 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(MiFuncion)

    ' 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 este evento que se dispara cada vez que se tiene que recalcular la hoja de trabajo

ejemplo

  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).

É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

Por otro lado el evento Worksheet_Calculate, 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.

ejemplo

Origen Enlace
Fer García
  • 456
  • 3
  • 10
Loading