Função SolverOkDialog

O mesmo que a função SolverOK, mas também exibe a caixa de diálogo Solver.

Nota O suplemento Solver não está ativado por predefiniçã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.

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

SetCellVariante Opcional. Refere-se a uma única célula na folha de cálculo ativa. Corresponde à caixa Definir Célula de Destino na caixa de diálogo Parâmetros do Solver . MaxMinValVariante Opcional. Corresponde às opções Máximo, Mínimo e Valor na caixa de diálogo Parâmetros do Solver .

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

ValueOfVariante Opcional. Se MaxMinVal for 3, tem de especificar o valor ao qual a célula de destino corresponde. ByChangeVariante Opcional. A célula ou intervalo de células que serão alteradas para obter o resultado pretendido na célula de destino. Corresponde à caixa Ao Alterar Células na caixa de diálogo Parâmetros do Solver . MotorVariante Opcional. O método de Resolução que deve ser utilizado para resolver o problema: 1 para o método LP Simplex, 2 para o método GRG Nonlinear ou 3 para o método Evolutionary. Corresponde à lista pendente Selecionar um Método de Resolução na caixa de diálogo Parâmetros do Solver . ByChangeVariante Opcional. Uma forma alternativa de especificar o método de Resolução que deve ser utilizado para resolver o problema como uma cadeia: "Simplex LP", "GRG Nonlinear" ou "Evolutionary". Corresponde à lista pendente Selecionar um Método de Resolução na caixa de diálogo Parâmetros do Solver .

Exemplo

Este exemplo carrega o modelo do Solver anteriormente calculado armazenado em Sheet1, redefine todas as opções do Solver e, em seguida, exibe a caixa de diálogo Parâmetros do Solver. Desse ponto em diante, você pode usar o Solver manualmente.

Worksheets("Sheet1").Activate 
SolverLoad LoadArea:=Range("A33:A38") 
SolverReset 
SolverOKDialog SetCell:=Range("TotalProfit") 
SolverSolve UserFinish:=False

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.