Estudo dirigido VBA2

Prévia do material em texto

2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 1/26 
 
FATEC-SP Maria Claudia Fabiani 
LIÇÃO 1 - ABRINDO O EDITOR E INSERINDO UM MÓDULO 
1. Abra o arquivo VBA2 e habilite sua edição. 
 
2. Abra o editor VBA (ALT+F11 ou Desenvolvedor/Visual Basic) . 
 
3. Insira neste projeto um novo módulo chamado Exemplos. 
4. Certifique-se de que a instrução que obriga a declaração de variáveis está na Área de Declaração deste 
novo módulo (Option Explicit). 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 2/26 
 
FATEC-SP Maria Claudia Fabiani 
LIÇÃO 2 - CRIANDO E EXECUTANDO O PROCEDIMENTO CALCULO 
Sub Calculo: solicitar a digitação do valor do peso e da altura e exibir uma mensagem com o valor do 
IMC (peso/altura2). 
 
Obs: na figura acima a caixa de mensagem exibe o valor do IMC para o peso = 50 e altura = 1,6 mas 
durante a execução outros valores poderão ser repassados. 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Calculo. 
 
2. Para que este procedimento execute o fluxo exibido na figura acima, digite o código apresentado a seguir. 
As linhas na cor verde representam comentários e não precisam ser digitadas. 
Sub Calcular() 
'Declarar as variáveis locais peso e altura do tipo Single 
Dim peso As Single, altura As Single 
'Solicitar a digitação do valor e atribui-lo à variável peso 
peso = InputBox("Digite o peso", "Cálculo IMC") 
'Solicitar a digitação do valor e atribui-lo à variável altura 
altura = InputBox("Digite a altura", "Cálculo IMC") 
'Exibir mensagem com o resultado da expressão peso/altura2 
MsgBox "Seu IMC é " & peso / altura ^ 2, vbInformation, "Cálculo IMC" 
'Fim do procedimento 
End Sub 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 3/26 
 
FATEC-SP Maria Claudia Fabiani 
3. Posicione o cursor neste procedimento e pressione F5 ou clique no botão Executar da Barra de 
Ferramentas Padrão para executa-lo. 
 
4. Na mensagem Digite o peso digite 65 e clique em OK. 
 
5. Na mensagem Digite a altura digite 1,75 e clique em OK. 
 
6. Na mensagem O IM é ... clique em OK. 
 
7. Se achar necessário execute novamente este procedimento informando outros valores para o peso e para 
a altura. 
LIÇÃO 3 - COMANDOS DE DECISÃO 
DECISÃO SIMPLES 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 4/26 
 
FATEC-SP Maria Claudia Fabiani 
DECISÃO ENCADEADA 
 
DECISÃO MÚLTIPLA 
 
IF...ELSEIF...THEN...ELSE: executa um bloco de instruções dependendo de uma condição. A cláusulas 
Else e ElseIf são opcionais. Você pode ter quantas cláusulas ElseIf desejar em um bloco If, mas nenhuma 
pode aparecer depois de uma cláusula Else. As instruções do bloco If podem ser aninhadas, isto é, contidas 
uma dentro da outra. 
 
SELECT CASE: executa um dos diversos grupos de instruções, dependendo do valor de uma expressão. 
Representa uma alternativa ao If... já que também permite testar várias condições. 
 
Fonte: Ajuda do aplicativo 
 
If condição Then 
 
[Instruções] 
 
ElseIf condição Then 
 
[Instruções] 
 
Else 
 
[Instruções] 
 
End If 
 
Select Case expressão 
 
 Case expressão1 
 
[Instruções] 
 
 Case expressão2 
 
[Instruções] 
 
 Case Else 
 
[Instruções] 
 
End Select 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 5/26 
 
FATEC-SP Maria Claudia Fabiani 
• Sub Analise 
Solicitar a digitação do valor do IMC e exibir as mensagens Adequado ou Inadequado conforme o valor 
digitado. 
 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Analise. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Analise() 
'Declarar a variável IMC do tipo Single 
Dim IMC As Single 
'Solicitar a digitação do valor e atribui-lo à variável IMC 
IMC = InputBox("Digite o IMC", "Análise") 
'Se IMC >25 
If IMC > 25 Then 
'Exibir msg Inadequado 
 MsgBox "Inadequado", vbCritical, "Análise" 
