Desenvolvendo programas e planilhas Excel em VBA – Parte 5

Nesta parte 5 do Desenvolvendo programas e Planilhas Excel em VBA, iremos aprender alguns códigos VBA e personalizar planilha.

Códigos VBA
Desenvolvendo programas e planilhas Excel em VBA – Parte 5

No post “Desenvolvendo programas e planilhas Excel em VBA – Parte 4”, criamos uma tela de consulta e hoje daremos continuidade.

1- Formatando a Fonte dos “Rótulos”.

Selecione os 4 rótulos em seguida clique em Font a mesma fica em Propriedades, caso no seu formulario não tenha basta clicar “F4”, escolha uma fonte do seu agrado, coloquem o estilo da fonte Negrito e o tamanho 12. Abaixo segue exemplo.

Formatando Labels
Desenvolvendo programas e planilhas Excel em VBA – Parte 5

Esse exemplo serve também para os “Botões de comando”.

2- Renomeando as “Caixas de Texto”.

Para nomear as caixas de textos basta clicar na primeira caixa, em seguida vá em (Name) esta opção também fica em propriedades, no lugar de “TextBox1″ coloquem o nome CÓDIGO, façam este processo com as demais, cada caixa de texto com o mesmo nome do rótulo.

Formatando TextBox
Desenvolvendo programas e planilhas Excel em VBA – Parte 5

Inserindo Códigos na Tela de Cadastro.

Para inserir os códigos basta clicar duas vezes no UserForm, aparecerá outra tela, esta será onde iremos digitar todos os códigos para rodar nossa planilha de cadastro.

1- Formatando a Planilha.

Ates de inserir o código, renomeiam as abas da planilha do excel, mude a aba “Plan1” para “BASE”, e a “Plan2” para “INÍCIO”.  Na aba INÍCIO vamos inserir dois botões, um de cadastro um consulta e um voltar na BASE. Observem o exemplo.

Inserir Botões
Desenvolvendo programas e planilhas Excel em VBA – Parte 5

2- Ativando Botões.

Iremos inserir Macros nos Botões, no editor VBA Cliquem em Módulos, e digite o código abaixo.

Inserir Módulos
Desenvolvendo programas e planilhas Excel em VBA – Parte 5

 

Sub abrir()
UserForm1.Show
End Sub

Sub abrir2()
Sheets("BASE").Select
End Sub

Sub abrir3()
Sheets("INÍCIO").Select
End Sub

Em seguida volte para a planilha Excel, cliquem com botão direito do mouse na forma Cadastro, clique em Atribuir macros, escolha a abrir e ok, façam o mesmo com as outras formas, Consulta = “abrir2” e Voltar escolham “abrir3”.  Agora cliquem nos botões para testar.

3- Inserindo os Códigos.

Agora vamos inserir os códigos no formulário, dê um clique duplo no Userform, aparecerá a tela para digitarmos os comando. Abaixo seguem códigos da tela de cadastro.

Desenvolvendo Programas e Planilhas Excel em VBA
Desenvolvendo programas e planilhas Excel em VBA – Parte 5

 

Private Sub Cadastrar_Click()
 
 Dim C As Long
 
 If CÓDIGO.Value = "" Then
 MsgBox "O código é obrigatório"
 CÓDIGO.SetFocus
 End If
 If PRODUTO.Value = "" Then
 MsgBox "O produto é obrigatório"
 PRODUTO.SetFocus
 End If
 If QUANTIDADE.Value = "" Then
 MsgBox "A quantidade é obrigatório"
 QUANTIDADE.SetFocus
 End If
 If VALOR.Value = "" Then
 MsgBox "O valor é obrigatório"
 VALOR.SetFocus
 End If

 Sheets("INÍCIO").Visible = True
 
 Sheets("BASE").Select
 
 C = Worksheets("BASE").Cells(Worksheets("BASE").Rows.Count, 4).End(xlUp).Row + 1
 
 Cells(C, 1).Value = CÓDIGO.Value
 Cells(C, 2).Value = PRODUTO.Value
 Cells(C, 3).Value = QUANTIDADE.Value
 Cells(C, 4).Value = VALOR.Value
 
 Me.CÓDIGO.Text = ""
 Me.PRODUTO.Text = ""
 Me.QUANTIDADE.Text = ""
 Me.VALOR.Text = ""

End Sub

Private Sub Sair_Click()
 Unload Me
End Sub
Private Sub userform_queryclose(cancel As Integer, closemode As Integer)
If closemode = vbFormControlMenu Then
 cancel = True
 MsgBox "Favor utilizar o botão sair"
 End If
End Sub

Pronto agora é só executar e cadastrar os itens.

No próximo post aprenderemos para que serve cada código, não percam!

 

Assine abaixo nossa newsletter e receba a planilha de exemplo em seu e-mail:

[email-download download_id=”525″ contact_form_id=”450″]

Compre pelo o Mercado Livre com toda segurança

# Type at least 1 character to search # Hit enter to search or ESC to close