Você está aqui: Principal » Lista Completa de Tutoriais

Sobre este Tutorial

Autor:	Érico Araujo Gonçalves
Data:	23-05-2005
Categoria:	Informatizando Sua Empresa...
Assunto:	CRIANDO UMA AGENDA TELEFÔN...
Visitas:

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

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.

LISTA DE TODOS OS TUTORIAIS DISPONÍVEIS

LIVROS CAMPEÕES DE VENDA NO SITE

Cursos Online com Certificado e Suporte à Dúvidas

CURSOS ONLINE COM CERTIFICADO - INDICADOS POR JÚLIO BATTISTI EM PARCERIA COM CURSOS 24 HORAS
AdministraÇÃo
Administração Contábil e Financeira Administração de Empresas Administração do Tempo Aprenda a Falar em Público Chefia e Liderança Departamento Pessoal Empreendedorismo Gestão da Qualidade Gestão de Compras	Gestão de Projetos Gestão Escolar Gestão Hoteleira Gestão Pública Logística Matemática Financeira HP 12C Planejamento Estratégico Qualidade de Vida no Trabalho
COMUNICAÇÃO E MARKETING
Administração de Empresas Aprenda a Falar em Público Comércio Exterior Empreendedorismo Escrita e Redação Etiqueta Social e Empresarial Jornalismo Online Marketing Pessoal	Marketing Social Planejamento Estratégico Produção de Eventos Propaganda e Marketing Sucesso Profissional Técnicas de Vendas Telemarketing
CONCURSOS PÚBLICOS
Conhecimentos Bancários Gestão Pública Memorização e Leitura Dinâmica	Noções Gerais de Direito Raciocínio Lógico
CONTABILIDADE E ECONOMIA
Administração Contábil e Financeira Administração de Empresas Bolsa de Valores Comércio Exterior	Conhecimentos Bancários Contabilidade Básica Finanças Pessoais Matemática Financeira HP 12C
DIREITO
Assistente Social Departamento Pessoal	Gestão Pública Noções Gerais de Direito
GESTÃO E LIDERANÇA
Administração de Empresas Administração do Tempo Aprenda a Falar em Público Chefia e Liderança Empreendedorismo Etiqueta Social e Empresarial Gestão de Compras Gestão de Projetos Gestão Escolar	Gestão Hoteleira Gestão Pública Marketing Pessoal Memorização e Leitura Dinâmica Negociação Propaganda e Marketing Recolocação Profissional Secretariado Executivo Sucesso Profissional
INFORMÁTICA
Access 2007 ASP AutoCad 2D AutoCad 3D CorelDraw Excel 2007 Flash Linux MS Project 2007	Photoshop PowerPoint 2007 Raciocínio Lógico Redes e Noções de Hardware Segurança na Internet Webmaster Windows 7 Word 2007 Word e Excel
MEIO AMBIENTE
Educação Ambiental Guia de Turismo	Marketing Social Reciclagem e Energias Renováveis
PEDAGOGIA
Bullying Distúrbios de Aprendizagem Educação Ambiental Educação de Jovens e Adultos Educação Especial	Educação Infantil Escrita e Redação Gestão Escolar Saúde Emocional do Educador
ProfissionalizanteS
Administração de Empresas Assistente Social Comércio Exterior Departamento Pessoal Educação de Jovens e Adultos Educação Infantil Enfermagem Fotografia Digital Gestão da Qualidade Gestão de Compras Guia de Gastronomia	Guia de Turismo Jornalismo Online Logística Produção de Eventos Recepcionista de Hotel Recrutamento e Seleção Secretariado Executivo Segurança do Trabalho Técnicas de Vendas Telemarketing Webmaster
RECURSOS HUMANOS
Administração de Empresas Departamento Pessoal Gestão Pública	Qualidade de Vida no Trabalho Recrutamento e Seleção
SAÚDE
Assistente Social Bullying Enfermagem	Primeiros Socorros Saúde Emocional do Educador Segurança do Trabalho
TURISMO E HOTELARIA
Gestão Hoteleira Guia de Gastronomia	Guia de Turismo Recepcionista de Hotel

