Criar Um Vetor para 3 Produtos e uma Matriz Com Valores de Venda em 3 Semestre Somar as Vendas por Produto e o Total Geral

Sub loja()
Dim matriz(3, 2) As Currency
Dim vetor(3) As String
Dim total(3) As Currency

Dim i As Integer
Dim l As Integer
Dim m As Integer
Dim m2 As Integer
Dim msg As String

For i = 0 To 3
vetor(i) = InputBox("Digite o nome do produto " & i + 1)
For l = 0 To 2
matriz(i, l) = InputBox("Digite o valor " & l + 1)
total(i) = total(i) + matriz(i, l)
Next
Next

For m = 0 To 3
MsgBox ("Produto: ") & vetor(m) & Chr(13) + ("Preço mes Janeiro: ") & matriz(m, 0) & Chr(13) + ("Preço mes Fevereiro: ") & matriz(m, 1) & Chr(13) + ("Preço mes Março: ") & matriz(m, 2) & Chr(13) + ("TOTAL : ") & total(m)

Next
MsgBox ("Total de Tudo: ") & total(0) + total(1) + total(2) + total(3)
MsgBox ("William Rodrigo Da Silva") & Chr(13) + ("Ja era Galera o programa era esse ae, BOA FERIAS PRA GERAL")
End Sub

Codigo Formulário Cadastro de Produto

Private Sub btnCadastrar_Click()
'declarar variaveis
Dim linha As Integer
Dim ws As Worksheet
Dim codigoProduto As Integer
Dim descricao   As String
Dim quantidadeEstoque As Integer
Dim valorUnitario As Currency
Dim valorTotal As Currency
'Identificar qual Planilha ta a Tabela
Set ws = Worksheets(1)
'Posicionar celula abaixo da ultima prenchida
linha = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'verificar o que o usuário digitou certo
If Not IsNumeric(txtCodigoProduto.Text) Then
    MsgBox "Codigo do Produto deve ser numerico"
    txtCodigoProduto.Text = ""
    txtCodigoProduto.SetFocus
    Exit Sub
End If

If txtDescricao.Text = "" Then
    MsgBox "Voce deve Digitar a Descrição do Produto"
    txtDescricao.SetFocus
    Exit Sub
End If

If Not IsNumeric(txtQuantidadeEstoque.Text) Then
    MsgBox "Valor Quantidade deve ser Numerico"
    txtQuantidadeEstoque.Text = ""
    txtQuantidadeEstoque.SetFocus
    Exit Sub
End If

If Not IsNumeric(txtValorUnitario.Text) Then
    MsgBox "Valor Unitário deve ser Numerico"
    txtValorUnitario.Text = ""
    txtValorUnitario.SetFocus
    Exit Sub
End If
   
    ' passar dados do formulário para planilha
    'alimentar as variaveis
   
    codigoProduto = txtCodigoProduto.Text
    descricao = UCase(txtDescricao.Text)
    quantidadeEstoque = txtQuantidadeEstoque.Text
    valorUnitario = txtValorUnitario.Text
   
    'jogar os dados das variáveis em cada celula
    ws.Cells(linha, 1).Value = codigoProduto
    ws.Cells(linha, 2).Value = descricao
    ws.Cells(linha, 3).Value = quantidadeEstoque
    ws.Cells(linha, 4).Value = valorUnitario
    valorTotal = valorUnitario * quantidadeEstoque
    ws.Cells(linha, 5).Value = valorTotal
   
    'Avisar Usuario que deu certo
    MsgBox "Cadastro Efetuado com Sucesso"
   
    'Limpa Formulário
    txtCodigoProduto.Text = ""
    txtDescricao.Text = ""
    txtValorUnitario.Text = ""
    txtQuantidadeEstoque.Text = ""
   
    'Colocar o foco no primeiro controle
    txtCodigoProduto.SetFocus
   
End Sub

Private Sub txtQuantidadeEstoque_Change()

End Sub

Funcao Date Retorna Semana Apartir da Data Atual

Sub teste3()
Dim data As Date
data = Date
MsgBox DateAdd("ww", 9, data)
'Retorna semana apartir da data Atual
End Sub

Funcao Date Data Ate 9 mese

Sub teste2()
Dim data As Date
data = Date
MsgBox DateAdd("q", 3, data)
'Retorna daqui 9 meses
End Sub

Funcao Date 2

Sub teste1()
'Acrescentar dias a uma data
Dim dataemissao As Date
Dim datavencimento As Date
Dim periodo As Integer
dataemissao = Date
periodo = CInt(InputBox("Quantos dias para o Vencimento"))
datavencimento = DateAdd("d", periodo, dataemissao)
MsgBox datavencimento
End Sub

Funcao Date

Sub teste()
Dim data As Date
data = CDate(InputBox("Digite a data que venceu a Duplicata : "))
'MsgBox Weekday(data)
'Diferença de dias entre uma data e outra
Dim dias As Integer
Dim meses As Integer
meses = DateDiff("m", data, Date)
dias = DateDiff("d", data, Date)
MsgBox dias
MsgBox meses
End Sub

Programinha Que Gera Uma Pilha Com Nome Digitado

Sub ExemploUltimoNome()
    Dim palavra As String
    palavra = UCase(InputBox("Digite uma palavra"))
    Dim i As Integer
    Dim mensagem As String
    For i = 1 To Len(palavra)
        mensagem = mensagem & Mid(palavra, 1, i) & Chr(13)
    Next
    MsgBox mensagem
End Sub

Programinha Que Seleciona Primeiro Nome e Ultimo Sobrenome

Sub comequeficosabendo()
    Dim palavra As String
    Dim letra As String
    palavra = UCase(InputBox("Digite uma palavra"))
    Dim pos_espaco As Integer
    pos_espaco = InStr(1, palavra, " ")
    Dim resultado As String
    resultado = Mid(palavra, 1, pos_espaco)
    MsgBox resultado
    resultado = Mid(palavra, InStrRev(palavra, " ") + 1, Len(palavra) - InStrRev(palavra, " "))
    MsgBox resultado
   
