NUNCA MAIS PASSE RAIVA POR NÃO CONSEGUIR RESOLVER UM PROBLEMA COM O EXCEL - GARANTIDO!

UNIVERSIDADE DO VBA - Domine o VBA no Excel Criando Sistemas Completos - Passo a Passo - CLIQUE AQUI

Você está em: PrincipalTutoriaisInformatizando sua Empresa com Excel : Agendavbaexcel005
Quer receber novidades e e-books gratuitos?

FILTRO DE TUTORIAIS:


Criar Agenda Telefônica Utilizando o Editor de Visual Basic do Excel. Conclusão

 

Objetivo: O Objetivo deste tutorial é aprender a codificar o aplicativo Agenda Telefônica.

 

Pré-requisito:

 

Para você poder acompanhar este tutorial e o desenvolvimento do aplicativo, será necessário ter conhecimento no mínimo do “ Curso Básico de Excel e dos Tutoriais Parte1 e Parte2 e Parte3 e Parte4”.

 

Nota:

 

Irei apenas ensinar onde deve ser colocado cada código e um breve resumo de sua função, também vou ensinar um código para você colocar dentro de um botão da planilha plan2 para você abrir diretamente o formulário da agenda, com este botão não será necessário abrir o editor Visual Basic.

 

Para iniciáramos a codificar a agenda telefônica, você deve criar uma pasta no seu computador dentro da pasta meu documentos, isso se faz necessário porque os códigos do aplicativo estão direcionados para esta pasta que deve estar com o nome de APLICATIVO, dentro da pasta tem que ser criado o banco de dados (Detalhes de como criar banco de dados, consulte Parte2) conforme tínhamos definidos na análise.

 

Dentro banco de dados estará também os dois formulários que aprendemos a criar na parte 4, você deve abri-lo através do editor do visual basic (Detalhes de como abrir o editor de visual basic, consulte Parte1) para iniciarmos a codificar da seguinte maneira:

 

Vamos começar inserindo o código abaixo no Botão Cadastrar, este código faz a função de abrir o banco de dados, cadastrar, salvar e também faz uma função para que quando você não cadastrar todos os campos disponíveis na agenda o código preenche os campos vazios automático com o símbolo “-“, isso se faz necessário para que quando efetuar uma pesquisa não acha um erro, ou seja , este código faz 04 funções .Veja o procedimento abaixo.

 

Dim bd As Database

Dim rs As Recordset

 

Set bd = OpenDatabase("C:\Meus documentos\APLICATIVO\AGENDATELEFONICA.xls", False, False, "excel 8.0")

Set rs = bd.OpenRecordset("PLAN1$", dbOpenDynaset)

 

If Me.Text_Registro > Me.Label10 Then

If Me.Text_Anotacao = "" Then

Me.Text_Anotacao.Text = "-"

End If

If Me.Text_Bairro.Text = "" Then

Me.Text_Bairro.Text = "-"

End If

 

If Me.Text_Celular.Text = "" Then

Me.Text_Celular.Text = "-"

End If

If Me.Text_Cep = "" Then

Me.Text_Cep.Text = "-"

End If

If Me.Text_Cidade = "" Then

Me.Text_Cidade.Text = "-"

End If

If Me.Text_Comercial = "" Then

Me.Text_Comercial.Text = "-"

End If

If Me.Text_Endereco = "" Then

Me.Text_Endereco.Text = "-"

End If

If Me.Text_Estado = "" Then

Me.Text_Estado = "-"

End If

If Me.Text_Nome = "" Then

Me.Text_Nome.Text = "-"

End If

If Me.Text_Outro = "" Then

Me.Text_Outro.Text = "-"

If Me.Text_Registro = "" Then

Me.Text_Outro.Text = "-"

End If

If Me.Text_Residencial = "" Then

Me.Text_Residencial.Text = "-"

End If

 

 

 

Dim CADASTRO(1 To 12)

CADASTRO(1) = UCase(Me.Text_Registro)

CADASTRO(2) = UCase(Me.Text_Nome)

