VBA no Excel - Parte 5 - Agenda

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.

VBA no Excel - Parte 4 - Agenda

Na parte 3 do tutorial já havíamos definidos os nomes dos objetos que iríamos utilizar nesta parte 4, iremos incluir mais alguns objetos no nosso aplicativo, isso ocorre porque quando estamos desenvolvendo um aplicativo é normal incluir o retirar algum objeto. Por isso que é importante a análise, toda vez que queremos alterar o aplicativo voltamos a refazer a análise, neste caso não será necessário, iremos apenas inserir objetos.

Vou mostrar como deve ficar as duas interface gráfica da agenda e depois vou ensinar por quais objetos você deve começar a inserir primeiro no aplicativo. Utilizaremos a plan2 da planilha do Banco de dados para criar esta interface gráfica, ou seja, quando ensinei a criar o banco de dados (Detalhes de como criar banco de dados , consulte Parte 2) me refiro a esta plan2 do banco de dados.

Tela 001 ( Esta é interface principal do aplicativo)

Tela 002 ( Esta é a interface de ajuda )

Iremos começar a interface gráfica pensando da seguinte maneira, temos que criar a interface amigável, ou seja, de fácil compreensão e utilização por parte do usuário. Para fazer isso não e muito difícil, basta utilizarmos todos os objetos que já definidos (Detalhes dos objetos definidos, consulte Parte3) de uma forma simples e bem distribuída nos formulários da Agenda.

Começaremos pelo formulário principal, na Parte3 onde fizemos a análise do tutorial definimos os objetos que iríamos utilizar. Agora vamos criar o formulário e inserir todos objetos, depois modificaremos suas propriedades (Detalhes de como inserir e editar as propriedade dos objetos, consulte Parte2).

Vou mostrar o procedimento de como você deve iniciar a criar esta tela e também com quais os nomes os objetos devem ficar após você ter inserido o formulário (Detalhes como inserir um formulário, consulte Parte1), modifique suas propriedades CAPTION para Agenda , NAME para Principal, HEIGHT para 370,5 e WIDTH para 415,5.

Depois desta parte vamos inserir 05 objetos Moldura (Detalhes como inserir objetos , consulte Parte3) e para modificar suas propriedades CAPTION para Menu, Contato, Telefones, Anotações e Data, FORECOLOR para Azul e FONT Tahoma, Estilo de fonte Negrito. Veja abaixo nas telas estes procedimentos:

Tela 003 (Este é o primeiro procedimento que você dever fazer, inserir o formulário e modificar suas propriedades)

Tela 004 (Assim que deve ficar o formulário principal com a inserção das Molduras e com as alterações nas suas propriedades )

Vamos inserir 15 objetos Label (Detalhes de como inserir objetos label, consulte parte 2) , iremos colocá-las dentro dos objetos Moldura e mudar suas propriedades CAPTION Nome, Endereço, Cidade, Bairro, Estado, Cep, Residencial, Celular, Comercial e Outro e a décima primeira label deixaremos ela sem nome, FORECOLOR para Azul. Entenda como você deve proceder nas telas abaixo:

Tela 005 (Você deve distribuir as label conforme mostrado na tela acima)

Tela 006 (Depois modificar suas propriedades com os nomes relacionados )

Vamos inserir 12 Textbox, uma observação, para cada TextBox que inserimos sua propriedade NAME esta com o nome de TextBox1, se vamos inserir 06, logo teremos Texbox1, Texbox2 e assim sucessivamente. Vamos mudar a propriedade NAME de cada um destes TextBox (Detalhes de como inserir e modificar as propriedades do textbox, consulte Parte2), da seguinte forma:

Texbox1 para Text_Nome, Textbox2 para Text_Endereco, TextBox3 para Text_Bairro, TextBox4 para Text_Cidade, TextBox5 para Text_Estado, TextBox6 para Text_Cep, TextBox7 para Text_Registro, TextBox8 para Text_Residencial, TextBox9 para Text_Celular, TextBox10 para Text_Comercial, TextBox11 para Text_Outro e TextBox12 para Anotação.