End Sub

Gerar um Jogo Para MegaSena Funções Internas

Sub Exemplo_Funcoes()
'gerar um numero randomico
'gerar um jogo para megaSena
Dim jogo(5) As Integer
Dim qtd As Integer
Dim gerado As Integer
Dim i As Integer
Dim tem As Boolean
Dim mensagem As String

qtd = 0
Do While (qtd < 6)
 gerado = Int(Rnd() * 60)
    For i = 0 To 5
    If gerado = jogo(i) Then tem = True
    Next
    If tem = False Then
    jogo(qtd) = gerado
    qtd = qtd + 1
    End If
Loop

For i = 0 To 5
mensagem = mensagem & jogo(i) & " "
Next

MsgBox mensagem

End Sub

Tabuada Vetor "Array"

Sub tabuadaVetorArray()
Dim A(10) As Integer
Dim i     As Integer
Dim n     As Integer
Dim m     As String

n = InputBox("Digite o Numero que Deseja a Tabuada: " & n + 1)
For i = 0 To 10
  A(i) = n * i
Next
For i = 0 To 10
m = m & n & " X " & i & " = " & A(i) & Chr(13)
Next

MsgBox m
End Sub

Exercicio Maromo Matriz Vetor

Sub MatrizVetor()
Dim v(6, 6) As Integer
Dim l     As Integer
Dim c     As Integer
Dim x     As String
Dim y     As String

For l = 0 To 6
  For c = 0 To 6
        v(l, c) = 1
   
      If l < c Then
        v(l, c) = 2
      End If
   
      If l > c Then
        v(l, c) = 0
      End If
   Next
 Next
 
 For l = 0 To 6
    For c = 0 To 6
    x = x & v(l, c)
    Next
 y = y + x
 x = ""
 y = y & Chr(13)
 Next

Debug.Print y

End Sub

Matriz Multidimencional

Sub MatrizMultidimencional()

'Representação de linha e coluna
'3x2 (3 linhas / 2 colunas)
'5x5 (5 linhas / 5 colunas)
'Dim matriz(2,1) as integer "Matriz de 3 linha 2 Coluna"
'Dim matriz(4,4) as integer "Matriz de 5 linhas 5 colunas"
' 5 nomes 2 Notas e a Media

 Dim nome(4) As String
 Dim resultado(4) As String
 Dim nota(4, 2) As Double
 Dim n As Integer
 Dim c As Integer
 Dim mensagem As String

'Alimentar os dados Vetor e Matriz
 For n = 0 To 4
 nome(n) = InputBox("Nome do Aluno" & n + 1)
 nota(n, 0) = CDbl(InputBox("Nota da Primeira Prova: " & nome(n)))
 nota(n, 1) = CDbl(InputBox("Nota da Segunda Prova: " & nome(n)))
 nota(n, 2) = (nota(n, 0) + nota(n, 1)) / 2

 If nota(n, 2) >= 6 Then
  resultado(n) = "Aprovado"
 Else
  resultado(n) = "Reprovado"
  End If
  Next
 
For n = 0 To 4
    mensagem = mensagem & "Nome : " & nome(n) & " Media : " & nota(n, 2) & " Situação : " & resultado(n) & Chr(13)
Next
    MsgBox mensagem
End Sub

Vetor de Ordenaçaõ Professor Maromo

Sub SubOrdenChoquito()
Dim v(4)  As Integer
Dim i     As Integer
Dim j     As Integer
Dim troca As Integer

For i = 0 To 4
v(i) = CInt(InputBox("Digite um Valor: "))
Next

For i = 0 To 4
    For j = 0 To 4
         If v(i) > v(j) Then
         troca = v(i)
         v(i) = v(j)
         v(j) = troca
         End If
    Next
Next

For i = 0 To 4
Debug.Print v(i)
Next
End Sub

Vetor Dinamico VBA Excel

Sub vetordinamico()
Dim v() As Integer
Dim q As Integer
Dim i As Integer
q = CInt(InputBox("Digite o Tamanho do vetor : "))
q = q - 1
ReDim v(q)
For i = 0 To q
    v(i) = CInt(InputBox("Digite um Valor: "))
Next

For i = 0 To q
Debug.Print v(i)
Next
   
End Sub

'Incrementa o Vetor com 10 Nomes , Imprime do Ultimo pro Primeiro Nome Digitado

Sub pratica1()
Dim nome(9) As String
Dim i As Integer


'Incrementa o Vetor com 10 Nomes
    For i = 0 To 9
    nome(i) = InputBox("Digiete o Nome : ")
    Next

'Imprime do Ultimo pro Primeiro Nome Digitado  
    For i = 9 To 0 Step -1
    MsgBox nome(i)
    Next


End Sub

Exemplo Vetor Imprimir e Contador

Sub ExemploVetor1()
Dim valor(6) As Integer
Dim i        As Integer
Dim conta   As Integer

'encrementar valor no vetor
For i = 0 To 6
valor(i) = CInt(InputBox(" Digite um valor"))
Next

'imprimir valores encrementados
For i = 0 To 6
    'selecionar impares
    If valor(i) Mod 2 = 1 Then

    'contar quantidades de Numeros Impares incrementados
    conta = conta + 1
        MsgBox valor(i)
    End If
Next
MsgBox "total de impares: " & conta
End Sub

Exemplo Vetor

Sub ExemploVetor()
Dim valor(6) As Integer
Dim i        As Integer

'encrementar valor no vetor
For i = 0 To 6
valor(i) = CInt(InputBox(" Digite um valor"))
Next

'imprimir valores encrementados
For i = 0 To 6
MsgBox valor(i)
Next

End Sub

Exemplo de código com While