CADASTRO(3) = LCase(Me.Text_Endereco)

CADASTRO(4) = UCase(Me.Text_Cidade)

CADASTRO(5) = UCase(Me.Text_Bairro)

CADASTRO(6) = UCase(Me.Text_Estado)

CADASTRO(7) = UCase(Me.Text_Cep)

CADASTRO(8) = UCase(Me.Text_Celular)

CADASTRO(9) = UCase(Me.Text_Residencial)

CADASTRO(10) = UCase(Me.Text_Comercial)

CADASTRO(11) = UCase(Me.Text_Outro)

CADASTRO(12) = UCase(Me.Text_Anotacao)

CADASTRO(12) = UCase(Me.Text_Registro.Value)

Dim AGENDA As Object

Dim L, I

Set AGENDA = Plan1.Cells(1, 1).CurrentRegion

L = AGENDA.Rows.Count + 1

If Len(Me.Text_Registro) = 0 Then

MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE ENDEREÇOS"

Else

For I = 1 To 12

Plan1.Cells(L, I).Value = Trim(CADASTRO(I))

Next I

MsgBox "CADASTRADO", vbInformation, " COM SUCESSO"

ThisWorkbook.Save

End If

End If

End If

Exit Sub

 

MsgBox "Digite o código para completar cadastro"

 

 

Copie este código acima e acesse o Botão Cadastrar (Detalhes de como abrir o código do Botão de Comando, consulte parte 1), depois cole-o dentro da área de código do botão.Vou mostrar o código dentro de 2(duas) telas, motivo seu tamanho:

 

Tela 001 (Primeira visualização do código dentro do comando cadastrar)

 

Tela 002 (Restante da código )

 

Agora vamos fazer o mesmo procedimento para o Botão Editar, esta função vai possibilitar editar qualquer um dos campos que agenda possui, por causa deste código é que tive que acrescentar mais alguns objetos ao formulário, entre eles uma label que vai nos permitir saber quantos registros o nosso banco de dados tem cadastrado, o que vem ser mais dado útil, inserida o código abaixo dentro do botão editar,veja na tela abaixo:

 

Dim CADASTRO(1 To 12)

CADASTRO(1) = UCase(Me.Text_Registro)

CADASTRO(2) = UCase(Me.Text_Nome)

CADASTRO(3) = LCase(Me.Text_Endereco)

CADASTRO(4) = UCase(Me.Text_Cidade)

CADASTRO(5) = UCase(Me.Text_Bairro)

CADASTRO(6) = UCase(Me.Text_Estado)

CADASTRO(7) = UCase(Me.Text_Cep)

CADASTRO(8) = UCase(Me.Text_Celular)

CADASTRO(9) = UCase(Me.Text_Residencial)

CADASTRO(10) = UCase(Me.Text_Comercial)

CADASTRO(11) = UCase(Me.Text_Outro)

CADASTRO(12) = UCase(Me.Text_Anotacao)

CADASTRO(12) = UCase(Me.Text_Registro.Value)

For I = 1 To 12

Plan1.Cells(Val(Me.Text_Registro) + 1, I).Value = Trim(CADASTRO(I))

Next I

MsgBox "ALTERAÇÃO EFETUADA", vbInformation, "CADASTRO DE ENDEREÇOS"

ThisWorkbook.Save

 

 

Tela 003 (função inserida na janela de código do botão editar)

 

Vamos para o botão apagar, como o próprio nome já diz, criei uma função para apagar todos os registros da agenda, somente os que estão selecionados no momento em que você fez a pesquisa, ou seja, apaga um registro por fez. Veja o código abaixo e inserira na janela de código (Detalhes de como acessar a janela de código, consulte parte 2) do botão apagar.

 

 

Dim agenda

Resp = MsgBox("EXCLUIR O REGISTRO", vbYesNo + vbQuestion, "CADASTRO ")

If agenda = vbYes Then

Plan1.Cells(Val(Me.Text_Registro) + 1, 1).EntireRow.Delete

ThisWorkbook.Save

End If

 

 

 

Tela 004 (Função inserida no botão apagar)

 

