Criação de um modelo para cálculo de prestações de financiamento

Introdução

Os controles ActiveX são elementos ou objetos gráficos que proporcionam facilidades de ações como exibir e inserir dados em formulários, planilhas e outros aplicativos. Segue um exemplo de aplicação com a utilização de alguns desses controles.

Atividades a desenvolver:
Gerar um modelo e aplicar fórmulas apropriadas;
adicionar controles ActiveX à planilha;
vincular os controles às células da planilha;
criar e vincular uma caixa de listagem a um intervalo da planilha;
criar sub-rotinas de eventos.

Modelo para cálculo de prestações de financiamento

	=Preco*(1-Entrada) (Fórmula contida na célula C4)
	=PGTO(Juros/12;Anos*12;Emprestimo) (Fórmula contida na célula C7)

Lembrando que para trabalhar com rótulo (descrição do valor contido na coluna à esquerda na planilha) em fórmula no Excel em vez de referência de célula, deve-se primeiro acionar a partir do menu Ferramentas, o sub-menu Opções e, em seguida, clicar na guia Cálculo e na seção “Opções de pasta de trabalho” clicar na caixa Aceitar rótulos em fórmulas.

Disponibilize a barra da caixa de ferramenta de controle, clicando no menu Exibir / Barras de ferramentas / Caixa de ferram. de controle.

Barra de ferramenta de controle:

Limitando os anos de pagamento

Clique no Botão Modo de design e depois no Botão de rotação;
Arraste o ponteiro do mouse na célula E6 de um canto a outro, pressionando a tecla ALT para cobrir toda a célula;
Clique no Botão propriedades para abrir a janela propriedades;
Na janela propriedades, defina: Max=6 / Min=1 / LinkedCell=C6;
Clique no Botão Sair do modo de design para poder testar o botão de rotação inserido.

Caixa de diálogo Propriedades:

Limitando o percentual da entrada

Clique no botão Modo de design e depois no Botão de rotação;
Arraste o ponteiro do mouse na célula E3 de um canto a outro, pressionando a tecla ALT para cobrir toda a célula;
Clique no botão Propriedades para abrir a janela propriedades;
Na janela propriedades, defina: Max=100 / Min=0 / LinkedCell=G3 / SmallChange=5;
Na célula C3, digite: =G3/100.
Clique no botão Sair do modo estrutura para poder testar o botão de rotação inserido.

(A razão para uso da célula G3 e depois ter seu conteúdo dividido por 100 e o resultado armazenado na célula C3 é dada pelo fato de haver limitação em definir porcentagens ou casas decimais diretamente na caixa de propriedades.)

Limitando a taxa de juros

Clique no botão Modo de design e depois no botão Barra de rolagem;
Arraste o ponteiro do mouse na célula E5 de um canto a outro, pressionando a tecla ALT para cobrir toda a célula;
Clique no Botão Propriedades para abrir a janela propriedades;
Na janela propriedades, defina: Max=2000 / Min=1 / LinkedCell=G5 / SmallChange=25 / LargeChange=100;
Na célula C5, digite: =G5/10000;
Formate a célula C5 para registrar duas casas decimais;
Clique no botão Sair do modo de design para poder testar o botão de rotação inserido.

Obtendo preço de uma lista

Prepare uma lista de carros, por exemplo, em células do Excel;
Selecione a lista;
Clique no menu Inserir / Nome / Definir;
Na janela Definir nome, digite um nome para a lista. Exemplo: ListaDeCarros;
Clique no botão Modo de design e depois no botão Caixa de combinação;
Arraste o mouse a partir das célula E2 para criar a caixa;
Clique no botão Propriedades para abrir a janela propriedades;
Na janela propriedades, defina:
ListFillRange=ListaDeCarros / Style=2 - fmStyleDropDownList / LinkeCell=C2 / ColumnCount=2 / BoundColumn=2 / columnWidths=0,5pol;0,5pol;
Clique no botão Sair do modo de design para poder testar elementos da Caixa de combinação.

Lista de Carros:  ListaDeCarros

Sub-rotina de evento para o botão de rotação

A passagem transitória dos valores dos rótulos de Entrada e de Juros pelas células G3 e G5, respectivamente,  pode ser eliminada pela criação de pequenas macros ou sub-rotinas de eventos.

Sub-rotina de evento para o Botão de rotação:

Clique no botão Modo de design / célula E3 (Botão de rotação) / propriedades;
Na janela propriedades faça: (Name)=spnEntrada / LinkedCell=(limpar conteúdo);
Clique em Exibir código, na Caixa de Ferramentas de Controle;
Insira a instrução:
Range (“C3”).value = spnEntrada.value / 100

Sub-rotina de evento para a barra de rolagem:

Clique no botão Modo de design / célula E5 (Botão de rotação) / propriedades;
Na janela propriedades faça: (Name)=spnJuros / LinkedCell=(limpar conteúdo): Clique em Exibir código, na Caixa de Ferramentas de Controle;
Insira a instrução:
Range (“C5”).value = spnJuros.value / 10000

Agora com a criação dessas duas sub-rotinas, as células G3 e G5 podem ser limpas, pois seus conteúdos não são mais necessários.