Sub Do_Loop_While_no_início()
'Exemplo de código com While no início do trecho de código:
Dim x As Integer
Dim Contador As Integer
Dim Soma As Integer
x = 10
Contador = 1
Soma = 0
' Efetua a soma dos dez primeiros números maiores que zero.
Do While Contador < x
Soma = Soma + Contador
Contador = Contador + 1
Loop
MsgBox "soma = " & Soma & " Contador = " & Contador
End Sub

Sub Do_Loop_While_no_final()
'Exemplo de código com While no final do trecho de código:
Dim x, Contador, Soma
x = 10
Contador = 1
Soma = 0
'Efetua a soma dos dez primeiros números maiores que zero.
Do
Soma = Soma + Contador
Contador = Contador + 1
Loop While Contador < x
MsgBox "Soma = " & Soma & " " & " Contador = " & Contador
End Sub


Sub Do_Loop_Until_no_início()
'Exemplo de código com Until no início do trecho de código:
Dim x, Contador, Soma
x = 10
Contador = 1
Soma = 0
'Efetua a soma dos dez primeiros números maiores que zero.
Do Until Contador >= x
Soma = Soma + Contador
Contador = Contador + 1
Loop
MsgBox " soma = " & Soma & " " & " Contador = " & Contador
End Sub


Sub Do_Loop_Until_no_final()
'Exemplo de código com Until no final do trecho de código:
Dim x, Contador, Soma
x = 10
Contador = 1
Soma = 0
'Efetua a soma dos dez primeiros números maiores que zero.
Do
Soma = Soma + Contador
Contador = Contador + 1
Loop Until Contador >= x
MsgBox "Soma = " & Soma & "  " & "Contador = " & Contador
End Sub


Sub While_Wend()
Dim x, Contador, Soma
x = 10
Contador = 1
Soma = 0
' Efetua a soma dos dez primeiros números maiores que zero.
While Contador < x
Soma = Soma + Contador
Contador = Contador + 1
Wend
MsgBox "Soma = " & Soma & " " & "Contador = " & Contador
End Sub

Faça um programa que calcule a seguinte expressão: S = X + 2 ^ N. 'Onde X e N são informados pelo usuário.

Sub lista_10()
'10) Faça um programa que calcule a seguinte expressão: S = X + 2 ^ N.
'Onde X e N são informados pelo usuário.
Dim x As Integer
Dim n As Integer
Dim s As Integer

x = CInt(InputBox(" Digite o Valor de X : "))
n = CInt(InputBox(" Digite o Valor de N : "))
s = x + 2 ^ n
MsgBox (s & "=" & x & "+ 2 ^ " & n)

End Sub

Faça uma aplicação que dado um número X [0 < X < 100]. 'Apresente em tela uma contagem regressiva de dois em dois até chegar ao número 0.

Sub lista_9()
'9) Faça uma aplicação que dado um número X [0 < X < 100].
'Apresente em tela uma contagem regressiva de dois em dois até chegar ao número 0.

Dim num As Integer
Dim i As Integer
    For i = 100 To 1 Step -1
        If (i Mod 2 = 0) Then
        Debug.Print i
        ' "Crtl G" para ver o resultado na Tela de Verificação Imediat.
        End If
    Next
End Sub

Faça uma aplicação VBA que identifique se a radiação é aceitável ou se não, em qual grupo uma determinada indústria se aplica.

Sub lista_8()
'8) A secretaria do meio ambiente que controla os índices de radiação no Japão, mantém três grupos de
'industrias que são atualmente prejudiciais ao meio ambiente. O índice de radiação aceitável varia de 0,05
'até 0,5. Se o índice variar entre 0,26 e 0,30 as indústrias do 1ºgrupo são intimadas a suspenderem suas
'atividades, se o índice variar entre 0,31 e 0,40 as industrias do 1º e 2º grupos são intimadas a
'suspenderem suas atividades, se o índice for acima de 0,41 todos os grupos devem ser notificados
'(1º,2º,3º).
'Sua tarefa: Faça uma aplicação VBA que identifique se a radiação é aceitável ou se não, em qual grupo uma
'determinada indústria se aplica.

Dim indic As Integer
Dim mensagem As String

indic = Val(InputBox("Indique Indice Radação do Momento: "))


    If (indic >= 26) And (indic <= 30) Then
        mensagem = "Suspender Atividades Das Industrias do Grupo 1"
     
    ElseIf (indic > 30) And (indic <= 40) Then
        mensagem = "Suspender Atividades Das Industrias dos Grupos 1 e 2"
 
    ElseIf (indic < 25) Then
        mensagem = "Indice Normal Sem Risco de Radiação"
 
    Else
        mensagem = "Suspender Atividades das Industrias do Grupos 1,2,3"
     
    End If
    MsgBox mensagem

End Sub

Faça um programa que mostre todos os números 'divisíveis exatos por três que estão no intervalo de 3 a111.

Sub lista_7()
'7) Faça um programa que mostre todos os números
'divisíveis exatos por três que estão no intervalo de 3 a111.

Dim selecao As Integer
Dim i As Integer

    For i = 3 To 111
        If (i Mod 3 = 0) Then
            Debug.Print i & " É Divisivel por 3 "
            '"Ctrl G" pra acessar Verificação Imediata
        End If
    Next
End Sub

Faça uma aplicação VBA que calcule o IMC da pessoa. Peso e altura da pessoa devem ser informados.

Sub lista_6()
'6) Faça uma aplicação VBA que calcule o IMC da pessoa. Peso e altura da pessoa devem ser informados.
'Fórmula: peso/(altura * altura)
Dim nome As String
Dim altura As Double
Dim peso As Double
Dim imc As Double

nome = InputBox("Digite seu Nome ")
altura = InputBox("Digite sua Altura")
peso = InputBox("Digite seu Peso")