Tela 007 ( Os TextBox devem estar alinhados no formulário com suas propriedades modificadas conforme a tela acima)

Por último vamos inserir 06 botões comando (Detalhes de como inserir os botões de comando, consulte Parte2) e alterar sua propriedades (Detalhes de como alterar propriedades, consulte Parte2) CAPTION para Cadastrar, Editar, Apagar, Ajuda,Pesquisar e Fechar FORECOLOR para Azul,ESTILO DE FONTE para Negrito e sua propriedade NAME iremos alterar da seguinte maneira:

Para cada um vamos colocar o mesmo nome que demos para a propriedade CAPTION, ou seja, para o botão cadastrar, a sua propriedade NAME vai ser Cadastrar assim deve ser feitos para os outros botões.Veja na tela abaixo:

Tela 008 (Os botões de comandos com suas propriedades modificadas, devem ficar posicionados na agenda desta maneira acima)

Concluído a primeira parte da interface gráfica , que é o formulário principal, partiremos para construir o segundo formulário da agenda.

Você deve começar inserindo o formulário (Detalhes de como inserir formulários, consulte Parte2) e modificar sua propriedades (Detalhes de como modificar suas propriedades, consulte Parte2) WIDTH para 364,5 e HEIGHT para 371,25, NAME Ajuda e CAPTION para Ajuda.

Depois você de inserir 04 Molduras e modificar suas propriedades (Detalhes de como inserir e modificar as propriedades da Moldura, consulte Parte3). Iniciaremos a modificar as propriedades da Moldura1 CAPTION para Cadastrar e FORECOLOR para Azul.

Moldura2, CAPTION para Pesquisar, FORECOLOR para Azul.

Moldura3 CAPTION para Editar e FORECOLOR para Azul.

Moldura4 CAPTION para Apagar e FORECOLOR para Azul.

Agora dentro destas 05 Molduras vamos inserir 05 Label (Detalhes de como inserir label, consulte Parte2) e iremos apagar a sua propriedade CAPTION de cada uma e na quinta label iremos colocar o nome MENU AJUDA.

Por último iremos inserir um Botão de Comando e modificar sua propriedade CAPTION para Voltar e NAME para Comando_Voltar.

Vamos acompanhar nas telas a seguir todos procedimentos:

Tela 009 ( Inserimos o objeto formulário e alteramos suas propriedades)

Tela 010 ( Este são as molduras inseridas no formulário ajuda)

Tela 011 (Estas são as molduras contendo as alterações feita em suas propriedades)

Tela 012 (Estas são as label inseridas dentro das molduras)

Tela 013 ( Esta é a aparência das label após termos modificado sua propriedade Caption)

Tela 014 ( Inserimos o botão de comando)

Tela 015 ( Modificamos as propriedades do botão de comando)

Agora você deve colocar os textos de ajuda para cadastrar, pesquisar, editar e apagar de ajuda dentro de cada label correspondente, da seguinte maneira:

DENTRO DA LABEL CADASTRAR: Para cadastrar os dados da agenda, é bem simples, apenas preencha todos os campos da agenda com os dados disponível da pessoa que você quer cadastrar, sempre é necessário digitar o número do novo registro e clique no botão cadastrar.

DENTRO DA LABEL PESQUISAR: Para efetuar a pesquisa, existe apenas um campo disponível que é o campo nome, então você deve digitar o nome da pessoa que deseja localizar e clique no botão pesquisar, caso o nome da pessoa não seja localizado vai aparecer uma mensagem “Nome não cadastrado”.

DENTRO DA LABEL EDITAR: Para editar os campos da agenda, primeiro efetuamos uma pesquisa para localizar os dados da pessoa, assim que for localizado modifique os dados necessários e clique no botão editar.

