HelpServices - Seu portal de conteúdo na internet - VBA para Excel - Curso Basico

VBA para Excel - Curso Basico - Parte 3

Adicionar a:

Escrito por: lb_guilherme, em 13-01-2008 16:06

Avaliação do editor:

Avaliação de usuários:

(0 voto)

Visualizações

1247

Favorito

1. Introdução
2. Gravando Macros
2.1. Microsoft Visual Basic
2.2. Criando um Botão

VBA para Excel - Curso Basico - Parte 2

3. Um pouco mais sobre as funções basicas
3.1. Comentarios
3.2. Editando células
3.3. IFs
3.4. MsgBox - Caixa de Diálogo
3.5. Variáveis

VBA para Excel - Curso Basico - Parte 3

4. UserForms
4.1. Controles
4.2. Por traz da janela
5. Exemplos
5.1. Exemplo 1

4. UserForms

As UserForms são, sem duvida, um dos recursos mais interessantes do VBA. São as famosas janelas, só que completamente personalizaveis.

Abra o Visual Basic Editor (Alt + F11) e insira uma UserForm:

Uma janela em branco vai aparecer. Agora é só customiza-la.

4.1. Controles

Você deve ter reparado que uma caixa de ferramentes se abriu, parecida com a usada na primeira parte deste tutorial. Ali estão os principais controles utilizados na criação de um formulario. Na ordem:

Mouse: Selecionar outros objetos.
Label: Texto.
TextBox: Campo de texto, gravar valores.
ComboBox: Lista em janela suspensa.
ListBox: Lista.
CheckBox: Caixa de verificação.
OptionButton: Diversas opções, que é escolhido apenas uma.
ToggleButton: Igual ao anterior, mas com butões.
Frame: Caixa separadora, separa em partes a janela.
CommandButton: Botão.
TabStrip: Opções de seleção.
MultiPage: Paginas de separação.
ScrollBar: Barra que determina um valor.
SpinButton: Versão diminuida da ScrollBar.
Image: Exibe uma imagem na caixa.
RefEdit: Referencia a uma celula.

Tambem é possivel incerir outros comandos mais avançados clicando com o direito sobre a caixa de ferramentas. Mas cuidado, como são controles utilizados em paginas de internet, podem conter virus e alguns não funcionam muito bem.

4.2. Por traz da janela

Insira um botão na janela, depois clique duas veses sobre ele. Uma area de código se abrirá:

Private Sub CommandButton1_Click()
End Sub

Nessa área é colocado a função de cada controle, baseado em condições. Existem duas listas acima dessa área, na primeira você define o objeto na qual se refere. Na segunda defini-se qual é a condição.

5. Exemplos

Dedicarei este quinto capitulo a varios exemplos praticos que podem ser editados e re-utilizados.

5.1. Exemplo 1

Faça uma planilia parecida com o exemplo abaixo:

Abra o VBA Editor a crie uma userform parecida com isso:

Com toda a janela selecionada, procure por, na aba "Propriedades":

(Name) - AddClient
Caption - Novo Cliente

Defina o nome dos outros objetos como:

Cancelar - BtCancel
Adcionar Cliente - BtAdd
TextBoxs - Text1, Text2, Text3 (na ordem)...

Clique duas veses sobre qualquer parte da janela, apaque o código original e insira este:

Private Sub BtCancel_Click()
AddClient.Hide
End Sub
Private Sub BtAdd_Click()
Range("A3").Select
Do
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Value = 0
ActiveCell.Value = Text1.Value
ActiveCell.Offset(0, 1).Value = Text2.Value
ActiveCell.Offset(0, 2).Value = Text3.Value
ActiveCell.Offset(0, 3).Value = Text4.Value
ActiveCell.Offset(0, 4).Value = Text5.Value
AddClient.Hide
End Sub

Entendendo o Código:

Linhas 1 a 3 - Definimos que a função do botão de cancelamento será encerrar a janela com o comando Hide.
Linhas 4 e 5 - Inciamos a função do botão "Adcionar cliente". Logo depois é selecionado a celula "A3".
Linhas 6 a 8 - Incia-se o Do Loop que é uma ou mais comandos que vão se repetir (uma celula abaixo) até que uma condição sejá cumprida. Nesse caso é que a celula ativa esteja vazia.
Linhas 9 a 13 - Insere-se os valores na celula ativa a nas celulas ao seu lado.
Linhas 14 e 15 - Fecha a janela e finaliza o código.

Para executar a UserForm basta colocar uma macro com o seguinte código: