Minicurso de Excel VBA

Código da aula

Sub CaixaLanchonete()

    Dim lanches(1 To 4) As String

    Dim bebidas(1 To 3) As String

    Dim precoBebida(1 To 3) As Double

    Dim precoLanche(1 To 4) As Double

    Dim numbebida As Integer, numlanche As Integer

    Dim total As Double, recebido As Double, troco As Double

    lanches(1) = "Pão de queijo"

    lanches(2) = "Coxinha"

    lanches(3) = "Enroladinho"

    lanches(4) = "Torta"

    bebidas(1) = "refrigerante"

    bebidas(2) = "suco"

    bebidas(3) = "café"

    precoLanche(1) = 2.5

    precoLanche(2) = 2

    precoLanche(3) = 2.75

    precoLanche(4) = 3.5

    precoBebida(1) = 2.5

    precoBebida(2) = 5

    precoBebida(3) = 1

    numlanche = InputBox("Informe o número do lanche escolhido:")

    numbebida = InputBox("Informe o número da bebida escolhida:")

    total = precoBebida(numbebida) + precoLanche(numlanche)

    MsgBox ("Você escolheu: " & lanches(numlanche) & " e " & bebidas(numbebida))

    MsgBox ("Total a pagar: " & total)

    recebido = InputBox("Informe o valor pago pelo cliente:")

    troco = recebido - total

    MsgBox ("Troco: " & troco)

End Sub 

Código da aula

Sub CadastrarCliente()

    Dim nrolinha As Integer

    If ([Sistema!C2] = "") Then

        MsgBox "Nome é obrigatório"

    ElseIf ([Sistema!C3] = "") Then

        MsgBox "Idade é obrigatório"

    ElseIf ([Sistema!C4] = "") Then

        MsgBox "Telefone é obrigatório"

    Else

        nrolinha = WorksheetFunction.CountA([Dados!A:A]) + 1

        Planilha2.Cells(nrolinha, 1) = [Sistema!C2]

        Planilha2.Cells(nrolinha, 2) = [Sistema!C3]

        Planilha2.Cells(nrolinha, 3) = [Sistema!C4]

        [Sistema!C2:C4].Clear

        MsgBox "Cadastrado com sucesso!"

    End If

End Sub