Apostila VBA

Prévia do material em texto

APOSTILA 
 VBA Versão 3.0 
 
 
 
3 
2 
4 
O Conteúdo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Que você precisa para mandar bem! 
 
O Conteúdo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1 
 
 
 
 
 
O Conteúdo 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Para não ficar perdidinho! 
 
O Sumário 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
1 
3 
2 
4 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 BONS 
 
ESTUDOS 
 Dúvidas ou Feedbacks nos procure 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Sub media()
If Cells(3, 3).Value >= 6 Then
Cells(3, 4).Value = "Aprovado"
Else
Cells(3, 4).Value = "Reprovado"
End If
End Sub
Sub media()
If Cells(3, 3).Value >= 6 Then
Cells(3, 4).Value = "Aprovado"
ElseIf Cells(3, 3).Value >= 4 Then
Cells(3, 4).Value = "Prova Final"
Else
Cells(3, 4).Value = "Reprovado"
End If
End Sub
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
Sub exemplo()
Dim linha As Integer
linha=1
Do Until linha=11
Cells(linha, 1).Value=”VBA”
linha=linha+1
Loop
End sub
 
 
Sub exemplo()
Dim linha As Integer
linha=1
Do While linha<=10
Cells(linha, 1).Value=”VBA”
linha=linha+1
Loop
End sub
Sub exemplo()
Dim linha As Integer
linha=1
While linha<=10
Cells(linha, 1).Value=”VBA”
linha=linha+1
Wend
End sub
 
 
Sub exemplo()
Dim linha As Integer
linha = 1
Do
Cells(linha, 1).Value = "VBA"
linha = linha + 1
Loop Until linha < 10
End Sub
Sub exemplo()
Dim linha As Integer
linha = 1
Do
Cells(linha, 1).Value = "VBA"
linha = linha + 1
Loop While linha > 10
End Sub
 
 
Sub exemplo()
Dim linha As Integer
For linha = 1 To 10
Cells(linha, 1).Value = "VBA"
Next linha
End Sub
Sub exemplo()
Dim linha As Integer
For linha = 1 To 10 Step 2
Cells(linha, 1).Value = "VBA"
Next
End Sub
 
 
Sub exemplo()
Dim celula As Range
For Each celula In 
Range("A1:A10")
celula.Value = "VBA"
Next
End Sub
Sub exemplo()
For Each aba In ThisWorkbook.Sheets
aba.Select
Cells(1, 1).Value = "VBA"
Next
End Sub
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
↑
↓
→
←
↑
↓
→
←
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 DÚVIDAS? 
 Fala com a gente lá no grupo do WhatsApp