imc = peso / (altura * altura)

    If (imc >= 20) And (imc <= 25) Then
        MsgBox (nome + Chr(13) + " Seu IMC é : " & imc & Chr(13) + "Peso Ideal")

    ElseIf (imc > 25) Then
        MsgBox (nome + Chr(13) + " IMC é : " & imc & Chr(13) + "Sobre Peso")
 
    Else
        MsgBox (nome + Chr(13) + " IMC é : " & imc & Chr(13) + "Abaixo do Peso")
    End If
End Sub

Faça uma aplicação VBA onde o usuário informa 10 números inteiros 'e ao final mostre a quantidade denúmeros maiores que 100 digitados pelo usuário.

Sub lista_5()
'5) Faça uma aplicação VBA onde o usuário informa 10 números inteiros
'e ao final mostre a quantidade denúmeros maiores que 100 digitados pelo usuário.

Dim num  As Integer
Dim i As Integer

For i = 1 To 10
 num = CInt(InputBox("Digite um numero"))
 If (num >= 100) Then
 Debug.Print num
 End If
 Next

' "Ctrl G" para visualizar a lista de numeros maiores que 100 que foram digitados

End Sub

Faça uma aplicação VBA onde o usuário entra com seu nome e a opção desejada.

Sub lista_4()
'4) Faça uma aplicação VBA onde o usuário entra com seu nome e a opção desejada.
'1- Instalar Aplicativo
'2- Fazer Beckup
'3- Restaurar Cópia
Dim opcao As String
Dim nome As String
nome = InputBox(" Olá Qual seu Nome ")

MsgBox "Opções : " + Chr(13) + Chr(13) + _
       " 1 Instalar Aplicativo" + Chr(13) + _
       " 2 Fazer Backup " + Chr(13) + _
       " 3 Restaurar Copia " + Chr(13) + _
       " Escolha a Opcao na Proxima Tela."
     
       opcao = Val(InputBox(" Digite sua Opcao "))
     
       Select Case opcao
       Case 1
       opcao = " Ola " & nome & " Voce escolheu : Instalar Aplicativo "
       Case 2
        opcao = " Ola " & nome & " Voce escolheu : Fazer Backup "
       Case 3
        opcao = " Ola " & nome & " Voce escolheu : Restaurar Copia "
       Case Else
       opcao = " Opcao Invalida "
       End Select
       MsgBox (nome & Chr(13) & " Opção Escolhida : " & opcao)
End Sub

'Faça uma aplicação VBA onde o usuário informe a data de seu nascimento e o programa exibe sua idade aproximada em anos. Dica: Use a função datediff.

Sub lista_3()
'Faça uma aplicação VBA onde o usuário informe a data de seu nascimento e o programa exibe sua idade aproximada em anos. Dica: Use a função datediff.

Dim data As Date
Dim msg As String
Dim d1, d2, d3, d4, d5 As Single

data = InputBox(" Digite a Data dd/mm/aaaa que Voce Nasceu ")
msg = " Voce tem " & DateDiff("yyyy", data, Now) & " anos"
MsgBox msg

d1 = DateDiff("d", data, Now)
d2 = DateDiff("m", data, Now)
d3 = DateDiff("yyyy", data, Now)
d4 = DateDiff("s", data, Now)

msg = " Sua idade e : " & vbCrLf
msg = msg & " ============================== " & vbCrLf
msg = msg & " Em dias : " & d1 & " dias " & vbCrLf
msg = msg & " Em meses : " & d2 & " meses " & vbCrLf
msg = msg & " Em anos : " & d3 & " anos " & vbCrLf
msg = msg & " Em segundos : " & d4 & " segundos " & vbCrLf

MsgBox msg, vbOKOnly, " calculando intervalos de datas "

End Sub

Faça uma aplicação VBA onde o usuário entre com um Número inteiro e mostre se o mesmo é divisível exato por 3.

Sub lista_2()
'2) Faça uma aplicação VBA onde o usuário entre com um número inteiro e mostre se o mesmo é divisível exato por 3.
Dim numero As Integer
Dim mensagem As String

numero = CInt(InputBox(" Digite um valor "))
    If numero Mod 3 = 0 Then
        mensagem = " O Numero " & numero & " é Divisivel por 3"
    Else
        mensagem = " O Numero " & numero & " Não é Divisivel por 3"
    End If
 
    MsgBox mensagem
End Sub

Faça uma aplicação VBA para calcular a seguinte expressão, x = a+y-7 no final, mostre o valor de x.

'1) Faça uma aplicação VBA para calcular a seguinte expressão, x = a+y-7 no final,
mostre o valor de x.

Sub lista_1()
Dim a As Integer
Dim y As Integer
Dim x As Integer

Dim mensagem As String
Dim resposta As String

a = CInt(InputBox(" Digite o Valor de A"))
y = CInt(InputBox(" Digite o Valor de Y"))

resposta = (a + y) - 7
mensagem = mensagem & "O Valor de X é : " & resposta

MsgBox mensagem

End Sub

'Verificar se um Numero é divisivel por 3 " (mod 3 = 0) "

Sub procMult3()
'Verificar se um numero é divisivel por 3 " (mod 3 = 0) "
Dim num As Integer
Dim mensagem As String
   num = Val(InputBox("Escreva um Numero", "Número num"))
 
   If (num Mod 3 = 0) Then
    mensagem = "Numero é Multiplo de (3) TRES   "
   Else
    mensagem = "Não é Multiplo de (3) TRES  "
   End If
    MsgBox mensagem & num
End Sub

'Função ("For To, "IF Then Else End If",Next) Verifica lista de 5 Numeros se Par ou Impar

Sub procSelecImpar()
'Função "For To"  "IF Then Else End If", Verifica lista de 5 numeros se par ou impar
    Dim num As Integer
    Dim i As Integer
        For i = 1 To 5
        num = CInt(InputBox("digite o numero"))
            If (num Mod 2 = 0) Then
            Debug.Print num & " É par "
            Else
            Debug.Print num & " É Impar "
            End If
        Next
