Una de las características más potentes de Microsoft Excel es " Buscar objetivo " - la capacidad de encontrar un valor para una célula que produce un determinado resultado en otra celda . Normalmente , usted puede encontrar Buscar objetivo en el menú " Datos" o pestaña " cinta" , pero si usted necesita para ejecutar Buscar objetivo muchas veces, usted puede ser capaz de guardar un montón de tiempo mediante la automatización con un Visual Basic para Aplicaciones ( VBA) . Por suerte , Buscar objetivo está plenamente integrado en VBA , por lo que escribir una macro para usarlo es fácil. Instrucciones
1

Abra el documento de Excel en el que desea ejecutar su búsqueda de objetivo macro.
2

Encuentra las dos celdas que desea utilizar para la búsqueda de objetivo . La primera debe ser la celda para la que tiene una meta fija. El segundo debe ser una celda que permite Excel para cambiar con el fin de cumplir con ese objetivo. El valor de la primera celda debe ser una fórmula que se basa en la segunda célula - de lo contrario , no importa qué cambios Excel hace a la segunda célula , no hay cambios aparecerán en la primera
3 < p . > Abra la ventana Macro . En Excel 2007 o posterior , hacer esto haciendo clic en la pestaña "Ver" de la cinta, haga clic en " Macros ". En versiones anteriores de Excel , haga clic en el menú " Herramientas" , selecciona "Macro " a continuación, seleccione " macros ".
4

Escriba un nombre para la búsqueda de objetivo macro en la ventana macro y haga clic en " Crear". Esto abrirá el editor de Visual Basic para Aplicaciones y mostrar el texto de la nueva macro , que comienzan como una subrutina de vacío así:

Sub MyMacroName () End Sub
5

Crear un objeto Range que representa la celda para la que tener un objetivo conocido ( la primera celda de la Etapa 2 ) . Por ejemplo, si desea Buscar objetivo la celda A1 , escriba a: .

GoalCell As RangegoalCell = ThisWorkbook.Worksheet ( 1 ) Range (" A1")
6

Crear un objeto Range que representa la celda que desea Excel para cambiar para hacer que la primera célula para llegar a la meta conocida . Por ejemplo, si desea Excel para manipular la celda A2 , escriba a: .

VariableCell As RangevariableCell = ThisWorkbook.Worksheet ( 1 ) Range (" A2" )
7

Llame al método GoalSeek el rango de la célula objetivo . En cuanto al primer argumento, suministrar el valor que le gustaría que Buscar objetivo que , como segundo argumento , suministrar rango de la celda variable. Por ejemplo, si desea Buscar objetivo a 0, escriba :

goalCell.GoalSeek ( 0 , variableCell )