visual basic for applications n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
Visual Basic for Applications PowerPoint Presentation
Download Presentation
Visual Basic for Applications

Loading in 2 Seconds...

play fullscreen
1 / 9

Visual Basic for Applications - PowerPoint PPT Presentation


  • 60 Views
  • Uploaded on

Visual Basic for Applications. Parte 03 – Formularios. 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;

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'Visual Basic for Applications' - ghada


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
visual basic for applications

Visual Basic for Applications

Parte 03 – Formularios

formul rios exemplo 1
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;
formul rios exemplo 11
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

formul rios exemplo 2
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 

formul rios exemplo 21
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

formul rios exemplo 22
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

formul rios exemplo 23
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.

exerc cio 1
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
exerc cio 2
Exercício 2
  • Usando o exercício anterior, tente implementar a rotina de excluir.