Aula 1

- Conhecimento da ferramenta

- Introdução a Macros, comando “WITH” 

Programa 1 

Sub Nome do programa()

     Const tempo = "0:00:02"

     Range(“D4”).Value = "Hoje tem jogo!"

     Range(“D4”).Font.Size = 48

     Range(“D4”).Font.Bold = True

     Range(“D4”).Font.Color = vbBlue 

     Beep

     Application.Wait (Now + TimeValue(tempo))

    Range(“D4”).Font.Color = vbGreen

    Beep 

    Application.Wait (Now + TimeValue(tempo)) 

    Range(“D4”).Font.Color = vbRed 

    Beep 

End Sub