DENTRO DA LABEL APAGAR: Para apagar os dados de uma pessoa, caso eles estejam selecionados clique direto no botão apagar, caso contrário faça uma pesquisa para localizar o nome da pessoa e clique no botão apagar.

Veja como deve ficar a tela abaixo com a inserção dos textos de ajuda no formulário.

Tela 016 ( Textos inseridos)

Concluída esta parte do tutorial, agora falta pouco para terminar a criação da agenda. Na próxima parte, que será a última, iremos fazer a codifição da agenda

VBA no Excel - Parte 3 - Agenda

Vamos aprender além de fazer análise, mais um controle da caixa de ferramentas, é o controle Moldura ou Frame, que vai possibilitar dar um aspecto de designer melhor na criação da agenda.

ANÁLISE

Esta parte pode ser um pouco complicada para você entender, mas não se preocupe, vou explicar tudo de uma forma simples e objetiva.

Iremos começar a pensar da seguinte maneira: A agenda tem que fazer 05 funções, estas funções deve ser cadastrar, pesquisar, editar, apagar e ajuda. Vamos começar pelo cadastrar, fazendo a seguinte pergunta: Quais os campos que devemos utilizar para efetuar o cadastro?

A resposta pode ser bem objetiva, utilizaremos os seguintes campos, Nome da pessoa, Endereço, Cidade, Bairro, Estado, Cep, Números dos Telefones e a Anotação. Estes campos são os necessários para o desenvolvimento da agenda, nada impede que uma agenda possua outros campos. Com este campos definidos, temos que utilizar logicamente um formulário (Detalhes de como criar um formulário,consulte a parte1), este será o formulário principal, ou seja, será o primeiro formulário que aparecerá na agenda, utilizaremos este formulário para fazer 04 funções: cadastrar,pesquisa,editar e apagar.Criaremos um formulário (Detalhes de como criar um formulário, consulte parte1) só para função Ajuda. Vamos inserir 06 Botões de comandos(Detalhes de como criar um Botão de Comando, consulte Parte2) no formulário principal para fazer cada função, e no formulário de ajuda apenas 01, estes botões servirão como um menu.

Também temos que fazer uma análise da quantidade de campos que utilizaremos para fazer o cadastro dos números dos telefones, pense da seguinte forma, normalmente todas pessoas tem mais de um número, sendo assim vamos definir o seguintes campos, Telefone Celular, Telefone Residencial, Telefone Comercial e Outros.

Definido todos os campos que utilizaremos para efetuar o cadastro, vamos partir para o campo pesquisar, logicamente pesquisaremos estes dados no formulário principal.Teremos que fazer outra pergunta, a partir de qual campo utilizaremos para efetuar a pesquisa? Na agenda vamos efetuar a pesquisa somente através do campo nome da pessoa.

Agora vamos definir o Editar, toda a vez que quisermos alterar qualquer campo que esteja cadastrado na agenda utilizaremos o comando editar.

O comando Apagar vai fazer a função, logicamente de apagar os registro do banco de dados, vamos criar uma função especifica para apagar os registros do banco de dados.

Por último temos que criar um comando de ajuda, você deve estar se perguntando mas fui eu que criei a agenda? Obviamente saberei utilizar, mas ai eu pergunto para você, e se outra pessoa quiser utilizar? Você estará sempre próximo a ela caso tenha uma dúvida? sendo que qualquer aplicativo tem uma ajuda, logo o nosso não será diferente.

Para criarmos este menu de ajuda vamos criar outro formulário(Detalhes de como criar um formulário, consulte Parte1), assim a agenda terá somente dois formulários. A nossa ajuda tem como objetivo de ajudar os usuários a usar os comandos cadastrar, pesquisar e editar e apagar.