End Sub

'Varias Função (IF Then Else End If), Verifica lista de 5 Numeros se Par ou Impar

Sub procExer4()
'Varias Função IF Then Else End If, Verifica lista de 5 numeros se par ou impar
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim numero As Integer
Dim mensagem As String

    a = Val(InputBox("Escreva um Numero", "Número a"))
    b = Val(InputBox("Escreva outro Numero", "Número b"))
    c = Val(InputBox("Escreva outro Numero", "Número C"))
    d = Val(InputBox("Escreva um Numero", "Número d"))
    e = Val(InputBox("Escreva outro Numero", "Número e"))
 
'Verifica se "a" é par ou impar
    numero = a
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "b" é par ou impar
     numero = b
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "c" é par ou impar
     numero = c
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "d" é par ou impar
     numero = d
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
'Verifica se "e" é par ou impar
     numero = e
    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par  "
    Else
        mensagem = "Numero é Impar  "
    End If
    MsgBox mensagem & numero
 
End Sub

'Função (If And Then, ElseIf, Else, End If) Verifica entre 3 numeros o Maior.

Sub procMaior_Tres()
'Função If And Then, ElseIf, Else Verifica entre 3 numeros o Maior.
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim maior As Integer
    a = Val(InputBox("Escreva um Numero", "Número a"))
    b = Val(InputBox("Escreva outro Numero", "Número b"))
    c = Val(InputBox("Escreva outro Numero", "Número C"))
 
     If (a > b) And (a > c) Then
        maior = a
        ElseIf (b > c) Then
            maior = b
        Else
            maior = c
     End If
     MsgBox " O Maior é :  " & maior
End Sub

'Função (If, End If) Verifica entre 2 Numeros qual é o Maior

Sub procMaior_Numero()
'Função If, End If Verifica entre dois numeros qual é o Maior
Dim a     As Integer
Dim b     As Integer
Dim maior As Integer
a = Val(InputBox("Digite um Numero Inteiro Positivo", "Número a"))
b = Val(InputBox("Digite outro NumeroInteiro Positivo", "Número b"))
 
    maior = a
        If maior < b Then
            maior = b
        End If
    MsgBox " O Maior é : " & maior
End Sub

' Função (If Then, Else, End If) Verifica se o Numero é Par ou Impar

Sub procpar_ou_impar()
' Função If Then, Else, End If Verifica se o numero é par ou Impar
Dim numero   As Integer
Dim mensagem As String
numero = Val(InputBox("Digite um Numero :"))

    If (numero Mod 2 = 0) Then
        mensagem = "Numero é Par"
    Else
        mensagem = "Numero é Impar"
    End If
    MsgBox mensagem
End Sub

'Função (If And, ElseIf Or, Else), Compara em 2 Numeros se ha entre eles Par ou Impar

Sub OperLogicos()
'Função If And, ElseIf Or, Else, Compara em 2 numeros se ha entre eles par ou impar
Dim a        As Integer
Dim b        As Integer
Dim mensagem As String
a = Val(InputBox("Digite Valor do primeiro Numero: "))
b = Val(InputBox("Digite Valor do segundo Numero: "))

    If (a Mod 2 = 0) And (b Mod 2 = 0) Then
        mensagem = "Dois Valores Pares"
    ElseIf (a Mod 2 = 0) Or (b Mod 2 = 0) Then
        mensagem = "Um dos valores é par"
    Else
        mensagem = "Valor Impares"
    End If
    MsgBox mensagem
End Sub

Função (IIf), Verifica se Numero é Negativo ou Positivo

Sub testeiif()
'Função IIf, verifica se numero é negativo ou Positivo
    Dim numero   As Integer
    Dim mensagem As String
 
        numero = Val(InputBox("Digite o Valor"))
        mensagem = IIf(numero < 0, "Numero Negativo: ", "Numero Positivo: ")
        MsgBox mensagem & numero
End Sub

'Função (Select Case), Academia seleciona Categoria por faixa de idade

Sub procacadnatacaoCase()
'Função Select Case, Academia seleciona Categoria por faixa de idade
    Dim idade    As Integer
    Dim mensagem As String
     idade = Val(InputBox("Digite a Idade"))
   
    Select Case idade
        Case Is = 0
            mensagem = "Idade Incorreta"
        Case Is < 5
            mensagem = "Sem Categoria"
        Case Is < 8
            mensagem = "Infantil"
        Case Is < 11
            mensagem = "Infantil B"
        Case Is < 14
            mensagem = "Juvenil"
        Case Is < 18
            mensagem = "Juvenil B"
        Case Else
           mensagem = "Adulto"
    End Select
     
        MsgBox mensagem
End Sub

'Função (If ElseIf), Academia seleciona Categoria por faixa de idade

Sub procacadnatacao()
'Função If ElseIf, Academia seleciona Categoria por faixa de idade
    Dim idade    As Integer
    Dim mensagem As String
 
     idade = Val(InputBox("Digite a Idade"))
   
        If idade < 0 Then
            mensagem = "Idade Incorreta"
         
            ElseIf idade < 5 Then
            mensagem = "Sem Categoria"
         
            ElseIf idade < 8 Then
            mensagem = "Infantil"
         
            ElseIf idade < 11 Then
            mensagem = "Infantil B"
         
            ElseIf idade < 14 Then
            mensagem = "Juvenil"
         
            ElseIf idade < 18 Then
            mensagem = "Juvenil B"
            Else
           mensagem = "Adulto"
        End If
        MsgBox mensagem
 End Sub

'Funçao (Select Case) Verifica se é numero negativo, maior ou menor que 10

