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

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.

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.

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.

2- Ativando Botões.

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

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.

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!

Compre pelo o Mercado Livre com toda segurança