Resumo G1 - VBA

Prévia do material em texto

AULA 1
Guia Desenvolvedor: Arquivo/Opções/Personalizar Guias e selecionar Desenvolvedor
GRAVANDO MACRO
- para criar atalho: CTRL+SHIFT+___
- para visualizar em VBE o código gerado: clicar em Macros na Guia Desenvolvedor.
Na janela da Macro, clique em Editar.
O AMBIENTE VBE
- os códigos feitos em “Module” funcionarão em todo arquivo
- a Janela de Procedimento lista todos eventos, ao selecionar um procedimento ele irá
aparecer na janela de código
- azul: palavras-chave da linguagem. Ex: Sub, End, If, Then, Else I vermelho: erro de
sintaxe.I preto: nome de variáveis, constantes I verde: comentários I amarelo: linha
apresentou erro na execução
- SUBROTINAS: delimitadas por “Sub” e “End”
- FUNÇÕES: retornam um valor e são delimitadas por “Function” e “End Function”
- 1) Inserir Módulo (clicar 2x módulo)
- 2) Clicar na janela de código
- 3) Inserir Procedimento
- 4) Public Function
- 5) Digitar código
OBJETO.MÉTODO
Bola(“Futebol”).Chutar Esquerda Muita
ActiveCell.Interior.ColorIndex = 255 ------ serve para pintar a célula de vermelho
CÓDIGOS BÁSICOS
1) ACTIVE CELL
a) ActiveCell=4 Atribui o valor 4 para a célula ativa
b) ActiveCell=”PALAVRA” Atribui o texto PALAVRA para a célula ativa
c) ActiveCell.Value Valor armazenado na célula ativa: If (ano <=
ActiveCell.Value) Then
d) ActiveCell.Value=txtNome Na célula ativa será gravado o conteúdo da
variável txtNome
e) ActiveCell.Row LINHA = ActiveCell.Row Atribui a variável LINHA o número
da linha da célula ativa
f) ActiveCell.Column COLUNA = ActiveCell.Column Atribui a variável COLUNA
o número da coluna da célula ativa
g) ActiveCell.Offset(1, 0).Select Torna a próxima célula ativa uma (1,0) linha
para baixo e mantém a mesma coluna (1,0)
2) CELLS
a) Cells(x,y)=4 Atribui o valor 4 para a célula da linha x e coluna y
b) Cells(x,y)=”PALAVRA” Atribui o texto PALAVRA para a célula da linha x e
coluna y
c) Cells(x,y).Activate Torna ativa a célula da linha x e coluna y
d) Cells(x,y).Select Torna ativa a célula da linha x e coluna y
e) Cells(x,y).Value=”PALAVRA” Atribui o texto PALAVRA para a célula da linha x
e coluna y
3) RANGE
a) Range(“B3”).Select Torna ativa a célula B3
b) Range(“A1”)=10 Atribui o valor 10 a célula A1
4) ISEMPTY
a) IsEmpty(ActiveCell) Retorna se a célula ativa está vazia (Verdadeiro ou
Falso)
b) IsNotEmpty(ActiveCell) Retorna se a célula ativa não está vazia (Verdadeiro
ou Falso)
5) ACTIVATEWORKBOOK
a) ActiveWorkbook.Sheets("DADOS").Activate Torna ativa a planilha DADOS
6) ATRIBUIÇÃO SIMPLES
a) ActiveWorkbook.Sheets("DADOS").Activate Torna ativa a planilha DADOS
7) CONCATENAÇÃO
a) O símbolo & serve para unir em uma mesma frase texto e variáveis. resp =
MsgBox("A data do domingo de páscoa será " & dia & " / " & mês & " / " &
ano)
8) LEN
a) If Len(txtNome.Value)=0 then Verifica se a variável txtNome (que armazena
string) está vazia (ou não contém nenhum caractere).
b) If Len(txtDDD.Value)<>2 then Verifica se a variável txtDDD (que armazena
integer) possui valores que não contém dois dígitos
9) OUTROS
a) txtNome.Value=”” Esvazia a variável
b) txtNome.Value txtDDD.Value=”” Esvazia a variável txtNome.DDD
c) txtNome.SetFocus Na janela UserForm, torna ativo o campo onde será
digitado o nome que será armazenado na variável TxtNome
d) Exit Sub Sai da subrotina (macro).
AULA 2
EXERCÍCIOS GRAVANDO MACRO+BOTÃO ACTIVEX+FUNÇÃO SOMA NO
VBE+MACROLIMPAR
VBE COMPLETO NO DRIVE
AULA 3
MENSAGEM BOX
Janela de mensagem:
msgTextoAvisando = MsgBox ( “Aviso de Alguma Coisa”, vbYesNoCancel ) ou
msgTextoAvisando = MsgBox ( “Aviso de Alguma Coisa”, 3 )
Janela de entrada
txtNome = InputBox ( “Digite o nome e sobrenome” )
DECLARAÇÃO DE VARIÁVEIS
Dim nome_da_variável As tipo_da_variável
AULA 4
Qualquer algoritmo numérico pode ser composto usando-se as três estruturas de controle
fundamentais: Sequência, Seleção e Repetição
1) LOOP = ESTRUTURAS DE REPETIÇÃO
a) For...Next
b) Do While...Loop
c) While...Wend
d) Do Until...Loop
e) Do ... Loop Until
f) For Each...Next
2) FLUXO = ESTRUTURAS DE SELEÇÃO
a) If...Then...Else...End If
b) Select Case
AULA 5
FUNÇÃO QUADRÁTICA
AULA 6
USERFORM
No ambiente de objetos, basta clicar duas vezes sobre o botão que ele irá para o ambiente
de código e criará uma sub-rotina privada, dedicada ao objeto.
Na primeira linha do ambiente de código do UserForm1 escrever Option Explicit e na
segunda linha a declaração de todas as variáveis que serão utilizadas nesse ambiente de
código. Nesse caso G1 e G2 como sendo do tipo Double .
Comando Unload Me para que a janela do userform feche.
Inserir Botão para abrir o Userform1 Dica: Userform1.Show
AULA 9