Sub proctesteIF2()
'funçao Select Case verifica se é numero negativo, maior ou menor que 10
    Dim numero      As Integer
    Dim mensagem    As String
 
    numero = Val(InputBox("Digite um Valor :"))
     
        Select Case numero
        Case Is < 0
            mensagem = "Numero Negativo"
        Case Is = 0
            mensagem = "Valor entrado foi Zero"
        Case Is <= 10
            mensagem = "Numero menor ou Igual a 10"
        Case Else
            mensagem = " Numero é Maior que 10"
        End Select
     
        MsgBox mensagem
         
End Sub

'Funçao (If ElseIf) Verifica se é numero negativo, maior ou menor que 10

Sub proctesteIF1()
'funçao if ElseIf verifica se é numero negativo, maior ou menor que 10
    Dim numero      As Integer
    Dim mensagem    As String
 
    numero = Val(InputBox("Digite um Valor : "))
     
        If numero < 0 Then
            mensagem = "Numero Negativo"
        ElseIf numero = 0 Then
            mensagem = "Valor entrado foi Zero"
        ElseIf numero <= 10 Then
            mensagem = "Numero menor ou Igual a 10"
        Else
            mensagem = " Numero é Maior que 10"
        End If
     
        MsgBox mensagem
         
End Sub

'Verifica se numero maior ou menor que 10 função "If then" "ElseIf then" "Else" "End If"

Sub proctesteIF()
'verifica se numero maior ou menor que 10 função "If then"  "ElseIf then" "Else" "End If"
Dim numero   As Integer
Dim mensagem As String

numero = Val(InputBox("Digite um Valor"))

    If numero > 10 Then
        mensagem = " numero maior que 10  "
    ElseIf numero = 10 Then
        mensagem = " numero igual a 10 "
    Else
        mensagem = " numero não é maior que 10 "
    End If
    MsgBox mensagem
End Sub

'Verifica se numero maior ou menor que 10 teste If Else End If

Sub proctestif()
'verifica se numero maior ou menor que 10 teste If Else End If
    Dim numero   As Integer
    Dim mensagem As String
 
        numero = Val(InputBox("Digite um Valor"))
     
            If numero > 10 Then
                mensagem = "Numero maior que 10 < " & numero
            Else
                mensagem = "Numero menor que 10 => " & numero
            End If
            MsgBox mensagem

End Sub

'Contagem regressiva apartir de 10 e imprimir fogo no final

Sub ContagemRegressiva()
'Contagem regressiva apartir de 10 e imprimir fogo no final
Dim num As Integer
Dim i As Integer
For i = 10 To 1 Step -1
MsgBox i
Next
MsgBox "FOGOOOO"
End Sub

'De 5 Numeros mostrar os Impares.

Sub De5EImpar()
' 5 numeros mostrar os impares.
Dim num As Integer
Dim i   As Integer

    For i = 1 To 5
     num = CInt(InputBox("Digite um numero"))
     If num Mod 2 = 1 Then
     MsgBox " Esses numero: " & num & " é Impar"
    End If
  Next
End Sub

' 10 numeros digitados selecionar o maior

Sub Maior10Digitado()
' 10 numeros digitados selecionar o maior
Dim num  As Integer
Dim maior As Integer
Dim i As Integer

    For i = 1 To 10
     num = CInt(InputBox("Digite um numero"))
        If (i = 1) Or (num > maior) Then
        maior = num
        End If
    Next
MsgBox "O Maior é : " & maior
End Sub

' Vai recebendo numero até Digitar "0", ' faz a media dos numeros Digitados

Sub PegaTonto()
' Vai recebendo numero até Digitar "0"
' faz a media dos numeros Digitados
Dim num  As Integer
Dim soma As Integer
Dim cont As Integer
Dim media As Double
num = 1
    Do Until num = 0
    num = Val(InputBox("Digite um Numero(0 para terminar)"))
    soma = soma + num
    cont = cont + 1
    Loop
 
cont = cont - 1 'para desconciderar 0 na contagem
 media = soma / cont
MsgBox " A media " & media

End Sub

'(Debug.Print) "Ctrl + G" ===> Mostra Janela imediata

Sub tabuada3()
'Faz a tabuada de um numero multiplicado de 1 ao 10
'Debug.Print Ctrl + G ===> Mostra Janela imediata
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To 10
    Debug.Print num & " X " & i & " = " & num * i
    Next
End Sub

(For Next) Faz a tabuada de um numero multiplicado de 1 ao 10

Sub tabuada2()
' Faz a tabuada de um numero multiplicado de 1 ao 10
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To 10
    MsgBox num & " X " & i & " = " & num * i
    Next
End Sub

' Contagem sequencial de 1 até N(valor digito)

Sub ContarNumero2()
'Faz contagem de 1 até o valor digitado
' contagem sequencial de 1 até n
' msgbox demonstra sequencia em uma janela
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To num
    MsgBox i
    Next

End Sub

'Debug.Print Ctrl + G ===> Mostra Janela imediata Faz contagem de 1 até o valor digitado

Sub ContarNumero()
'Debug.Print Ctrl + G ===> Mostra Janela imediata Faz contagem de 1 até o valor digitado
Dim num As Integer
Dim i   As Integer
num = CInt(InputBox("Digite um Numero"))

    For i = 1 To num
    Debug.Print i
    Next

End Sub

'Variação do Do While Loop vai somando numero digitados até atingir 40.

Sub DoUtil()
'Variação do Do While Loop vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer

 Do Until soma >= 40
    x = Val(InputBox("Digite um Numero"))
    soma = soma + x
  Loop
    MsgBox "Valor da Soma = " & soma
End Sub

'Variação do Do While Loop vai somando numero digitados até atingir 40.

Sub WhileWend()
'Variação do Do While Loop vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer
  While soma < 40
    x = Val(InputBox("Digite um Numero"))
    soma = soma + x
   Wend
    MsgBox "Valor da Soma = " & soma
End Sub

' função "locwhile loop" vai somando numero digitados até atingir 40.