Dentro desta análise vamos definir todos os objetos que utilizaremos no formulário principal e no formulário de ajuda, com este procedimento quando chegarmos na parte 4, que será a criação da interface gráfica, apenas vamos inserir os objetos (Detalhes de como inserir objetos, consulte Parte2) e colocar os nomes em suas respectivas propriedades, também provavelmente na parte 4 já iremos codificar o aplicativo.

Os objetos e a quantidade que vamos utilizar no formulário principal serão os seguintes:

QTD	NOME DO OBJETO
11	Label
06	Botões de Comando
11	TextBox
05	Molduras

Os objetos e a quantidade que vamos utilizar no formulário de ajuda serão os seguintes:

QTD	NOME DO OBJETO
01	Label
01	Botões de Comando
04	TextBox
04	Molduras

Como eu havia citado no início deste tutorial, iremos aprender a utilizar mais um controle da caixa de ferramentas, este controle chama-se Moldura ou Controle Frame.

Controle Moldura ou Frame: Utilizado para criar controles funcionais e visuais.

Utilizaremos este controle para dar um designer mais criativo ao nosso aplicativo, e também para separamos os campos Nome, Endereço, Cidade, Bairro, Estado e Cep dos campos telefones e do campo anotação,caso você não tenha entendido bem, não se preocupe na Parte 4 quando iremos criar a interface você vai entender melhor. Veja o procedimento na tela abaixo para localizar na caixa de ferramenta o controle moldura, os demais procedimentos quanto a inserir no formulário e editar as propriedades (Consulte as Parte1 e Parte2).

Tela 001 (O controle Moldura é aquele que aparece na caixa de ferramenta no lado esquerdo do Botão de Comando)

Concluída esta parte de análise da agenda , vamos aprender a criar um Banco de Dados e dentro deste criaremos uma tabela para a agenda. Este banco de dados será a própria planilha do excel.

Para criar um banco de dados a partir de uma planilha o procedimento é bem simples, mas vamos ter que começar analisando o Banco a ser criado.

O Banco de dados de uma planilha do excel pode ser inserido até 65.536 registros porque esta é a quantidade de linhas que uma planilha possui e podemos inserir até 256 campos, porque é a quantidade de colunas de uma planilha.

Antes de seguir os procedimentos para criar o Banco de dados, vamos definir o nome deste, o qual será “BDAGENDA” e cada plan vai ser uma tabela do banco de dados, ou seja, a Plan1,vai ser a tabela onde vamos inserir todos campos , estes campos o quais já estão definidos na parte de análise, sendo assim vamos dar um nome para a tabela que será chamada de “”Agenda”. Veja todos os procedimento nas telas abaixo:

Primeiro: Abra o uma planilha do excel e salve com o nome do nosso Bando de Dados, que acabei de citar acima.

Tela 002 ( Abra planilha e salve com o nome BDAGENDA)

Segundo: Na planilha vamos modificar o nome de Plan1 para o nome Agenda, a qual começaremos a chamar de tabela agenda. Toda vês que se referimos ao nome tabela seria a mesma coisa que estivéssemos nos referindo a plan1, o que também vai ser para o banco de dados, só que o Banco de Dados se refere a planilha. Veja O Procedimento na tela abaixo.

Tela 003 ( Note na planilha que alteramos o nome que anteriormente era de Plan1 para agenda)

Terceiro: Colocaremos os nomes de todos campos que vamos utilizar (Nome da Pessoa, Endereço, Cidade, Bairro, Estado, Cep, Telefone Celular, Telefone Residencial, Telefone Comercial ,Outros e Anotação) em cada uma das colunas começando pela coluna A, B, C e assim sucessivamente. Iremos modificar cada campo da seguinte forma: o campo NOME DA PESSOA, vamos colocar na tabela como NOME, os campos ENDEREÇO, CIDADE, BAIRRO, ESTADO E CEP incluiremos os mesmos campos.

