Função SolverGet

Retorna informações sobre as definições atuais para o Solver. As definições são especificadas nas caixas de diálogo Parâmetros do Solver e Opções do 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.

SolverGet(TypeNum, SheetName)

TypeNumInteiro obrigatório. Um número que especifica o tipo de informação desejada. As configurações a seguir são especificadas na caixa de diálogo Parâmetros do Solver .

TypeNum	Retorna
1	A referência na caixa Definir células de destino, ou o valor de erro #N/D se o Solver não tiver sido usado na planilha ativa.
2	Um número correspondente à opção Igual a: 1 representa Máx, 2 representa Mín e 3 representa Valor de.
3	O valor na caixa Valor de.
4	A referência (na forma de uma referência múltipla, se necessário) na caixa Células variáveis.
5	O número de restrições.
6	Uma matriz dos lados esquerdos das restrições, em forma de texto.
7	Uma matriz de números correspondente às relações entre os lados esquerdo e direito das restrições: 1 representa <=, 2 representa =, 3 representa >=, 4 representa int e 5 representa bin.
8	Uma matriz dos lados direitos das restrições, em forma de texto.
13	True se o método Simple LP Solving for selecionado; False se outro método Solving for selecionado.
20	True se a caixa de seleção Tornar variáveis não restritas não negativas for selecionada; False se for limpo.

As definições seguintes são especificadas na caixa de diálogo Opções do Solver.

TypeNum	Retorna
9	A opção Tempo Máx. (Segundos) (guia Todos os Métodos).
10	A opção Iterações (guia Todos os Métodos).
11	A opção Precisão da Restrição (guia Todos os Métodos).
12	A opção Nível de Número Inteiro Ideal (%) (guia Todos os Métodos).
14	True se a caixa de seleção Mostrar Resultados de Iterações estiver selecionada; False caso esteja desmarcada.
15	True se a caixa de seleção Usar Escala Automática estiver marcada; False caso esteja desmarcada (guia Todos os Métodos).
16	Um número correspondente ao tipo de estimativas: 1 representa Tangente e 2 representa Quadrática.
17	Um número que corresponde à opção Derivativos na guia GRG Não Linear: 1 representa Prospectiva e 2 representa Central (guia GRG Não Linear).
18	Um número correspondente ao tipo de pesquisa: 1 representa Newton e 2 representa Conjugado.
19	A tolerância Convergência (guia GRG Não Linear e guia Evolutionary).
21	A opção Tamanho da População (guia GRG Não Linear e guia Evolutionary).
22	A opção Propagação Aleatória (guia GRG Não Linear e guia Evolutionary).
23	True se a caixa de seleção Usar Multistart estiver selecionada; False se ele for desmarcado (guia GRG Nonlinear).
24	True se a caixa de seleção Limites Necessários em Variáveis estiver marcada; False caso esteja desmarcada (guia GRG Não Linear e guia Evolutionary).
25	A opção Taxa de Mutação (guia Evolutionary).
26	A opção Subproblemas Máx. (guia Todos os Métodos).
27	A opção Soluções Viáveis Máx. (guia Todos os Métodos).
28	A opção Ignorar Restrições de Inteiro (guia Todos os Métodos).
29	A opção Tempo Máximo sem Melhoria (guia Evolucionária).

SheetNameVariante Opcional. O nome da folha que contém o modelo Solver para o qual você deseja informações. Se SheetName for omitido, essa planilha será considerada a planilha ativa.

Exemplo

Este exemplo exibe uma mensagem se você não tiver usado o Solver na Planilha1.

Worksheets("Sheet1").Activate 
state = SolverGet(TypeNum:=1) 
If IsError(State) Then 
 MsgBox "You have not used Solver on the active sheet" 
End If

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.