Función SolverSave

Guarda las especificaciones de problema de Solver en la hoja de cálculo.

Nota El complemento Solver no está habilitado de forma predeterminada. Para poder usar esta función, debe tener el complemento de Solver habilitado e instalado. Para obtener información sobre cómo hacer eso, consulte Uso de las funciones de Solver VBA. Una vez instalado el complemento de Solver, debe establecer una referencia al complemento de Solver. En el Editor de Visual Basic, con un módulo activo, haga clic en Referencias en el menú Herramientas y, después, seleccione Solucionador en Referencias disponibles. Si Solver no aparece en Referencias disponibles, haga clic en Examinar y, a continuación, abra Solver.xlam en la subcarpeta \Archivos de programa\Microsoft Office\Office14\Library\SOLVER.

SolverSave( SaveArea)

GuardarAreaVariant obligatorio. Si es un rango de una única celda, Solver usa la cantidad de celdas que necesita para guardar el modelo, en una columna que empieza con la celda especificada. Si es un rango de varias celdas, Solver usa sólo las celdas dentro de ese rango, incluso si el modelo no se puede guardar por completo. Si se trata de un rango de varias celdas, Solver solo usa celdas dentro de ese rango, incluso si el modelo no se puede guardar por completo, el rango representado por el argumento SaveArea puede estar en cualquier hoja de cálculo, pero debe especificar la hoja de cálculo si no es la hoja activa. Por ejemplo, SolverSave("Sheet2!A1:A3") guarda el modelo en Sheet2 aunque Sheet2 no sea la hoja activa.

Ejemplo:

Este ejemplo usa las funciones de Solver para maximizar el beneficio bruto en un problema empresarial. La función SolverSave guarda el problema actual en un rango de la hoja de cálculo activa.

Worksheets("Sheet1").Activate 
SolverReset 
SolverOptions Precision:=0.001 
SolverOK SetCell:=Range("TotalProfit"), _ 
 MaxMinVal:=1, _ 
 ByChange:=Range("C4:E6") 
SolverAdd CellRef:=Range("F4:F6"), _ 
 Relation:=1, _ 
 FormulaText:=100 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=3, _ 
 FormulaText:=0 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=4 
SolverSolve UserFinish:=False 
SolverSave SaveArea:=Range("A33")

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.