Já os campos TELEFONE CELULAR mudaremos para CELULAR, o campo TELEFONE RESIDENCIAL para RESIDENCIAL, o Campo TELEFONE COMERCIAL para COMERCIAL, o campo OUTROS e o Campo ANOTAÇÃO não iremos modificar.

Esta modifição serve para quando codificarmos o aplicativo tornar o acesso a estes campos mais fácil. Importante ressaltar é que os campos devem estar escritos de preferência em maiúsculo e em negrito e com uma cor diferente , porque ele servirá como cabeçalho . Veja o procedimento abaixo na a planilha de como deve ficar.

Vamos Inserir os campos na tabela, você vai notar que na tela abaixo não vai parecer todos campos, motivo a quantidade, então irei mostrar todos os campos em duas telas:

Tela 004 ( Nesta tela aparece até o campo Residencial)

Tela 005 (Aqui nesta tela aparece o restante dos campos)

Quarto: Na tabela agenda onde está escrito o nome dos campos, vai ser o cabeçalho e com isso tem que ficar com uma cor diferente, isso deve ocorrer porque quando tivermos acessando o banco de dados é preciso identificar os campos abaixo do cabeçalho.Veja como deve ficar a planilha na tela abaixo:

Tela 006: (Agora sim o nosso cabeçalho esta pronto)

Quinto: Feito a cabeçalho, é preciso formatar todos os campos da cada coluna da planilha do excel, para quando for entrar texto a coluna do excel deve receber somente texto, assim deve ser feito com os campos onde receberá números, datas.

Vamos formatar os campos NOME,ENDEREÇO,CIDADE,BAIRRO e ESTADO, com a formatação de entrada somente de texto, quanto as campos CEP, CELULAR, RESIDENCIAL, COMERCIAL e OUTRO formataremos para entrada somente de números e o campo ANOTAÇÃO iremos formatar como geral, porque como se trata de uma anotação podemos inseri números ou caracteres, para isso vou ensinar apenas como formatar o campo NOME, campo CELULAR e o campo ANOTAÇÃO, depois você deve fazer o procedimento para os demais campos seguindo a ordem de formatação que descrita acima.

Começaremos pelo Campo NOME selecionamos toda a coluna, depois com a coluna selecionada clicamos com o botão direito do mouse e clicamos em formatar células a partir janela que aparecerá a qual tem o nome Formatar Células escolhemos a opção número e categoria texto e clicamos no botão ok,Veja todo o procedimento passo a passo nas telas abaixo:

Tela: 007 (Selecionamos toda a coluna, que contem o campo nome para poder formatar)

Tela 008 (Clicamos em Formatar Células)

Tela 009 ( Agora selecionamos a opção número)

Tela 010 (Dentro da opção número selecionamos a categoria texto e clicamos em ok para concluir a alteração)

Pronto, acabamos de formatar o campo NOME, agora você deve fazer o procedimento igual para os demais campos que necessitam desta formatação de entrada de texto.

Vamos formatar o campo CELULAR, vou mostrar somente as telas a partir da categoria número, para você chegar até esta tela da categoria, você deve consultar o procedimento descrito nas telas 007, 008, 009 e 010 sendo que nesta tela a indição é para clicar na categoria texto, e agora iremos clicar na categoria número e vamos também selecionar onde diz: Números Negativos, os primeiros números positivos, feito esta etapa devemos confirmar a alteração clicando no botão ok .Veja na tela abaixo.

Tela: 011 (Selecionamos o campo número para fazer a formatação e clicamos nos primeiros números positivos)

Formataremos agora o campo ANOTAÇÃO, também vou mostrar somente a partir da tela da categoria geral, para você chegar até esta tela desta categoria também deverá consultar as telas 007,008,009 e 010 sendo que nesta tela 010 a indição é para clicar na categoria texto, mas nos iremos clicar na primeira categoria que aparece que é exatamente a que necessitamos,categoria geral, feito esta etapa devemos confirmar a alteração clicando no botão ok.