Veja a função abaixo do botão ajuda, é bem simples ao clicarmos no botão a função vai abrir o formulário ajuda.

 

Ajuda.show

 

Tela 005 (É uma função pequena mas que utilizaremos em todos os aplicativos)

 

O botão fechar a função é quase igual a do botão ajuda,vai servir para fechar o aplicativo.

 

Tela 006( Função inserida no botão fechar)

 

Vamos colocar a função no botão pesquisar, esta função vai nos possibilitar fazer a pesquisa pelo campo nome, que tínhamos definido durante a análise que foi feita no Tutorial Parte 3. Veja o código abaixo e insira no botão pesquisar.

 

Dim DB As Database

Dim rs As Recordset

Set DB = OpenDatabase("C:\Meus documentos\APLICATIVO\AGENDATELEFONICA.xls", False, False, "Excel 8.0")

Set rs = DB.OpenRecordset("PLAN1$", dbOpenDynaset)

 

rs.FindFirst "NOME LIKE'" & Me.Text_Nome & "'"

'3º se não tiver o registro na tabela termina pesquisa

If rs.NoMatch = True Then MsgBox "Nome não cadastrado", vbInformation, "Banco de dados": Exit Sub

'4º se localizar pesquisa preenche os campos

Me.Text_Registro = rs.Fields("CODIGO")

Me.Text_Nome = rs.Fields("NOME")

Me.Text_Endereco = rs.Fields("ENDERECO")

Me.Text_Cidade = rs.Fields("CIDADE")

Me.Text_Bairro = rs.Fields("BAIRRO")

Me.Text_Estado = rs.Fields("ESTADO")

Me.Text_Cep = rs.Fields("CEP")

Me.Text_Celular = rs.Fields("CELULAR")

Me.Text_Residencial = rs.Fields("RESIDENCIAL")

Me.Text_Comercial = rs.Fields("COMERCIAL")

Me.Text_Outro = rs.Fields("OUTRO")

Me.Text_Anotacao = rs.Fields("ANOTACAO")

 

Tela 007 (Função inserida)

 

Insira um botão na planilha dentro da plan2 com nome igual ao que esta na tela abaixo(Detalhes de como inserir um botão, consulte parte 2) e dentro dele coloque esta função Form_Principal, veja o procedimento abaixo:

 

Tela 008 (Insira um botão e coloque o nome Abrir)

 

Tela 009 (A função dever ser inserido dentro da janela de código)

 

Chegamos ao fim da criação do aplicativo, agora você já pode utilizar agenda telefônica e com isso facilitar as suas atividades, no próximo tutorial será sobre como utilizar o Editor de Vba e todas suas ferramentas, este tutorial vai ser muito importante porque todos os outros aplicativos que vamos aprender a desenvolver toda fez que for inserir algum objeto, componente vou fazer referência a este próximo tutorial.

 

Conclusão:

 

Nesta parte do tutorial, mostrei todos os códigos necessários para que agenda funcione com um breve resumo do que cada função faz e também uma dica para inserir um botão na planilha com o seus respectivo código para abrir a agenda sem ter a necessidade de ativar o editor do visual basic, bom estudo e até o próximo tutorial.


Confira todas as partes deste tutorial:

Quer receber novidades e e-books gratuitos?

Cursos Online

  • Banco de Dados
  • Carreira
  • Criação/Web
  • Excel/Projetos
  • Formação
  • + Todas as categorias
  • Contato: Telefone: (51) 3717-3796 | E-mail: webmaster@juliobattisti.com.br | Whatsapp: (51) 99627-3434

    Júlio Battisti Livros e Cursos Ltda | CNPJ: 08.916.484/0001-25 | Rua Vereador Ivo Cláudio Weigel, 537 - Universitário, Santa Cruz do Sul/RS, CEP: 96816-208

    Todos os direitos reservados, Júlio Battisti 2001-2020 ®

    [LIVRO]: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2010 - PASSO-A-PASSO

    APRENDA COM JULIO BATTISTI - 1124 PÁGINAS: CLIQUE AQUI