Sub locWhile()
' função "locwhile loop" vai somando numero digitados até atingir 40.
Dim x As Integer
Dim soma As Integer

Do While soma < 40
    x = Val(InputBox("Digite um Numero"))
    soma = soma + x
    Loop
    MsgBox "Valor da Soma = " & soma
End Sub

'Exit For (sai fora do Laço FOR ao achar um multiplo de 5)

Sub laco_forExitfor()

'For Exit Sub (sai fora do Laço FOR ao achar um multiplo de 5)

    Dim i As Integer

    Dim num As Integer

    num = CInt(InputBox("Digite um Valor"))

    For i = 1 To 10

        MsgBox i * num

        If num Mod 5 = 0 Then Exit For

    Next

    MsgBox "Ola¨"

End Sub

'For Exit Sub (sai fora do Programa ao achar um multiplo de 5)

Sub laco_forExitSub()
'For Exit Sub (sai fora do Programa ao achar um multiplo de 5)
    Dim i As Integer
    Dim num As Integer
    num = CInt(InputBox("Digite um Valor"))
    For i = 1 To 10
        MsgBox i * num
        If num Mod 5 = 0 Then Exit Sub
    Next
    MsgBox "Ola¨"
End Sub

'Estrura FOR NEXT Verifica se os multiplos 0 a 10 de um numero quai são par ou impar.

Sub tabuada()
'Estrura FOR NEXT Verifica se os multiplos 0 a 10 de um numero quai são par ou impar
    Dim numero As Integer
    numero = CInt(InputBox("Digite o Numero Desejado"))
   
    Dim cont As Integer
    Dim mensagem As String
    Dim resultado As Integer
   
        If numero > 0 And numero < 10 Then
        For cont = 1 To 10
            resultado = numero * cont
            If resultado Mod 2 = 0 Then
            mensagem = mensagem & resultado & " É Par " & Chr(13)
            Else
            mensagem = mensagem & resultado & " É Impar" & Chr(13)
            End If
        Next
    MsgBox mensagem
        Else
            MsgBox " Numero não Aceito "
        End If
End Sub

'Verifica se o Numero é Multiplo de 3

Sub MultiploDe3()
'Verifica se o Numero é Multiplo de 3
Dim num As Integer
num = CInt(InputBox("Digite um Numero: "))
    If num Mod 3 = 0 Then
    MsgBox "É Multipo de 3 "
    Else
    MsgBox "Não é Multiplo de 3 "
    End If
End Sub

'Verifica se entre 5 Numeros se há Impar

Sub NumeroTenImpar()
'Verifica se entre 5 numeros se há impar
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer
Dim n4 As Integer
Dim n5 As Integer

n1 = CInt(InputBox("Digite o Primeiro Numero : "))
n2 = CInt(InputBox("Digite o Segundo Numero : "))
n3 = CInt(InputBox("Digite o terceiro Numero : "))
n4 = CInt(InputBox("Digite o Quarto Numero : "))
n5 = CInt(InputBox("Digite o Quinto Numero : "))

    If (n1 Mod 2 = 1) Or (n2 Mod 2 = 1) Or (n3 Mod 2 = 1) Or (n4 Mod 2 = 1) Or (n5 Mod 2 = 1) Then
    MsgBox "Tem impar"
    Else
    MsgBox "Todos são Pares"
    End If

End Sub

'Escolher de 3 numeros digitados e mostrar o maior. If, ElseIf ,Else ,End Else

Sub TresNumeroQualMaior()
'Escolher de 3 numeros digitados e mostrar o maior.
Dim n1 As Integer
Dim n2 As Integer
Dim n3 As Integer

n1 = CInt(InputBox("Digite o Primeiro Numero : "))
n2 = CInt(InputBox("Digite o Segundo Numero : "))
n3 = CInt(InputBox("Digite o Primeiro Numero : "))

    If n1 > n2 And n1 > n3 Then
    MsgBox n1 & " É o Maior"
    ElseIf n2 > n3 Then
    MsgBox n2 & " É o Maior"
    Else
    MsgBox n3 & " É o Maior"
    End If
End Sub

' Digite dois numero verificar qual é o maior deles.

Sub DoisNumeroQualMaior()
' Digite dois numero verificar qual é o maior deles.
Dim n1 As Integer
Dim n2 As Integer
    n1 = CInt(InputBox("Digite o Primeiro Numero : "))
    n2 = CInt(InputBox("Digite o Segundo Numero : "))
        If n1 < n2 Then
        MsgBox n2 & " É o Maior Valor"
        ElseIf n1 = n2 Then
        MsgBox n1 & " Valor Ingual  "
        Else
        MsgBox n1 & " É o Maior Valor "
        End If
End Sub

'Receber um Numero Pelo usuário dizer Par ou Impar Funçao (Mod 2 = 0)

Sub ParOuImpar()
'Receber um Numero Pelo usuário dizer Par ou Impar
Dim num As Integer
num = CInt(InputBox("Digite um Numero: "))
    If num Mod 2 = 0 Then
    MsgBox "É PAR"
    Else
    MsgBox "É IMPAR"
    End If
End Sub

"função or" comparar faixa de valor

Sub exemplo()
'"função or" comparar faixa de valor
    Dim x As Integer
    x = Val(InputBox("Entre com Valor de 1 até 30"))
        If (x < 1) Or (x > 30) Then
            MsgBox "Valor Invalido"
        End If
End Sub

Desconto Dado de Acordo com o Sexo Função IIf

Sub desconto()
' Desconto Dado de Acordo com o Sexo
Dim valor As Currency
Dim sexo As String
valor = Val(InputBox("Digite o Valor da Mercadora"))
sexo = InputBox("Digite M para Masculino ou F para Feminino")
Dim valorfinal As Currency

valorfinal = IIf(sexo = "F", valor * 0.9, valor * 0.92)