Tela: 012 (Selecionamos categoria geral e clicamos no botão ok para concluir a formatação)

Terminamos esta parte de análise do tutorial, agora temos a noção do funcionamento da agenda telefônica. Na próxima parte iremos criar a interface gráfica da agenda e provavelmente iremos codifica-la.

VBA no Excel - Parte 2 - Agenda

Este exemplo vai possibilitar aprendemos na prática o que estudamos na parte1 do tutorial, bem como já começarmos ter uma idéia de funcionamento da nossa agenda e das funções as serem desenvolvidas.

O nosso exemplo simples de aplicativo vai nos possibilitar a escrever nosso nome um textbox e transferir para outro textbox quando clicarmos no botão de comando, o nome que daremos ao nosso exemplo será o seguinte “Exemplo prático”.

Siga as seguintes instruções:

• Abra uma nova planilha do excel;
• Abra o editor do visual basic (Para detalhes de como abrir o Editor do Visual Basic, Consulte a Parte1);
• Crie um formulário (Para detalhes de como criar um formulário, Consulte a Parte1);
• Vamos inserir no formulário as seguintes ferramentas três Label, duas textbox e um botão de comando, para inserir estas ferramentas clique na caixa de ferramentas, caso ela não esteja disponível, você dever ativar a mesma (Para detalhes de como ativar a caixa de ferramentas, consulte a Parte1).
• Vamos começar inserindo as três Label no nosso formulário, na caixa de ferramentas o ponteiro deve estar ativado, sendo assim clique sobre a label que é representada pela letra A, após de um clique sobre o formulário, pronto você terá inserido a primeira label, repita este mesmo procedimento para inserir as outras duas label.
• Este mesmo procedimento você deve repetir para inserir os dois textbox e botão de comando,você devera posicionar as label e os textbox e botão de comando conforme o esta mostrando a figura abaixo, para você possionar as label basta clicar uma vez sobre ela não soltar e arrastar este mesmo procedimento serve para as demais ferramentas.

Tela: 001 (Inserindo as Label, os text Box e botão de comando)

Vamos aprender a utilizar as principais propriedades de cada controle, estas propriedades dos controles serve para alteramos o texto, cor , tamanho, fonte entre outros,iremos começar pelo formulário mudaremos as propriedades o name do formulário para “Exemplo Prático” Altura (Heigth) = 290 e a Largura (Width)= 380 e caption também com o mesmo nome “Exemplo Prático”.

Para a label1, mudaremos as propriedades caption de label1 para “Exemplo Prático”, forecolor que é onde mudamos a cor, esta será “Azul”, e por ultimo a propriedade font mudaremos para “Verdana” com tamanho para 20, as label2 e label3 você deverá fazer o mesmo procedimento descrito acima somente alterando o tamanho da fonte para 14 e o nome para teste1 e teste2.

No texbox alteraremos somente sua propriedade name que esta com o nome de textbox1 para text_nome e a texbox2 para Text_recebenome .

O mesmo iremos fazer para o botão de comando que na sua propriedade name na qual esta com o nome de commandbutton1 iremos alterar para comando e sua cor para azul através da propriedade forecolor.

A seguir utilizaremos a janela de propriedades do formulário para fazer as alterações, (Para detalhes de como ativar a janela de propriedades do formulário, consulte a Parte1). Siga as instruções:

• Selecione o formulário e ative a janela Propriedades . Veja na tela abaixo:

Tela: 002

A primeira propriedade que aparece é o Name no qual esta escrito Userfom1 para trocarmos damos um clique sobre este nome deletamos e depois mudamos o nome para Form_ Exemplo veja o procedimento abaixo:

Tela: 003 (Clicamos onde esta escrito Userfomr1 e deletamos)

Tela: 004 (Depois escrevemos o novo nome Form_Exemplo)

