Como Criar Formulários No Excel

Como criar Formulrios no Excel (Vba) UserForm
Os formulrios do Excel so uma excelente ferramenta para a introduo de dados numa planilha.
Para construir um formulrio iremos utilizar a linguagem Visual Basic for Applications (VBA).
O nosso formulrio de exemplo bastante "simplista", tornando o tempo de aprendizagem mais

curto. Para o ajudar a compreender este tutorial, adicionamos uma vdeo aula no final do artigo.
Dica: Tambm possvel criar um formulrio para introduo de dados, usando a ferramenta
"Base" do LibreOffice. Dessa forma, poder criar uma base de dados gratuita. Para mais detalhes
consulte o seguinte tutorial:Criar base de dados (Exemplo: formulrio cadastro de clientes).
Formulrios no Excel - Preparao

Antes de iniciar a criao do seu formulrio em Excel, necessrio ativar o separador
"Programador" (ou Desenvolvedor), e permitir a execuo de Macros. Para isso, execute os
seguintes procedimentos:
1. Ativar o separador Programador (ou Desenvolvedor)
Aceda ao Menu Ficheiro do Excel- Opes - clique no separador "Personalizar Friso" - e selecione a
opo "Programador".
2. Executar Macros no Excel
Aceda ao Separador "Programador" e clique no boto "Segurana Macros". Selecione a opo

"Ativar todas as Macros".
Criar um Formulrio no Excel
Agora poder dar incio criao do seu formulrio em Excel. Em primeiro lugar, comece por
definir os dados que pretende adicionar na sua planilha (por exemplo: Nome, Morada, etc.).
No nosso exemplo, usaremos apenas 3 campos, que sero distribudos na horizontal (clulas A1,
B1 e C1).
Construir Formulrio em VBA (UserForm)
Clique no separador "Programador" e pressione o boto "Visual Basic" (teclas de atalho ALT+F11).
Clique com o boto direito do rato na janela Project Explorer e selecione "Insert" - "UserForm".
Caso a janela Project Explorer no esteja ativa, pressione as teclas de atalho CTRL+R.
Para construir o formulrio, voc dever utilizar os elementos presentes na ToolBox. No nosso
exemplo, iremos utilizar apenas 3 elementos:
Label: Texto Descritivo

TextBox: Usada para recolher dados introduzidos
CommandButton: Usado para gerar um evento (Fechar Janela, Introduzir os dados, etc.).
Para alterar o texto exibido nos CommandButton e Labels, altere o parmetro "caption" da janela
esquerda (Project Explorer).
Descubra como criar uma pesquisa para o seu formulrio no seguinte tutorial: Como criar uma
pesquisa em VBA.
Adicionar Cdigo VBA (Visual Basic for

Applications)
Para gerar um evento ser necessrio adicionar o cdigo VBA no elemento necessrio, neste caso,
nos "Command Button" do seu Formulrio.
Os nomes que atribumos aos botes (Inserir - Sair) servem apenas como exemplo, voc poder
adicionar o nome que achar mais conveniente.
Para adicionar o cdigo VBA, clique duas vezes no boto que pretende editar para abrir a janela do
Cdigo.
Criar um boto de Sair:
Vamos comear pelo boto mais simples de criar, o boto "Sair" do seu formulrio. Clique duas
vezes no boto "Sair" e digite o seguinte cdigo:
Private Sub CommandButton1_Click()

Unload Me
End Sub
Criar o boto "Inserir"
O boto "Inserir" ir gravar os dados do formulrio, na sua planilha. Para adicionar o cdigo, basta
clicar duas vezes no boto Inserir e digitar o seguinte cdigo:

Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Folha1")
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
'copia os dados para as celulas
ws.Cells(iRow, 1).Value = Me.TextBox1.Value
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
'Limpa os campos TextBox para inserir novos dados

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox1.SetFocus
End Sub
Clique no boto "Play" (tecla de atalho F5) para verificar o resultado final.
Criar o Boto "Guardar":

ActiveWorkbook.Save
End Sub
Executar o formulrio automaticamente

Por fim, necessrio adicionar um cdigo "extra" para que o seu formulrio seja executado
sempre que executa a sua planilha. Para isso, volte ao menu "Programador" - Visual Basic.
Na janela esquerda (Project Explorer) clique no objeto "EsteLivro" (ou o nome que deu ao seu
arquivo). Na janela de cdigo digite o seguinte trecho:
Private Sub Workbook_Open()

UserForm1.Show
End Sub
Guarde o seu formulrio e verifique o resultado final.
Caso pretenda descobrir mais funcionalidades do Excel, consulte os seguintes artigos:
Outros artigos Recomendados:

Como Criar Formulários No Excel

Enviado por

Direitos autorais:

Formatos disponíveis

Como Criar Formulários No Excel

Enviado por

Dados do documento

Descrição original:

Direitos autorais

Formatos disponíveis

Compartilhar este documento

Compartilhar ou incorporar documento

Opções de compartilhamento

Você considera este documento útil?

Este conteúdo é inapropriado?

Direitos autorais:

Formatos disponíveis

Como Criar Formulários No Excel

Enviado por

Direitos autorais:

Formatos disponíveis

Como criar Formulrios no Excel (Vba) UserForm

O nosso formulrio de exemplo bastante "simplista", tornando o tempo de aprendizagem mais

Formulrios no Excel - Preparao

1. Ativar o separador Programador (ou Desenvolvedor)

2. Executar Macros no Excel

Aceda ao Separador "Programador" e clique no boto "Segurana Macros". Selecione a opo

Criar um Formulrio no Excel

Construir Formulrio em VBA (UserForm)

Label: Texto Descritivo

Adicionar Cdigo VBA (Visual Basic for

Criar um boto de Sair:

Private Sub CommandButton1_Click()

Criar o boto "Inserir"

Private Sub CommandButton1_Click()

'Limpa os campos TextBox para inserir novos dados

Criar o Boto "Guardar":

Private Sub CommandButton1_Click()

Executar o formulrio automaticamente

Private Sub Workbook_Open()

Guarde o seu formulrio e verifique o resultado final.

Caso pretenda descobrir mais funcionalidades do Excel, consulte os seguintes artigos:

Outros artigos Recomendados:

Você também pode gostar