Visual Basic for Applications

1. Visual Basic for Applications Parte 03 – Formularios

2. Formulários – Exemplo 1 • Abra o Excel • Click com o botão direito sobre a barra de barra de botões e selecione Formulários; • Na pequena janela que abriu selecione um botão e desenhe na planilha; • Na janela atribuir macro selecione a opção NOVO; • Irá abrir uma Subrotina no VBA, ela será executada sempre que o botão for pressionado. • Crie um layout semelhante ao exemplo ao lado;

3. Formulários – Exemplo 1 • Na subrotina do VBA vamos criar o seguinte código; Dim linha As Integer ' Declaração Global Sub Botão1_Clique() ' Incrementando a linha linha = linha + 1 ' Atualizando Plan 2 Worksheets("plan2").Range("A" & linha).Value = Worksheets("plan1").Range("A2").Value Worksheets("plan2").Range("b" & linha).Value = Worksheets("plan1").Range("b2").Value 'Limpando Campo de Cadastro da Plan 1 Worksheets("plan1").Range("A2").Value = "" Worksheets("plan1").Range("b2").Value = "" End Sub

4. Formulários – Exemplo 2 • Abra o Excel • Click com o botão direito sobre a barra de barra de botões e selecione Visual Basic; • Na pequena janela que abriu selecione o botão Caixa de Ferramentas( ); • Crie das caixas de texto e um botão; OBS. Para o botão funcionar normalmente no Excel, temos que sair do modo estrutura, para isso temos que liberar o botão “Modo Estrutura”, ver figura ao lado 

5. Formulários – Exemplo 2 • Click com o botão direito sobre o primeiro objeto caixa de texto; • Selecione PROPRIEDADES • Irá parecer uma janela com vários atributos; • Mude o atributo (Name) para Cliente; • Repita este procedimento para o segundo objeto caixa de texto e mude o atributo (Name) para Telefone; • Repita o procedimento para o Botão, mas mude o atributo (Name) para Cadastrar e Caption para Cadastrar; • De dois clicks no botão para abrir o VBA. Note que o procedimento é um pouco diferente do formulário, pois este é um outro tipo de botão

6. Formulários – Exemplo 2 • Usando o mesmo código que o primeiro exercício, mas trabalhando com os objetos texto. Dim linha As Integer ' Declaração Global Sub Cadastrar_Click() ' Incrementando a linha linha = linha + 1 ' Atualizando Plan 2 Worksheets("plan2").Range("A" & linha).Value = Cliente.Value Worksheets("plan2").Range("b" & linha).Value = Fone.Value 'Limpando Campo de Cadastro da Plan 1 Cliente.Value = "" Fone.Value = "" End Sub

7. Formulários – Exemplo 2 • O que mudou --------------------------------------------------------- Worksheets("plan1").Range("A2").Value Para Cliente.Value ---------------------------------------------------------- Worksheets("plan1").Range("b2").Value Para Fone.Value --------------------------------------------------------- Primeiro trabalhamos com celular da planilha, depois usamos objetos do formulário.

8. Exercício 1 • Com base no exercício anterior, crie um pequeno cadastro de veículos. • Os dados de entrada são: • Marca • Modelo do Carro • Ano • Cor • Placa • Renavan • Proprietário

9. Exercício 2 • Usando o exercício anterior, tente implementar a rotina de excluir.