Compartilhar via


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á 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.

SolverOkDialog( 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: 1 para o método LP Simplex, 2 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 . ByChangeVariante 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 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.