Este tutorial le mostrará cómo usar Goal Seek en VBA
Goal Seek es una de las herramientas de análisis What-if disponible en Excel que le permite aplicar diferentes valores a las fórmulas y comparar los resultados.
Sintaxis de búsqueda de objetivos
La función GoalSeek tiene 2 argumentos: el objetivo (la celda que desea cambiar) y ChangingCell (la celda que debe modificarse). La función devuelve Verdadero o Falso: Verdadero si se encuentra el Objetivo y Falso si no se encuentra el Objetivo.
Usando Goal Seek en VBA
Considere la siguiente hoja de trabajo a continuación.
Para cambiar el reembolso requerido cada mes cambiando el plazo en meses, podemos escribir el siguiente procedimiento.
| 1234 | Sub IncreaseTerm ()'hacer B6 100 cambiando B5Rango ("B6"). GoalSeek Goal: = 100, ChangingCell: = Rango ("B5")End Sub |
Tenga en cuenta que tiene que haber una fórmula en la celda B6 y un valor en la celda B5.
Uso de Goal Seek con una declaración If
También puede usar GoalSeek con una declaración If para dirigir el flujo de su código.
| 12345678 | Sub IncreaseTerm ()'hacer B6 100 cambiando B5 - y devolver un mensaje al usuarioSi Range ("B6"). GoalSeek (Goal: = 100, ChangingCell: = Range ("B5")) = True EntoncesMsgBox "El nuevo término se encontró correctamente"DemásMsgBox ("No se encontró el término nuevo")Terminara siEnd Sub |
