Traducción automática (Powered by

):
-
15-03-2010 12:58
#1
Arriba
Usuario registrado
- Me Conecto Desde
Extraer datos concretos de informe de sensibilidad de solver
Hola!
El problema que tengo es el siguiente: he creado una macro que varía el valor de una celda, ejecuta el solver, genera un informe de sensibilidad, extrae de este informe el valor asociado a una de las restricciones (precio sombra), elimina el informe y repite el proceso varias veces de forma que la variable tome todos los valores de un rango predeterminado.
El problema es que el proceso de generar el informe de sensibilidad, extraer el dato, y eliminar el informe es muy lento, y muy poco eficiente ya que lo unico que necesito es un unico valor.
¿alguien sabe si existe una funcion que me permita obtener el valor de la variable dual asociada a una de las restricciones?
muchas gracias a todos
un saludo
-
-
15-03-2010 17:14
#2
Arriba
Re: Extraer datos concretos de informe de sensibilidad de solver
Hola alsanbar,
bienvenido al foro.
podrías subir un pequeño ejemplo de lo que estás haciendo con el código que estás usando y explicar allí lo que quieres... no es muy fácil pensar en una solución sólo con lo que dices, revia esto: http://www.ayudaexcel.com/foro/showthread.php?t=9400 en especial los numerales 9 y 11.
-
-
16-03-2010 12:47
#3
Arriba
Usuario registrado
- Me Conecto Desde
Re: Extraer datos concretos de informe de sensibilidad de solver
Hola Mauricio,
muchas gracias por tu rápida respuesta.
Aquí dejo un trozo del código:
For i = 0 To 60
Range("reduccion").Value = i
SolverAceptar definirCelda:="$E$91", valorMáxMín:=2, valorDe:="0", _
celdascambiantes:= _
"$E$45:$E$49,$E$52:$E$54,$E$57:$E$60,$E$63:$E$67,$ E$70:$E$72,$E$75:$E$77,$E$80:$E$83"
SolverSolve (True)
'genero informe de sensibilidad
solverfinish reportArray:=Array(2)
'cojo el valor del precio sombra y coloco en la variable precio_sombra
precio_sombra = Worksheets("Informe de sensibilidad 1").Range("E61").Value
'copio el valor en otra hoja
Worksheets("otra hoja").cells(i,1).Value = precio_sombra
'elimino hoja de sensibilidad
Application.DisplayAlerts = False
Worksheets("Informe de sensibilidad 1").Delete
Application.DisplayAlerts = True
next i
Lo que me gustaría saber es si hay un camino más rápido y eficiente para hacer esto. generar el informe de sensibilidad, tomar el valor, y eliminar el informe es un proceso lento, y lo único que necesito es un valor! no todo el informe. Necesito el precio sombra (variable dual asociada a una de las restricciones del modelo)
El problema que planteo es un problema de optimizacion lineal. Sé que podría resolverlo planteando el problema dual, pero me gustaría saber si hay una forma más eficiente que la que planteo de resolver el problema primal.
muchas gracias a todos.
-
Temas Similares
-
Por sasaky en el foro Excel General
Respuestas: 0
Último Mensaje: 24-10-2009, 17:14
-
Por joseans23 en el foro Macros y programación VBA
Respuestas: 5
Último Mensaje: 18-09-2009, 02:32
-
Por davili en el foro Macros y programación VBA
Respuestas: 0
Último Mensaje: 02-09-2009, 10:09
-
Por angelt en el foro Temas resueltos
Respuestas: 6
Último Mensaje: 11-08-2009, 09:16
-
Por KEASEIO en el foro Fórmulas y funciones
Respuestas: 3
Último Mensaje: 13-02-2009, 10:53
Permisos de Publicación
- No puedes crear nuevos temas
- No puedes responder temas
- No puedes subir archivos adjuntos
- No puedes editar tus mensajes
Reglas del Foro
Marcadores