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.
Comentários
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Enviar e exibir comentários de