'Senão 
Else 
'Exibir msg Adequado 
 MsgBox "Adequado", vbInformation, "Análise" 
'FimSe 
End If 
'Fim do procedimento 
End Sub 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 6/26 
 
FATEC-SP Maria Claudia Fabiani 
3. Execute este procedimento (pressione F5 ou clique no botão Executar da Barra de Ferramentas 
Padrão). 
4. Na mensagem Digite o IMC digite 26 e clique em OK. 
 
5. Na mensagem Inadequado clique em OK. 
 
6. Se achar necessário execute o procedimento e digite outros valores na mensagem Digite o IMC. 
• Sub Verificar 
Verificar: solicitar a digitação do valor do IMC e exibir as mensagens Baixo, Normal ou Alto conforme 
o valor digitado. 
 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Verificar. 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 7/26 
 
FATEC-SP Maria Claudia Fabiani 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Verificar() 
'Declarar a variável IMC do tipo Single 
Dim IMC As Single 
'Solicitar a digitação do valor e atribui-lo à variável IMC 
IMC = InputBox("Digite o IMC", "Verificar") 
'SE IMC <20 
If IMC < 20 Then 
'Exibir mensagem Baixo 
 MsgBox "Baixo", vbInformation, "Verificar" 
'SenãoSE IMC <25 
ElseIf IMC < 25 Then 
'Exibir mensagem Normal 
 MsgBox "Normal", vbInformation, "Verificar" 
'Senão 
Else 
'Exibir mensagem Alto 
 MsgBox "Alto", vbInformation, "Verificar" 
'FimSe 
End If 
'Fim do procedimento 
End Sub 
3. Execute o procedimento. 
4. Na mensagem Digite o IMC digite 18 e clique em OK. 
 
5. Na mensagem Baixo clique em OK. 
 
6. Se achar necessário execute novamente o procedimento digitando outros valores na mensagem Digite o 
IMC. 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 8/26 
 
FATEC-SP Maria Claudia Fabiani 
• Sub Temperatura 
Solicitar a digitação do valor da temperatura e exibir as mensagens conforme o valor digitado. 
 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Temperatura. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Temperatura() 
'Declarar a variável temp do tipo Single 
Dim temp As Single 
'Solicitar a digitação do valor e atribui-lo à variável IMC 
temp = InputBox("Digite a temperatura", "Temperatura") 
'SE temp <18 
If temp < 18 Then 
'Exibir mensagem Hoje está frio 
 MsgBox "Hoje está frio", vbInformation, "Temperatura" 
'SenãoSE temp <=26 
ElseIf temp <= 26 Then 
'Exibir mensagem Hoje a temperatura está amena 
 MsgBox "Hoje a temperatura está amena", vbInformation, "Temperatura" 
'Senão 
Else 
'Exibir mensagem Hoje faz calor 
 MsgBox "Hoje faz calor", vbInformation, "Temperatura" 
'FimSe 
End If 
'Fim do procedimento 
End Sub 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 9/26 
 
FATEC-SP Maria Claudia Fabiani 
3. Execute o procedimento. 
4. Na mensagem Digite a temperatura digite 26 e clique em OK. 
 
5. Na mensagem Hoje a temperatura está amena clique em OK. 
 
6. Se achar necessário execute novamente o procedimento digitando outros valores na mensagem Digite a 
temperatura. 
• Sub Situacao 
Solicitar a digitação do valor da IMC e exibir as mensagens conforme o valor digitado. 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 10/26 
 
FATEC-SP Maria Claudia Fabiani 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Situacao. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Situacao () 
'Declarara variável IMC do tipo Single 
Dim IMC As Single 
'Solicitar a digitação do valor e atribui-lo à variável IMC 
IMC = InputBox("Digite o IMC", "Situação") 
'Início Case IMC 
Select Case IMC 
'Caso <20 
 Case Is < 20 
'Exibir mensagem Baixo 
 MsgBox "Baixo", vbCritical, "Situação" 
'Caso <25 
 Case Is < 25 
'Exibir mensagem Normal 
 MsgBox "Normal", vbCritical, "Situação" 
