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: PrincipalArtigosCriando Aplicativos VBA com Excel : Sistemaaluguel008
Quer receber novidades e e-books gratuitos?

Criando um Sistema de Controle de Aluguel - Codificação de Interfaces - Parte 8

 

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

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 001

 

Faça a  formatação da primeira linha da planilha, inserindo  uma cor cinza, negrito e centralizado.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 002

 

Agora você vai fazer a formatação dos demais camposda seguinte maneira:

 

COD, QTD e NDIAS colocar na categoria “número”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 003

 

DATA e DD inserir na categoria“Data”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 004

 

CLIENTE e DESCRICAO inserir nacategoria “texto”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 005

 

PRECO inserir na categoria“geral”.

 

Criando Aplicativos VBA no Excel - Júlio Battisti

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

 

Criando Aplicativos VBA no Excel - Júlio Battisti

Tela 007


você conhece a universidade do vba?

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!

Tudo Para Você Aprender, na Prática, VBA no Excel!

Para todos os detalhes, acesse:

https://juliobattisti.com.br/curso-vba-excel/


 

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

 

Conclusão:

 

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.

 


livros e cursos sugeridos sobre excel e vba:
Quer receber novidades e e-books gratuitos?

 
 

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