Función SolverGet

Devuelve información acerca de los valores actuales de Solver. Los valores se especifican en los cuadros de diálogo Parámetros de Solver y Opciones de Solver.

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.

SolverGet(TypeNum, SheetName)

TypeNumNúmero entero necesario. Número que especifica el tipo de información que desea. La siguiente configuración se especifica en el cuadro de diálogo Parámetros de Solver .

TypeNum	Devuelve
1	La referencia del cuadro Celda objetivo o el valor de error #N/A si no se ha usado Solver en la hoja activa.
2	Un número que corresponde a la opción Valor de la celda objetivo: 1 representa Máx, 2 representa Mín y 3 representa Valor de.
3	El valor del cuadro Valor de.
4	La referencia (como referencia múltiple, si es necesario) del cuadro Cambiando las celdas.
5	El número de restricciones.
6	Una matriz de los lados izquierdos de las restricciones, en forma de texto.
7	Matriz de números correspondientes a las relaciones entre los lados izquierdo y derecho de las restricciones: 1 representa <=, 2 representa =, 3 representa >=, 4 representa int y 5 representa bin.
8	Una matriz de los lados derechos de las restricciones, en forma de texto.
13	True si el método de resolución Simplex LP está seleccionado; False si hay otro método de resolución seleccionado.
20	True si la casilla Make Unconstrained Variables Non-Negative (Crear variables no restringidas no negativas ) está activada; False si está desactivada.

Los siguientes valores se especifican en el cuadro de diálogo Opciones de Solver.

TypeNum	Devuelve
9	La opción Tiempo máximo (segundos) (ficha Todos los métodos).
10	La opción Iteraciones (ficha Todos los métodos).
11	La opción Precisión de restricciones (ficha Todos los métodos).
12	La opción Optimalidad de entero (%) (ficha Todos los métodos).
14	True si la casilla de verificación Mostrar resultados de iteraciones está activada; False en caso contrario.
15	True si la casilla de verificación Usar escala automática está activada; False en caso contrario (ficha Todos los métodos).
16	Un número que corresponde al tipo de estimaciones: 1 representa Tangente y 2 representa Cuadrática.
17	Un número que corresponde a la opción Derivadas en la ficha GRG Nonlinear: 1 representa Progresivas y 2 representa Centrales (ficha GRG Nonlinear).
18	Un número que corresponde al tipo de búsqueda: 1 representa Newton y 2 representa Conjugada.
19	La tolerancia Convergencia (ficha GRG Nonlinear y Evolutionary).
21	La opción Tamaño de población (ficha GRG Nonlinear y Evolutionary).
22	La opción Valor de inicialización aleatorio (ficha GRG Nonlinear y Evolutionary).
23	True si está activada la casilla Usar inicio múltiple ; False si está desactivada (pestaña GRG no lineal).
24	True si la casilla de verificación Requerir límites en variables está activada; False en caso contrario (ficha GRG Nonlinear y Evolutionary).
25	La opción Tasa de mutación (ficha Evolutionary).
26	La opción Máximo de subproblemas (ficha Todos los métodos).
27	La opción Máximo de soluciones viables (ficha Todos los métodos).
28	La opción Omitir restricciones de enteros (ficha Todos los métodos).
29	La opción Tiempo máximo sin mejora (ficha Evolutionary).

SheetNameVariant opcional. Nombre de la hoja que contiene el modelo de Solver para el que desea información. Si se omite SheetName , se supone que esta hoja es la hoja activa.

Ejemplo:

En este ejemplo se muestra un mensaje si no ha usado Solver en Sheet1.

Worksheets("Sheet1").Activate 
state = SolverGet(TypeNum:=1) 
If IsError(State) Then 
 MsgBox "You have not used Solver on the active sheet" 
End If

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.