'Senão 
 Case Else 
'Exibir mensagem Alto 
 MsgBox "Alto", vbCritical, "Situação" 
'Fim Case 
End Select 
'Fim do procedimento 
End Sub 
3. Execute o procedimento. 
4. Na mensagem Digite o IMC digite 28 e clique em OK. 
 
5. Na mensagem Alto clique em OK. 
 
6. Se achar necessário execute novamente o procedimento digitando outros valores na mensagem Digite o 
IMC. 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 11/26 
 
FATEC-SP Maria Claudia Fabiani 
• Sub Previsao 
Solicitar a digitação do valor da temperatura e exibir as mensagens conforme o valor digitado. 
 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Previsao. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Previsao() 
'Início Case InputBox 
Select Case InputBox("Digite a temperatura","Previsão") 
'Caso <20 
 Case Is < 20 
'Exibir mensagem Hoje está frio 
 MsgBox "Hoje está frio",vbinformation,"Previsão" 
'Caso <25 
 Case Is < 25 
'Exibir mensagem Hoje a temperatura está amena 
 MsgBox "Hoje a temperatura está amena","Previsão" 
'Senão 
 Case Else 
'Exibir mensagem Hoje faz calor 
 MsgBox "Hoje faz calor",vbinformation,"Previsão" 
'Fim Case 
End Select 
'Fim do procedimento 
End Sub 
3. Execute este procedimento. 
4. Na mensagem Digite a temperatura digite 28 e clique em OK. 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 12/26 
 
FATEC-SP Maria Claudia Fabiani 
 
5. Na mensagem Hoje faz calor clique em OK. 
 
6. Se achar necessário execute novamente o procedimento digitando outros valores na mensagem Digite a 
temperatura. 
• Sub Notas 
Solicitar a digitação do valor da média e exibir as mensagens Reprovado, Regular ou Ótimo conforme 
o valor digitado. 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 13/26 
 
FATEC-SP Maria Claudia Fabiani 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Notas. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Notas() 
'Início Case InputBox 
Select Case InputBox("Digite a média final do aluno", "Notas") 
'Caso < 6 
 Case Is < 6 
'Exibir mensagem Reprovado 
 MsgBox "Reprovado", vbInformation, "Notas" 
'Caso de 6 a 8 
 Case 6 To 8 
'Exibir mensagem Regular 
 MsgBox "Regular", vbInformation, "Notas" 
'Senão 
 Case Else 
'Exibir mensagem Ótimo 
 MsgBox "Ótimo", vbInformation, "Notas" 
'Fim Case 
End Select 
'Fim do procedimento 
End Sub 
3. Execute este procedimento. 
4. Na mensagem Digite a média final do aluno digite 7 e clique em OK. 
 
5. Na mensagem Regular clique em OK. 
 
6. Se achar necessário execute novamente o procedimento digitando outros valores na mensagem Digite a 
média final do aluno. 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 14/26 
 
FATEC-SP Maria Claudia Fabiani 
• Sub Tabela 
Retornar para a célula D3 da planilha Massa os trechos Baixo, Normal ou Alto formatados com cores 
diferentes conforme o valor da célula C3. 
 
Objeto Worksheets: representa as planilhas da pasta de trabalho. 
Objeto Range: representa uma célula ou um intervalo. 
Método Select: seleciona o objeto. 
Propriedade Value: representa o valor da célula ou do intervalo. 
Propriedade Font.Color: representa a cor da fonte do objeto. 
1. Insira no módulo Exemplos um procedimento tipo sub chamado Tabela. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Tabela() 
'Selecionar a planilha Massa 
Worksheets("Massa").Select 
'Selecionar a célula D3 
Range("D3").Select 
'SE C3 < 20 
If Range("C3").Value < 20 Then 
'Célula ativa = Baixo fonte azul 
 ActiveCell.Value = "Baixo" 
 ActiveCell.Font.Color = vbBlue 
'SenãoSe C3 <25 
ElseIf Range("C3").Value < 25 Then 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 15/26 
 
FATEC-SP Maria Claudia Fabiani 
'Célula ativa = Normal fonte verde 
 ActiveCell.Value = "Normal" 
 ActiveCell.Font.Color = vbGreen 
