Função SolverOk

Define um modelo básico do Solver. Equivalente a clicar em Solver no grupoAnálise de Dados | e especificar opções na caixa de diálogo Parâmetros do Solucionador.

Observação

O suplemento Solver não está habilitado por padrão. Antes de poder usar esta função, você deve ter o suplemento Solver habilitado e instalado. Para saber mais sobre como fazer isso, consulte Usando as funções VBA do Solver. Após a instalação do suplemento Solver, você deverá estabelecer uma referência para o suplemento Solver. No Editor do Visual Basic, com um módulo ativo, clique em Referências, no menu Ferramentas e clique em Solucionador nas Referências disponíveis. Se o Solver não aparecer em Referências Disponíveis, clique em Procurar e então abra Solver.xlam na subpasta \Arquivos de Programas\Microsoft Office\Office14\Biblioteca\SOLVER.

SolverOk( SetCell, MaxMinVal, ValueOf, ByChange, Engine, EngineDesc)

SetCellVariante Opcional. Refere-se a uma única célula na planilha ativa. Corresponde à caixa de diálogo Definir Célula de Destino na caixa de diálogo Parâmetros do Solucionador . MaxMinValVariante Opcional. Corresponde às opções Max, Min e Value na caixa de diálogo Parâmetros do Solucionador .

MaxMinVal Especifica
1 Maximizar
2 Minimizar
3 Coincidir um valor específico

ValueofVariante Opcional. Se MaxMinVal for 3, você deverá especificar o valor ao qual a célula de destino é correspondida.

ByChangeVariante Opcional. A célula ou intervalo de células que serão alteradas para que você obtenha o resultado desejado na célula de destino. Corresponde à caixa de diálogo Por Alterar Células na caixa de diálogo Parâmetros do Solucionador .

MotorVariante Opcional. O método Solving que deve ser usado para resolver o problema: 2 para o método LP Simplex, 1 para o método GRG Nonlinear ou 3 para o método Evolutivo. Corresponde à lista suspensa Selecionar um Método de Resolução na caixa de diálogo Parâmetros do Solucionador .

EngineDescVariante Opcional. Uma maneira alternativa de especificar o método Solving que deve ser usado para resolver o problema como uma cadeia de caracteres: "Simplex LP", "GRG Nonlinear" ou "Evolutionary". Corresponde à lista suspensa Selecionar um Método de Resolução na caixa de diálogo Parâmetros do Solucionador .

Exemplo

Este exemplo usa as funções do Solver para maximizar o lucro bruto em um problema de negócios. A função SolverOK define um problema especificando os argumentos SetCell, MaxMinVal e ByChange .

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")

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.