Função SolverChange

Altera uma restrição existente. Equivalente a clicar em Solucionador no grupoAnálise de Dados | e, em seguida, clicar em Alterar na caixa de diálogo Parâmetros do Solucionador.

Nota O suplemento Solver não está habilitado por padrão. Para usar esta função, você deve instalar e habilitar o suplemento Solver. 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.

SolverChange( CellRef, Relation, FormulaText)

CellRef exige variante. Uma referência a uma célula ou a um intervalo de células que forma o lado esquerdo de uma restrição. Relação exige inteiro. A relação aritmética entre os lados esquerdo e direito da restrição. Se você escolher 4 ou 5, CellRef deverá se referir a células ajustáveis (alteração) e FormulaText não deve ser especificado.

Relation	Relacionamento aritmético
1	<=
2	=
3	>=
4	As células referenciadas por CellRef devem ter valores finais que são inteiros.
5	As células referenciadas pelo CellRef devem ter valores finais de 0 (zero) ou 1.
6	As células referenciadas pelo CellRef devem ter valores finais diferentes e inteiros.

FormulaText Variante opcional. O lado direito da restrição.

Comentários

Se CellRef e Relation não corresponderem a uma restrição existente, você deverá usar as funções SolverDelete e SolverAdd para alterar a restrição.

Exemplo

Este exemplo carrega o modelo do Solver calculado anteriormente e armazenado em Sheet1, altera uma das restrições e resolve novamente o modelo.

Worksheets("Sheet1").Activate 
SolverLoad loadArea:=Range("A33:A38") 
SolverChange cellRef:=Range("F4:F6"), _ 
 relation:=1, _ 
 formulaText:=200 
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.