'Senão 
Else 
'Célula ativa = Alto fonte vermelha 
 ActiveCell.Value = "Alto" 
 ActiveCell.Font.Color = vbRed 
'FimSe 
End If 
'Fim do procedimento 
End Sub 
3. Execute este procedimento. 
4. Pressione ALT+F11 para ativar a janela do Excel e observe o valor de D3. 
 
5. Altere o peso (A3) para 57, pressione ALT+F11 para ativar a janela do editor e execute novamente o 
procedimento Tabela. 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 16/26 
 
FATEC-SP Maria Claudia Fabiani 
6. Pressione ALT+F11 para ativar a janela do Excel e observe o valor de D3. 
 
LIÇÃO 4 - COMANDOS DE REPETIÇÃO 
REPETIÇÃO COM CONTADOR 
 
REPETIÇÃO COM COM PRÉCONDIÇÃO 
 
FOR NEXT: Repete um bloco de instruções um determinado número de vezes definido por uma variável 
contadora. A instrução For especifica o contador e seus valores inicial e final. A instrução Next incrementa 
o contador em uma unidade. Utilizando Step, podemos aumentar ou diminuir o contador pelo valor 
especificado. Para diminuir o contador lembre-se de definir um valor inicial maior que o valor final e utilizar 
um valor negativo em Step. Para sair de uma instrução For...Next antes que o contador atinja o seu valor 
final devemos utilizar a instrução Exit for. 
 
 
 
For contador = início To fim [Step passo] 
 
[Instruções] 
 
[Exit For] 
 
[Instruções] 
 
Next [contador] 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 17/26 
 
FATEC-SP Maria Claudia Fabiani 
DO WHILE: Permite realizar um bloco de instruções enquanto uma condição for verdadeira (While). A 
condição pode ser verificada antes de entrar no loop (Do While...Loop) ou depois de executar o loop pelo 
menos uma vez (Do...Loop Whilel). Para sair de uma instrução Do...Loop podemos utilizar a instrução 
Exit Do. 
 
DO UNTIL: Permite realizar um bloco de instruções até que uma condição se torne verdadeira (Until). A 
condição pode ser verificada antes de entrar no loop (Do Until...Loop) ou depois de executar o loop pelo 
menos uma vez (Do...Loop Until). Para sair de uma instrução Do...Loop podemos utilizar a instrução 
Exit Do. 
 
FOR EACH...NEXT: repete um grupo de instruções para cada elemento do conjunto. 
 
Fonte: Ajuda do aplicativo 
• Sub Somar 
Exibir a somatória dos números de 1 a 10. 
 
Do While condição 
 
[Instruções] 
 
[Exit Do] 
 
Loop 
Do Until condição 
 
[Instruções] 
 
[Exit Do] 
 
Loop 
For Each elemento In grupo 
 
[instruções] 
 
[ Exit For ] 
 
Next 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 18/26 
 
FATEC-SP Maria Claudia Fabiani 
2. Volte ao editor e insira no módulo Exemplos um novo procedimento chamado Soma. 
 
3. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Somar() 
'Declarar as variáveis contador e soma do tipo integer 
Dim contador As Integer, soma As Integer 
'Para contador variando de 1 a 10 com passo de 1 unidade 
For contador = 1 To 10 
'Somar valor do contador na variável soma 
 soma = soma + contador 
'Fim do laçoFor 
Next 
'Exibir mensagem A soma é 
MsgBox "A soma é " & soma 
'Fim do procedimento 
End Sub 
4. Execute o procedimento e na mensagem A soma é 55 clique em OK. 
 
5. Altere o passo do laço For para 2 unidades. 
Sub Somar() 
'Declarar as variáveis contador e soma do tipo integer 
Dim contador As Integer, soma As Integer 
'Para contador variando de 1 a 10 com passo de 1 unidade 
For contador = 1 To 10 Step 2 
'Somar valor do contador na variável soma 
 soma = soma + contador 
'Fim do laço For 
Next 
'Exibir mensagem A soma é 
MsgBox "A soma é " & soma 
'Fim do procedimento 
End Sub 
6. Execute novamente o procedimento e na mensagem A soma é 25 clique em OK. 
 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 19/26 
 
