Função SolverSave

Salva as especificações do problema do Solver na planilha.

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.

SolverSave( SaveArea)

SaveAreaVariante necessária. Se for um intervalo com uma única célula, o Solver usará o número de células necessário para salvar o modelo, em uma coluna começando com a célula especificada. Se for um intervalo com várias células, o Solver usará somente as células desse intervalo, mesmo se o modelo não puder ser inteiramente salvo. Se esse for um intervalo de várias células, o Solver usará apenas células dentro desse intervalo, mesmo que o modelo não possa ser totalmente salvo, o intervalo representado pelo argumento SaveArea pode estar em qualquer planilha, mas você deve especificar a planilha se não for a planilha ativa. Por exemplo, SolverSave("Sheet2!A1:A3") salva o modelo na Planilha2 mesmo que Sheet2 não seja a planilha ativa.

Exemplo

Este exemplo usa as funções do Solver para maximizar o lucro bruto em um problema de negócios. A função SolverSave salva o problema atual em um intervalo na planilha ativa.

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.