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:
Dar seguimento aodesenvolvimento do sistema aluguel, codificaremos a interface grafica e também desenvolver o banco de dados paraarmazenar os registros, utilizando a própria planilha do excel, tudo de formasimples 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, Parte 5, Parte 6 e Parte 7 deste tutorial.
Insira mais uma planilha no excel a mesma deve ser Plan4,depois modifique o nome para “ALUGUEL”, depois insira os nomes abaixo na primeira linha da planilha.
COD, DATA, CLIENTE, DESCRICAO,PRECO, QTD, NDIAS e DD
Tela 001
Faça a formatação da primeira linha da planilha, inserindo uma cor cinza, negrito e centralizado.
Tela 002
Agora você vai fazer a formatação dos demais camposda seguinte maneira:
COD, QTD e NDIAS colocar na categoria “número”.
Tela 003
DATA e DD inserir na categoria“Data”.
Tela 004
CLIENTE e DESCRICAO inserir nacategoria “texto”.
Tela 005
PRECO inserir na categoria“geral”.
Tela 006
Concluído o banco de dados, começaremosa codificar o sistema, dentro do evento initialize do formulário insira ocódigo.
Label_n =Application.WorksheetFunction.CountA(Plan4.Columns(1)) – 1
Tela 007
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:
Codificaremos osbotões, os códigos devem ser inseridosdentro do evendo clic.
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("ALUGUEL$", dbOpenDynaset)
If Me.cod > Me.Label_nThen
If Me.data = "" Then
Me.data.Text = "-"
End If
If Me.ComboBox_cliente ="" Then
Me.ComboBox_cliente.Text ="-"
End If
If Me.ComboBox_descricao ="" Then
Me.ComboBox_descricao.Text ="-"
End If
If Me.preco = "" Then
Me.preco.Text = "-"
End If
If Me.qtd = "" Then
Me.qtd.Text = "-"
End If
If Me.ndias = "" Then
Me.ndias.Text = "-"
End If
If Me.dd = "" Then
Me.dd.Text = "-"
End If
Dim CADASTRO(1 To 9)
CADASTRO(1) = UCase(Me.cod)
CADASTRO(2) = UCase(Me.data)
CADASTRO(3) = UCase(Me.ComboBox_cliente)
CADASTRO(4) = UCase(Me.ComboBox_descricao)
CADASTRO(5) = UCase(Me.preco)
CADASTRO(6) = UCase(Me.qtd)
CADASTRO(7) = UCase(Me.ndias)
CADASTRO(8) = UCase(Me.dd)
CADASTRO(9) = UCase(Me.cod.Value)
Dim ALUGUEL AsObject
Dim L, i
Set ALUGUEL = Plan4.Cells(1, 1).CurrentRegion
L = ALUGUEL.Rows.Count + 1
If Len(Me.cod) = 0 Then
MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO",vbCritical, "CADASTRO DE CLIENTES"
Else
For i = 1 To 9
Plan4.Cells(L, i).Value = Trim(CADASTRO(i))
Next i
Me.cod.Text = ""
Me.data.Text = ""
Me.ComboBox_cliente.Text = ""
Me.ComboBox_descricao.Text =""
Me.preco.Text = ""
Me.qtd.Text = ""
Me.ndias.Text = ""
Me.dd.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
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("ALUGUEL$", dbOpenDynaset)
LIN = 2
Do Until Rs.EOF
If Rs("CLIENTE")= Me.ComboBox_cliente.Text Then
Me.cod =Rs.Fields("COD")
Me.data = Rs.Fields("DATA")
Me.ComboBox_descricao = Rs.Fields("DESCRICAO")
Me.preco =Rs.Fields("PRECO")
Me.qtd =Rs.Fields("QTD")
Me.ndias = Rs.Fields("NDIAS")
Me.dd =Rs.Fields("DD")
Me.TextBox_codf.Text = LIN
End If
LIN = LIN + 1
Rs.MoveNext
Loop
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("ALUGUEL$", dbOpenDynaset)
Rs.edit
Rs("DATA") = Me.data
Rs("CLIENTE") = Me.ComboBox_cliente
Rs("DESCRICAO") = Me.ComboBox_descricao
Rs("PRECO") = Me.preco
Rs("QTD") = Me.qtd
Rs("NDIAS") = Me.ndias
Rs("DD") = Me.dd
Rs.Update
MsgBox "DADOS ALTERADOS COMSUCESSO", vbInformation, "BANCO DE DADOS"
ThisWorkbook.Save
Botão Apagar:
Dim ALUGUEL
ALUGUEL =MsgBox("DESEJA REALMENTE EXCLUIR O CLIENTE?", vbYesNo + vbQuestion,"BANCO DE DADOS")
If ALUGUEL = vbYes Then
Plan4.Cells(Me.TextBox_codf,1).EntireRow.Delete
Me.cod.Text = ""
Me.data.Text = ""
Me.ComboBox_cliente.Text= ""
Me.ComboBox_descricao.Text = ""
Me.preco.Text = ""
Me.qtd.Text = ""
Me.ndias.Text = ""
Me.dd.Text = ""
MsgBox "REGISTROS EXCLUÍDOCOM SUCESSO."
ThisWorkbook.Save
End If
Botão Voltar:
Me.hide
Neste tutorial ensinei a desenvolver o banco de dados, fazer as formatações necessárias para os campos e codificarinterface “aluguel”, tudo de forma simples e objetiva. Na próxima parte do tutorialdaremos continuidade no desenlvovimento do aplicativo. Bons estudos e até apró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