FATEC-SP Maria Claudia Fabiani 
• Sub Inicial 
Preencher as células de B2 até B23 da planilha com o primeiro caractere da célula da direita 
correspondente (coluna C). 
 
Propriedade Cells: representa as células do intervalo especificado Cells(linha,coluna). 
Propriedade Value: representa o valor do intervalo especificado. 
Função Left: retorna um número especificado de caracteres do lado esquerdo de uma string. 
1. Selecione a planilha Notas na janela do Excel. Este passo será importante já que o procedimento não irá 
selecionar esta planilha durante a execução; 
2. Volte ao editor e insira no módulo Exemplos um novo procedimento chamado Inicial. 
 
3. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Inicial() 
'Declarar variável contador do tipo integer 
Dim contador As Integer 
'Para contador variando de 2 a 23 com passo de 1 unidade 
For contador = 2 To 23 
'Atribuir à célula que está na coluna B e na linha do contador 
'o primeiro caractere da célula que está na coluna C e na linha do contador 
 Cells(contador, 2).Value = Left(Cells(contador, 3), 1) 
'Fim do laço For 
Next 
'Fim do procedimento 
End Sub 
4. Execute este procedimento (lembre-se que a planilha Notas deverá estar ativa na janela do Excel). 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 20/26 
 
FATEC-SP Maria Claudia Fabiani 
5. Ative a janela do Excel e observe os valores da coluna B da planilha Notas. 
 
• Sub Turmas 
Preencher as células da coluna A da planilha Notas com os trechos Turma A, Turma B ou Turma C 
dependendo dos valores atuais das células da coluna B. 
 
Objeto Range: representa uma célula ou um intervalo. 
Método Select: seleciona o objeto. 
Instrução Do While...Loop: repete um grupo de instruções enquanto uma condição é verdadeira. 
Propriedade Value: representa o valor do intervalo especificado. 
Propriedade Offset: representa um deslocamento Offset(lin,col). 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 21/26 
 
FATEC-SP Maria Claudia Fabiani 
1. Mantenha a planilha Notas ativa e volte ao editor. 
2. Volte ao editor e insira no módulo Exemplos um novo procedimento chamado Turmas. 
 
3. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Turmas() 
'Selecionar a célula C2 da planilha ativa 
Range("C2").Select 
' Faça enquanto a célula ativa não estiver vazia (<>"") 
Do While ActiveCell.Value <> "" 
'SE o conteúdo da célula à esquerda da ativa (B) for <= J 
 If ActiveCell.Offset(0, -1).Value <= "J" Then 
'Atribuir Turma A à célula à esquerda da célula à esquerda da ativa 
 ActiveCell.Offset(0, -2).Value = "Turma A" 
'SenãoSE o conteúdo da célula à esquerda da ativa (B) for > J e <= N 
 ElseIf ActiveCell.Offset(0, -1).Value <= "N" Then 
'Atribuir Turma B à célula à esquerda da célula à esquerda da ativa 
 ActiveCell.Offset(0, -2).Value = "Turma B" 
'Senão 
 Else 
'Atribuir Turma C à célula à esquerda da célula à esquerda da ativa 
 ActiveCell.Offset(0, -2).Value = "Turma C" 
'FimSe 
 End If 
'Selecionar a célula abaixo da ativa 
 ActiveCell.Offset(1, 0).Select 
'Fim do laço While 
Loop 
'Fim do procedimento 
End Sub 
4. Execute este procedimento (lembre-se que a planilha Notas deverá estar ativa na janela do Excel). 
5. Ative a janela do Excel e observe os valores da coluna A da planilha Notas. 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 22/26 
 
FATEC-SP Maria Claudia Fabiani 
• Sub Resultado 
Preencher as células preenchidas da coluna H da planilha Notas com os trechos Aprovado (fonte azul) 
ou Reprovado (fonte vermelha) dependendo dos valores atuais das células da coluna F (faltas) e G 
(média). 
 