MsgBox "Valor com Desconto: " & valorfinal
End Sub

"Select Case" Calssificar por categoria de idade alunos de uma Academia

Sub AcademiaNatacao()
'"Select Case" Calssificar por categoria de idade alunos de uma Academia
    Dim idade As Integer
    Dim mensagem As String
       
        idade = Val(InputBox("Digite a Idade"))
       
        Select Case idade
            Case Is < 0
                MsgBox "Idade Invalida"
            Case Is < 5
               MsgBox "Sem Categotia"
            Case Is < 8
                MsgBox "Infantil"
            Case Is < 11
               MsgBox "Infantil B"
            Case Is < 14
                MsgBox "Juvenil"
            Case Is < 18
               MsgBox "Juvenil B"
            Case Else
                MsgBox "Adulto"
        End Select
End Sub

'Verifica se o numero é 0 , negativo ou positivo função Select Case

Sub exercAlternativo()
'Verifica se o numero é 0 , negativo ou positivo
Dim numero As Integer
numero = Val(InputBox("Digite o Valor"))
   
    Select Case numero
    Case Is < 0
        MsgBox " Numero Negativo "
    Case 0
        MsgBox " Valor é Zero "
    Case Else
        MsgBox " Valor Positivo"
    End Select

End Sub

'Cardapio com opções Select , Case, End Select

Sub pocSelec()
'Cardapio com opções Select Case End Select
    Dim opcao   As Integer              'para escolha
    Dim valor   As Currency             'preco pedido
    Dim pedido  As String               'o que pediu
   
    'mostra o cardapio na tela
    MsgBox "1)Café" + Chr(13) + "2)Almoço" + Chr(13) + "3)Jantar" + Chr(13) + "Escolha a Opçao na Proxima Tela"
   
    'espera a escolha do usuario
    ' Select Case
    opcao = InputBox("Digite a Opção: ")
   
    Select Case opcao
        Case 1
            pedido = "Cafe da Manha"
            valor = 5
        Case 2
            pedido = "Amoço"
            valor = 12
        Case 3
            pedido = "jantar"
            valor = 10
        Case Else
            pedido = "Olha Direito no Cardapio"
            valor = 0
    End Select
    MsgBox "Pedido Feito: " & pedido & Chr(13) & "Valor do Pedido R$ " & valor
End Sub

Calssificar por categoria de idade alunos de uma Academia

Sub proc3()
' Calssificar por categoria de idade alunos de uma Academia
    Dim idade As Integer
    Dim mensagem As String
   
        idade = Val(InputBox("Digite a Idade"))
       
            If idade < 0 Then
                mensagem = "Idade Invalida"
                ElseIf idade < 5 Then
                mensagem = "Sem Categotia"
                ElseIf idade < 8 Then
                mensagem = "Infantil"
                ElseIf idade < 11 Then
                mensagem = "Infantil B"
                ElseIf idade < 14 Then
                mensagem = "Juvenil"
                ElseIf idade < 18 Then
                mensagem = "Juvenil B"
           Else
           mensagem = "Adulto"
           End If
            MsgBox mensagem
End Sub

' Verifica se o Numero é 0 ou Positivo ou Negativo

 Sub proc2()
 ' verifica se o nmero é 0 ou positivo ou negativo
    Dim numero As Integer
    Dim mensagem As String
        numero = Val(InputBox("Digite um Valor"))

     If numero < 0 Then
         mensagem = "Numero é Negativo: " & numero
    ElseIf numero = 0 Then
        mensagem = "Numero Digitado é 0."
    Else
        mensagem = "numero e positivo: " & numero
    End If
        MsgBox mensagem
 End Sub

'Verifica se o numero é maior ou menor que 10

Sub proc1()
'Verifica se o numero é maior ou menor que 10
    Dim numero As Integer
    Dim mensagem As String
    numero = Val(InputBox(" Digite um numero"))
   
    If numero > 10 Then
        mensagem = "Numero maior que 10"
    Else
        mensagem = "Numero não e maior que 10"
    End If
    MsgBox mensagem
End Sub

(Concatenar "&") Juntar duas variaveis tipo string

Sub exemplo3()
' Juntar duas variaveis tipo string
    Dim nome As String
    Dim sobrenome As String
    nome = InputBox("Digite seu Nome")
    sobrenome = InputBox("Digite seu Sobrenome")
   
    ' Juntar sobrenome e depois o nome
    MsgBox sobrenome & " " & nome
    '(&) concatenar, juntar observe como é utilizado.
End Sub

Atribuir tipos de Variaveis corretas

Sub exemplo2()
'(Dimencionar) Atribuir tipos de variaveis corretas

    Rem Duas variaveis inteiras
    Dim x As Integer, y As Integer
   
    'variavel do tipo caracter ou string'
    Dim nome As String
   
    'variavel tipo data
    Dim data As Date
   
    'salario e financeiro
    Dim salario As Currency
   
    nome = InputBox("Digite seu Nome: ")
    data = InputBox("Data de nascimento dd/mm/aaaa : ")
    salario = InputBox("Digite seu Salário R$ ")
   
    MsgBox (nome & ", você nasceu em " & data & " seu salário atual é de R$ " & salario)
    ' (&) concatenar, juntar observe como é utilizado.
   
End Sub

Soma de 2 Valores

Sub exemplo1()
' soma de 2 Valores
    Dim valor As Long
    Dim valor2 As Long
    valor = InputBox("Digite um Valor")
    valor2 = InputBox("Digite outro Valor")
    Dim soma As Long
    soma = valor + valor2
    MsgBox soma
End Sub

nome "Ze Carioca" monstrar na tela

Sub ZeCarioca()
' nome "Ze Carioca" monstrar na tela
    Dim nome As String
    nome = "Ze Carioca"
    MsgBox UCase(nome)
End Sub

Video demonstrando aplicação em VBA Excel