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
Objetivo:
Continuar o desenvolvimento dosistema aluguel, iremos codificar a interface grafica Cidades_estado e tambémdesenvolver o banco de dados para armazenar os registros, utilizando a própriaplanilha do excel, tudo de forma simples e direta.
Pré-requisito:
Para você poder acompanhar odesenvolvimento deste tutorial, será necessário ter conhecimento no mínimo do “CursoBásico de Excel e os Tutoriais Utilizando Editor do Visual Basic do Excel Parte1 e Parte2” Parte 1, Parte 2 , Parte 3, Parte 4 e Parte 5 deste tutorial.
Podemos desenvolver o banco dedados utilizando a planilha Plan3, para isso começe modificando o nome Plan3 para a “CE”, depois insira os nomes abaixo na primeira linha da planilha.
COD, CIDADE e ESTADO.
Tela 001
Começaremos a fazer aformatação da primeira linha daplanilha, inserira uma cor cinza,negrito e centralizado, isso serve paraque a primeira linha de cada coluna seja indentificada como cabeçalho.
Tela 002
Agora você vai fazer a formatação dos demais camposda seguinte maneira:
COD colocar na categoria “número”.
Tela 003
CIDADE e ESTADO inserir nacategoria “texto”.
Tela 004
Concluído o banco de dados, iniciaremos a codificação, dainterface, dentro do evento initialize doformulário insira o código.
Label_n =Application.WorksheetFunction.CountA(Plan3.Columns(1)) – 1
Tela 005
Universidade do VBA - Curso Completo, com Certificado e com Atualizações Semanais
Domine, sem Dificuldades, a Programação VBA no Excel, Através da Criação de Sistemas Profissionais Completos - Com Exemplos Práticos e Explicações Detalhadas - Passo a Passo - Tela a Tela - Comando a Comando!
Aplica-se ao Excel 2019, 2016, 2013 e 2010!
Para todos os detalhes, acesse:
Começaremos a codificar os botões, os códigos devemser inseridos dentro do evendo clic,assim quando você clicar no botão o mesmo ira executar o código abaixo, o mesmotera a função de inserir os registro no banco.
BotãoCadastrar:
Dim bd As Database
Dim Rs As Recordset
Set bd =OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name,False, False, "excel 8.0")
Set Rs = bd.OpenRecordset("CE$",dbOpenDynaset)
If Me.text_cod >Me.Label_n Then
If Me.Text_cidade = ""Then
Me.Text_cidade.Text ="-"
End If
If Me.Text_estado = ""Then
Me.Text_estado.Text ="-"
End If
Dim CADASTRO(1 To 4)
CADASTRO(1) = UCase(Me.text_cod)
CADASTRO(2) = UCase(Me.Text_cidade)
CADASTRO(3) = UCase(Me.Text_estado)
CADASTRO(4) = UCase(Me.text_cod.Value)
Dim ALUGUEL AsObject
Dim L, i
Set ALUGUEL = Plan3.Cells(1,1).CurrentRegion
L = ALUGUEL.Rows.Count + 1
If Len(Me.text_cod) = 0 Then
MsgBox "VOCÊ NÃODIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DECLIENTES"
Else
For i = 1 To 4
Plan3.Cells(L, i).Value =Trim(CADASTRO(i))
Next i
Me.text_cod.Text = ""
Me.Text_cidade.Text =""
Me.Text_estado.Text = ""
MsgBox"CADASTRADO", vbInformation, "EFETUADO COM SUCESSO"
ThisWorkbook.Save
End If
Exit Sub
Else
MsgBox "No campo COD digite um número maior do que háno campo Total Registro para casdastrar."
End If
Tela 006
BotãoPesquisar:
Dim bd As Database
Dim Rs As Recordset
Dim LIN
Set bd =OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name,False, False, "excel 8.0")
Set Rs =bd.OpenRecordset("CE$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("CIDADE") =Me.Text_cidade.Text Then
Me.text_cod =Rs.Fields("COD")
Me.Text_estado = Rs.Fields("ESTADO")
Me.TextBox_codf.Text = LIN
End If
LIN = LIN + 1
Rs.MoveNext
Loop
Tela 007
Botão Editar:
Dim bd As Database
Dim Rs As Recordset
Set bd =OpenDatabase(ThisWorkbook.Path & "\" & ThisWorkbook.Name,False, False, "excel 8.0")
Set Rs =bd.OpenRecordset("CE$", dbOpenDynaset)
Rs.edit
Rs("CIDADE") = Me.Text_cidade
Rs("ESTADO") = Me.Text_estado
Rs.Update
MsgBox"DADOS ALTERADOS COM SUCESSO", vbInformation, "BANCO DE DADOS"
ThisWorkbook.Save
Tela 008
Botão Apagar:
Dim ALUGUEL
ALUGUEL =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")
If ALUGUEL = vbYes Then
Plan3.Cells(Me.TextBox_codf,1).EntireRow.Delete
Me.text_cod.Text = ""
Me.Text_cidade.Text =""
Me.Text_estado.Text =""
MsgBox"REGISTROS EXCLUÍDO COM SUCESSO."
ThisWorkbook.Save
End If
Botão Voltar:
Me.hide
Tela 009
Neste tutorial ensinei a desenvolver o banco de dados, fazer as formatações necessárias para cada campo e codificarinterface “cidades_estado”, tudo de forma simples e objetiva. Na próxima partedo tutorial daremos continuidade no desenlvovimento do aplicativo. Bons estudose até a próxima parte.
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-2025 ®
LIVRO: MACROS E PROGRAMAÇÃO VBA NO EXCEL 2016 - CURSO COMPLETO E PRÁTICO
DOMINE A PROGRAMAÇÃO VBA NO EXCEL - 878 PÁGINAS - CLIQUE AQUI