CURSOS ONLINE COM CERTIFICADO - INDICADOS POR JÚLIO BATTISTI EM PARCERIA COM BRAVA CURSOS
INFORMÁTICA
Curso de Digitação Formatando e Instalando Computador Excel para Iniciantes Curso Compre no Ebay Informática Educativa Curso de Linux	Segurança na Internet Montagem e Manutenção de Computadores Curso Remoção de Vírus Curso Ubuntu Instalação Linux - Ubuntu
AdministraÇÃo
Gestão de Projetos e Empreendedorismo Benefícios da Previdência Curso HP 12C Matemática Financeira Curso Análise Salarial	Processo de Elaboração de Questionário Excelência no Atendimento ao Cliente Logística do Transporte Licitações e Contratos Administrativos
Profissionalizante
Adestramento Canino Como fazer pesquisa Científica e Monografia Curso de Corte e Costura Supervisor de Telemarketing Balconista de Padaria Curso Educação Infantil	Recepcionista e Secretaria Velas Artesanais Relações Interpessoais Curso de Arbitragem Bullying e Cyberbullying Capacitação de Tutores em EAD
EstÉtica
Curso de Massoterapia Curso de Depilação Drenagem Linfática Curso de Maquiagem Limpeza Turbinada de Pele	Alisamento e Relaxamento Capilar Curso de Etiqueta SPA de Vinhoterapia na Estética Facial Curso de Shantala Introdução à Colorimetria Capilar
Pessoal
Curso de Caligrafia Memorização Chefia e Liderança Curso Falar em Público Curso Bases Neurológicas Leitura Dinâmica Planejamento de Projeto Pessoal Reforma Ortográfica	Como Passar em Concursos Públicos Direção Defensiva Administração do Tempo Curso de Redação Curso de Meditação Como Passar no Vestibular Atualização Gramatical
NegÓCIOS
Relações Humanas e Ética Profissional Marketing e Vendas Diretas	Persuasão em Vendas
Entretenimento
Curso de Mágica
SaÚde
Primeiros Socorros Curso de Fitoterapia Curso de Aromaterapia Medicina Alternativa Plantas Medicinais	Técnicas básicas de Enfermagem O Trabalho do Agente Comunitário de Saúde Ergonomia - Postura Correta em Frente ao Computador Ética Profissional - Ênfase em Radiologia Adolescência: Visão Saúde do Assunto
Meio Ambiente
Curso Gestão Ambiental Jardinagem e Paisagismo	Curso de Reciclagem Curso de Bonsai
MÚsica
Curso de Violão
NutriÇÃo
Higiene e Manipulação de Alimentos Congelamento de Alimentos	Culinária Básica Culinária Intermediária
RelaÇÕes Humanas
Curso Gestão de Pessoas Departamento Pessoal Desenvolvimento Pessoal Empresarial Curso de Telemarketing Curso Dinâmica em Grupo Rescisão Contrato de Trabalho Folha de Pagamento na Prática	Atendimento ao Cliente Adm. da Empregada Doméstica Curso de Homolognet Recursos Humanos - Férias Recursos Humanos - 13° Salário Registro de Empregados
Web Master
Curso de HTML Curso de WordPress	Curso de HTML5
Designer GrÁfico
Curso de Corel Draw Efeitos Especiais com InDesign CS5	Efeitos Tipográficos com InDesign CS5

CURSO EM FORMATO DE VÍDEO-AULA

EXEMPLOS PRÁTICOS PASSO A PASSO COM SOM E IMAGEM

Clique no curso para informações detalhadas

Curso

Duração

Informações

ACCESS

Vídeo Aula: Access 2007 - Consultas - Curso Completo e Prático

4:30h

LOJA DE LIVROS

VÍDEO-AULAS

E-BOOKS/CURSOS

CURSOS ONLINE COM CERTIFICADO

CURSOS COMPLETOS EM CD

CD-01

CD-02

CD-03

CD-04

CD-05

CD-06

CD-07

CD-08

CD-09

CD-10

CONTATO

Você está aqui: Principal » Lista Completa de Tutoriais

Sobre este Tutorial

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

Conclusão:

:: Tutoriais Relacionados

CURSOS
COMPLETOS EM CD