Para estabelecer a altura e largura e o nome do formulário selecionamos novamente para utilizar suas propriedades (Heigth) = 290 e a (Width)= 380 e Caption para Exemplo Prático.Veja abaixo todo este procedimento.

Tela: 005 ( Na propriedade heigth alteramos para 290)

Tela: 006 ( Na propriedade Width alteramos para 390)

Agora iremos selecionar as propriedades da Label1 para efetuarmos as alterações descrita em nosso exemplo. Apenas de um clique sobre a label1 para ativar as propriedades da mesma, o procedimento nas alterações praticamente é do mesmo modo em que fizemos nas propriedades do Userform1.Veja o procedimento.

• Selecionaremos a label1 e mudaremos o nome para Exemplo Pratico, isso é possível através da sua propriedade Caption, a cor para azul através propriedade ForeColor e a fonte através da propriedade Font, para verdana e o tamanho para 20.

Tela: 007 (Selecionamos a propriedade caption e a deletamos)

Tela: 008 (Trocamos o nome para Exemplo Pratico)

Tela:009 (Selecionamos a propriedade forecolor e mudamos a cor para azul)

Tela: 010 ( Selecionamos a propriedade font e na janela fonte fazemos as alterações)

Você poderá notar abaixo na figura 011 como aumentamos o tamanho da fonte a label ficou pequena para isso precisaremos ajusta-la, faça da seguinte maneira:

Selecionando a label aparecerá um quadradinhos, neste posicione o cursor do mouse no sentido diagonal e aumente ate ficar no tamanho ideal.

Tela: 011 (Selecione a label, e através do quadrados arraste para ajustar)

Tela: 012 ( O ajuste deve ser o necessário para aparecer o nome )

Agora você deve proceder da mesma forma para alterar a label2 e label3 para seus respectivos nomes, cores e tamanhos.

Para os textbox o procedimento é da mesma forma em que alteramos a propriedade da label1, trocaremos a propriedade name do textbox1 para text_nome e textbox2 para text_recebenome.

Tela: 013 (Selecionamos a propriedade name e mudamos o nome)

O mesmo você deve fazer no textbox2 para alterar suas propriedades.

Por ultimo iremos alterar o botão de comando e sua propriedades name para comando, caption para executar e Forecolor para azul.

Tela: 014 ( Fizemos todas as alterações descritas acima)

Seu formulário deve ficar conforme tela abaixo:

Tela: 015 (Esta a interface do aplicativo)

Agora para executarmos nosso aplicativo utilizaremos a linha de código abaixo dentro do botão de comando (Para detalhes de como ativar o código de um objeto, consulte a Parte1),utilizaremos o evento clique do mesmo.

Me.Text_Recebenome.Text = Me.Text_Nome.Text

Me.Text_Nome.Text = ""

Utilizaremos apenas duas linhas de código, a primeira vai fazer que quando clicarmos no botão ela vai atirar tudo o que estiver escrito no Text_1 para dentro do text_2, a segunda linha de código para limpar o text_1.

Para colocar estas linhas de códigos dentro do botão selecionamos o mesmo e vamos até o menu exibir código ou apenas damos um duplo clique direto no botão para acionar a janela de código.

Tela: 016 ( Selecionamos o a janela de código através do menu exibir)

Tela: 017 ( Esta e a janela de código e dentro do evento clique do botão adicionamos o código)

Tela: 018 (Este é o código vai executar a função)

Agora utilize o menu executar para testar o aplicativo, (Para detalhes de como utilizar o menu executar, consulte Parte1.Teste o aplicativo escrevendo um nome qualquer no teste1 e clique no botão executar.

Tela:019 (Para fechar o aplicativo clique no X que esta no canto superior direito do aplicativo)

Chegamos ao fim do nosso exemplo pratico,na próxima parte do tutorial iremos para uma parte muito importante no desenvolvimento da nossa agenda telefônica a analise e o banco de dados.