Objeto Worksheets: representa as planilhas da pasta de trabalho. 
Objeto Range: representa uma célula ou um intervalo. 
Método Select: seleciona o objeto. 
Instrução Do Until...Loop: repete um grupo de instruções até uma condição se tornar verdadeira. 
Propriedade Value: representa o valor do intervalo especificado. 
Propriedade Offset: representa um deslocamento Offset(lin,col). 
Propriedade Font.Color: representa a cor da fonte do objeto. 
1. Volte ao editor e insira no módulo Exemplos um novo procedimento chamado Resultado. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Resultado() 
'Selecionar a planilha Notas 
Worksheets("Notas").Select 
'Selecionar a célula H2 
Range("H2").Select 
'Faça até a célula à esquerda da ativa (G) estar vazia (="") 
Do Until ActiveCell.Offset(0, -1).Value = "" 
'SE célula à esquerda ativa (G) for <6 ou a célula à esquerda da que 
'está à esquerda da ativa (F)for >5 
 If ActiveCell.Offset(0, -1).Value < 6 Or ActiveCell.Offset(0, -2).Value > 5 Then 
'Célula ativa(H)= Reprovado fonte vermelha 
 ActiveCell.Value = "Reprovado" 
 ActiveCell.Font.Color = vbRed 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 23/26 
 
FATEC-SP Maria Claudia Fabiani 
'Senão 
 Else 
'Célula ativa(H)= Aprovado fonte azul 
 ActiveCell.Value = "Aprovado" 
 ActiveCell.Font.Color = vbBlue 
'FimSe 
 End If 
'Selecionar a célula abaixo da ativa 
 ActiveCell.Offset(1, 0).Select 
'Fim do laço Until 
Loop 
'Fim do procedimento 
End Sub 
3. Execute este procedimento. 
4. Ative a janela do Excel e observe os valores da coluna G da planilha Notas. 
 
• Sub Preencher 
Alterar a cor do preenchimento das células do intervalo G2:G23 da planilha Notas conforme o valor da 
própria célula. 
Variável tipo Range: variável que representa um objeto do mesmo tipo para a qual podemos definir os 
mesmos métodos e propriedades. 
Objeto Worksheets: representa as planilhas da pasta de trabalho. 
Método Select: seleciona o objeto. 
Instrução For Each...Next: repete um grupo de instruções para cada elemento do conjunto. 
Propriedade Value: representa o valor do intervalo especificado. 
Propriedade Interior.Color: representa a cor de preenchimento do objeto. 
 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 24/26 
 
FATEC-SP Maria Claudia Fabiani 
 
1. Volte ao editor e insira no módulo Exemplos um novo procedimento chamado Preencher. 
 
2. Complete o código deste procedimento com as linhas abaixo. Lembre-se que as linhas na cor verde são 
comentários e não precisam ser digitadas. 
Sub Preencher() 
'Declarar a variável celula do tipo Range 
Dim celula As Range 
'Selecionar a planilha Notas 
Worksheets("Notas").Select 
'Para cada celula do intervalo G2:G23 
For Each celula In Range("G2:G23") 
'Se valor < 6 
 If celula.Value < 6 Then 
'Alterar a cor de fundo para vermelho 
 celula.Interior.Color = 11851260 
'SenãoSe valor < 7,5 
 ElseIf celula.Value < 7.5 Then 
'Alterar a cor de fundo para amarelo 
 celula.Interior.Color= 10092543 
'Senão 
 Else 
'Alterar a cor de fundo para verde 
 celula.Interior.Color = 12379352 
'FimSe 
 End If 
'Fim do laço For Each 
Next 
'Fim do procedimento 
End Sub 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 25/26 
 
FATEC-SP Maria Claudia Fabiani 
3. Execute este procedimento. 
4. Ative a janela do Excel e observe a formatação das células G2:G23 da planilha Notas. 
 
5. Salve as alterações e saia do Excel. 
2_21 - ADS - PRO MICRO (ILM 001) - Estudo dirigido – Excel Office 365 VBA Parte 2 26/26 
 
FATEC-SP Maria Claudia Fabiani 
CONTEÚDO COMPLEMENTAR OPERADORES 
OPERADORES VBA 
Operação Operador 
Exponenciação ^ 
Multiplicação e Divisão * e / 
Adição e Subtração + e - 
Concatenação & 
Comparação =,<,>,<=,>=,<> 
Divisão com resultado inteiro \ 
Módulo Mod 
Lógicos AND, OR, NOT