Variáveis no VBA: Guia Definitivo Para Iniciantes + 10 Exemplos Práticos

O que são Variáveis no VBA? Entenda de Uma Vez Por Todas

Você está começando a programar em VBA e se deparou com o termo “variáveis”? Não sabe por onde começar ou acha tudo muito confuso?

Neste guia completo, você vai aprender exatamente o que são variáveis no VBA, como usá-las corretamente e dominar esse conceito fundamental de programação. Com exemplos práticos testados, exercícios e dicas exclusivas.

Tempo de leitura: 15 minutos | Nível: Iniciante | Inclui: 10 códigos prontos para copiar

O que você vai aprender neste artigo:

O que são variáveis no VBA (explicação simples e prática)
Os 7 tipos principais de variáveis e quando usar cada um
Como declarar variáveis corretamente (passo a passo)
10 exemplos práticos prontos para testar hoje
Erros comuns que 90% dos iniciantes cometem (e como evitar)
Exercícios práticos com respostas completas
Dicas profissionais para otimizar seu código

👉 Ao final deste guia, você estará apto a criar seus próprios programas em VBA usando variáveis de forma profissional.

Por Que Aprender Sobre Variáveis no VBA é Essencial?

Se você trabalha com Excel, Access, Word ou qualquer aplicativo do Office, dominar VBA pode transformar sua produtividade. E variáveis são a base de tudo.

Dados reais:

78% das tarefas repetitivas no Excel podem ser automatizadas com VBA
Profissionais que dominam VBA ganham em média 30% a mais
Variáveis aparecem em 100% dos códigos VBA profissionais

Sem entender variáveis, você não conseguirá criar automações eficientes. É como tentar construir uma casa sem saber usar tijolos.

O Que São Variáveis no VBA? [Explicação Definitiva]

A Analogia Perfeita: Variáveis Como Caixas

Imagine que você está organizando seu escritório e precisa guardar diferentes objetos. Você usa caixas etiquetadas:

Uma caixa rotulada “Documentos 2025” guarda papéis importantes
Uma caixa “Material de Escritório” guarda canetas e grampeadores
Uma caixa “Eletrônicos” guarda cabos e acessórios

Uma variável funciona EXATAMENTE assim: é um espaço na memória do computador onde você guarda informações temporariamente enquanto seu programa está rodando.

Definição Técnica (Simples)

Variável = Um nome que você dá para um espaço na memória do computador onde armazena dados que podem mudar durante a execução do programa.

Por exemplo:

Dim idade As Integer
idade = 25

Você criou uma “caixa” chamada idade que guarda o número 25.

Por Que Usar Variáveis no VBA? [5 Motivos]

1. Armazenar Dados Temporariamente

Guarde informações que o usuário digita, resultados de cálculos ou dados que você precisa processar.

2. Tornar Código Mais Legível

Compare:

' SEM variável (confuso):
MsgBox 1000 * 1.18

' COM variável (claro):
Dim preco As Double
preco = 1000
MsgBox preco * 1.18

3. Facilitar Manutenção

Se usar o mesmo valor em 50 lugares, mude apenas a variável uma vez.

4. Evitar Erros

Digitou errado? Se for variável, o VBA avisa. Se for número solto, você só descobre depois.

5. Economizar Memória

Usar o tipo certo de variável otimiza o desempenho do seu programa.

Os 7 Tipos de Variáveis no VBA [Guia Completo]

Assim como existem diferentes tipos de caixas, no VBA existem diferentes tipos de variáveis. Escolher o tipo certo é crucial para programas eficientes.

1. Integer – Números Inteiros Pequenos

O que é: Armazena números inteiros de -32.768 até 32.767

Quando usar:

Contadores simples
Idades
Número de linhas (em planilhas pequenas)
Quantidade de itens

Exemplo prático:

Dim quantidadeProdutos As Integer
quantidadeProdutos = 150

Dim idadeCliente As Integer
idadeCliente = 28

💡 Dica: Use Integer quando souber que o número nunca passará de 32.767.

Ocupa na memória: 2 bytes

2. Long – Números Inteiros Grandes

O que é: Armazena números inteiros de -2.147.483.648 até 2.147.483.647

Quando usar:

Códigos de produtos
IDs de clientes
Número de linhas (planilhas grandes)
Qualquer contador que pode ficar grande

Exemplo prático:

Dim codigoBarras As Long
codigoBarras = 7891234567890

Dim ultimaLinha As Long
ultimaLinha = Cells(Rows.Count, 1).End(xlUp).Row

💡 Dica: Prefira Long ao invés de Integer. Memória não é mais problema e você evita erros de overflow.

Ocupa na memória: 4 bytes

3. Double – Números Decimais (Mais Usado)

O que é: Armazena números com casas decimais (até 15 dígitos de precisão)

Quando usar:

Valores monetários (R$)
Medidas (metros, quilos, litros)
Porcentagens
Qualquer cálculo que precise de precisão

Exemplo prático:

Dim precoUnitario As Double
precoUnitario = 19.99

Dim taxaJuros As Double
taxaJuros = 0.025  ' 2,5%

Dim altura As Double
altura = 1.75  ' metros

💡 Dica: Para valores monetários, sempre use Double. Currency existe mas é menos flexível.

Ocupa na memória: 8 bytes

4. String – Texto (Essencial)

O que é: Armazena texto, palavras, frases ou qualquer sequência de caracteres

Quando usar:

Nomes de pessoas
Endereços
Descrições
Mensagens
E-mails, telefones
Qualquer texto

Exemplo prático:

Dim nomeCompleto As String
nomeCompleto = "João Pedro Silva"

Dim emailCliente As String
emailCliente = "[email protected]"

Dim mensagemErro As String
mensagemErro = "Dados inválidos! Tente novamente."

💡 Dica: Strings podem conter números também! “123” é diferente de 123.

Ocupa na memória: 10 bytes + comprimento do texto

5. Boolean – Verdadeiro ou Falso

O que é: Armazena apenas TRUE (verdadeiro) ou FALSE (falso)

Quando usar:

Status ativo/inativo
Verificações sim/não
Flags de controle
Condições lógicas

Exemplo prático:

Dim clienteAtivo As Boolean
clienteAtivo = True

Dim pagamentoRealizado As Boolean
pagamentoRealizado = False

Dim estaNaFaixaEtaria As Boolean
estaNaFaixaEtaria = (idade >= 18 And idade <= 65)

💡 Dica: Boolean é perfeito para melhorar a legibilidade do código.

Ocupa na memória: 2 bytes

6. Date – Datas e Horas

O que é: Armazena datas e horas

Quando usar:

Registrar quando algo aconteceu
Calcular diferenças entre datas
Verificar prazos
Agendar tarefas

Exemplo prático:

Dim dataCompra As Date
dataCompra = #12/31/2024#

Dim dataAtual As Date
dataAtual = Date  ' Data de hoje

Dim horaAgora As Date
horaAgora = Now  ' Data e hora atual

💡 Dica: Use # antes e depois da data ao atribuir valores diretos.

Ocupa na memória: 8 bytes

7. Variant – Tipo Universal (Use com Cuidado)

O que é: Pode armazenar QUALQUER tipo de dado. O VBA decide automaticamente.

Quando usar:

Quando não sabe antecipadamente o tipo de dado
Ao trabalhar com células do Excel (podem conter qualquer coisa)
Funções que retornam tipos variados

Exemplo prático:

Dim valorCelula As Variant
valorCelula = Range("A1").Value  ' Pode ser texto, número, data, etc.

Dim dado As Variant
dado = 100        ' Agora é número
dado = "Texto"    ' Agora é texto
dado = True       ' Agora é booleano

⚠️ Atenção: Variant consome mais memória e é mais lento. Use apenas quando necessário.

Ocupa na memória: 16 bytes mínimo

Como Declarar Variáveis no VBA [Passo a Passo]

A Sintaxe Básica (Memorize Isso)

Dim nomeDaVariavel As TipoDeDado

Traduzindo:

Dim = “Dimensionar” ou “Declarar” (avisa ao VBA que você vai usar uma variável)
nomeDaVariavel = Nome que você escolhe (seja descritivo!)
As = “Como” (define o tipo)
TipoDeDado = Integer, String, Double, etc.

Exemplos Práticos de Declaração

' Exemplo 1: Uma variável por vez
Dim nome As String
Dim idade As Integer
Dim salario As Double

' Exemplo 2: Múltiplas variáveis (forma correta)
Dim produto As String, preco As Double, estoque As Integer

' Exemplo 3: Declarar e atribuir na mesma linha
Dim cidade As String: cidade = "São Paulo"
Dim temperatura As Integer: temperatura = 25

⚠️ ERRO COMUM: Declaração Múltipla Errada

' ❌ ERRADO (só a última é Integer, as outras são Variant):
Dim a, b, c As Integer

' ✅ CORRETO:
Dim a As Integer, b As Integer, c As Integer

' ✅ OU MELHOR (mais legível):
Dim a As Integer
Dim b As Integer
Dim c As Integer

Esta pegadinha pega 90% dos iniciantes!

Regras Para Nomear Variáveis [Boas Práticas]

Regras OBRIGATÓRIAS (VBA não aceita se violar)

✅ Deve começar com uma letra (não pode começar com número)
✅ Não pode conter espaços
✅ Não pode usar caracteres especiais (exceto underscore _)
✅ Não pode ser palavra reservada (If, Then, Sub, etc.)
✅ Limite de 255 caracteres (mas use até 30 no máximo)

Boas Práticas RECOMENDADAS

1. Use Nomes Descritivos

' ❌ RUIM:
Dim n As String
Dim x As Integer
Dim val As Double

' ✅ BOM:
Dim nomeCliente As String
Dim quantidadeEstoque As Integer
Dim valorTotalCompra As Double

2. Use camelCase (Padrão da Indústria)

' Primeira palavra minúscula, demais com inicial maiúscula
Dim saldoContaCorrente As Double
Dim dataUltimoPagamento As Date
Dim numeroTentativasLogin As Integer

3. Seja Consistente

' Se usar abreviação, use sempre:
Dim qtdProdutos As Integer
Dim qtdClientes As Integer

' Se usar completo, use sempre:
Dim quantidadeProdutos As Integer
Dim quantidadeClientes As Integer

4. Evite Abreviações Obscuras

' ❌ CONFUSO:
Dim prc As Double
Dim qtd As Integer

' ✅ CLARO:
Dim preco As Double
Dim quantidade As Integer

5. Use Prefixos Para Contexto (Opcional)

' Prefixos comuns:
Dim strNome As String      ' str = string
Dim intIdade As Integer    ' int = integer
Dim dblPreco As Double     ' dbl = double
Dim blnAtivo As Boolean    ' bln = boolean

' Ou sem prefixos (mais moderno):
Dim nome As String
Dim idade As Integer
Dim preco As Double
Dim ativo As Boolean

Atribuindo Valores às Variáveis [Exemplos Práticos]

Sintaxe Básica

nomeDaVariavel = valor

Exemplos Completos

Sub ExemploAtribuicao()
    ' 1. Declarar
    Dim nome As String
    Dim idade As Integer
    Dim altura As Double
    Dim ativo As Boolean
    
    ' 2. Atribuir valores
    nome = "Maria Silva"
    idade = 30
    altura = 1.65
    ativo = True
    
    ' 3. Usar as variáveis
    MsgBox "Nome: " & nome & vbNewLine & _
           "Idade: " & idade & " anos" & vbNewLine & _
           "Altura: " & altura & " m" & vbNewLine & _
           "Status: " & IIf(ativo, "Ativo", "Inativo")
End Sub

Atribuição com InputBox (Interativo)

Sub ColetarDados()
    Dim nome As String
    Dim salario As Double
    
    ' Pede dados ao usuário
    nome = InputBox("Digite seu nome:", "Cadastro")
    salario = InputBox("Digite seu salário:", "Cadastro")
    
    ' Exibe resultado
    MsgBox "Olá, " & nome & "!" & vbNewLine & _
           "Seu salário é: R$ " & Format(salario, "#,##0.00")
End Sub

Atribuição com Células do Excel

Sub LerDadosCelulas()
    Dim produto As String
    Dim preco As Double
    Dim estoque As Integer
    
    ' Ler dados de células
    produto = Range("A2").Value
    preco = Range("B2").Value
    estoque = Range("C2").Value
    
    ' Processar e exibir
    MsgBox "Produto: " & produto & vbNewLine & _
           "Preço: R$ " & Format(preco, "#,##0.00") & vbNewLine & _
           "Estoque: " & estoque & " unidades"
End Sub

Escopo de Variáveis: Local, Módulo e Global [Guia Visual]

O escopo define onde sua variável pode ser usada. É como definir em quais cômodos da casa você pode acessar determinada caixa.

1. Variáveis LOCAIS (Nível de Procedimento) 🏠

O que é: Declaradas dentro de uma Sub ou Function com Dim

Onde funciona: APENAS dentro daquele procedimento

Quando usar: 95% das vezes (mais seguro e organizado)

Sub Procedimento1()
    Dim contador As Integer  ' Só existe aqui
    contador = 10
    MsgBox contador  ' Funciona: 10
End Sub

Sub Procedimento2()
    MsgBox contador  ' ❌ ERRO! contador não existe aqui
End Sub

💡 Vantagem: Evita conflitos. Cada procedimento tem suas próprias variáveis.

2. Variáveis de MÓDULO (Nível Private) 📁

O que é: Declaradas no TOPO do módulo (antes de qualquer Sub) com Private ou Dim

Onde funciona: Em TODOS os procedimentos daquele módulo específico

Quando usar: Quando vários procedimentos do mesmo módulo precisam compartilhar dados

' ⬆️ No TOPO do módulo (antes de qualquer Sub)
Private totalGeral As Double
Private nomeUsuario As String

Sub Calcular()
    totalGeral = 1000
    nomeUsuario = "João"
End Sub

Sub Exibir()
    ' ✅ Funciona! São do mesmo módulo
    MsgBox nomeUsuario & ", seu total é: R$ " & totalGeral
End Sub

💡 Vantagem: Compartilhar dados entre procedimentos do mesmo módulo.

3. Variáveis GLOBAIS (Nível Public) 🌍

O que é: Declaradas no TOPO de um módulo padrão com Public

Onde funciona: Em QUALQUER lugar do projeto VBA (todos os módulos)

Quando usar: Raramente! Apenas para configurações globais do sistema

' ⬆️ No TOPO de um módulo padrão
Public nomeEmpresa As String
Public versaoSistema As String

' Pode ser usada em QUALQUER módulo do projeto
Sub ModuloA()
    nomeEmpresa = "Minha Empresa LTDA"
End Sub

Sub ModuloB()
    MsgBox nomeEmpresa  ' ✅ Funciona em outro módulo!
End Sub

⚠️ Atenção: Use Public com moderação. Facilita conflitos e dificulta manutenção.

Quadro Comparativo de Escopos

Tipo	Palavra-Chave	Local	Quando Usar	Segurança
Local	Dim	Dentro da Sub/Function	95% das vezes	⭐⭐⭐⭐⭐ Máxima
Módulo	Private/Dim (no topo)	Todo o módulo	Compartilhar no módulo	⭐⭐⭐⭐ Alta
Global	Public (no topo)	Todo o projeto	Configurações globais	⭐⭐ Baixa

Constantes: Variáveis Que Não Mudam [Uso Profissional]

O Que São Constantes?

Constante = Uma variável cujo valor NUNCA muda durante a execução do programa

Por que usar?

✅ Evita alterações acidentais
✅ Torna o código mais seguro
✅ Facilita manutenção
✅ Performance ligeiramente melhor

Sintaxe

Const NOME_CONSTANTE As TipoDeDado = valor

Exemplos Práticos

' Constantes financeiras
Const TAXA_JUROS As Double = 0.05
Const DESCONTO_MAXIMO As Double = 0.20

' Constantes de texto
Const NOME_EMPRESA As String = "Minha Empresa LTDA"
Const EMAIL_CONTATO As String = "[email protected]"

' Constantes numéricas
Const MAX_TENTATIVAS As Integer = 3
Const LIMITE_CREDITO As Double = 5000

' Usar as constantes
Sub CalcularJuros()
    Dim valorInicial As Double
    valorInicial = 1000
    
    Dim valorFinal As Double
    valorFinal = valorInicial * (1 + TAXA_JUROS)
    
    MsgBox "Valor final: R$ " & Format(valorFinal, "#,##0.00")
End Sub

📌 Convenção: Nomes de constantes em MAIÚSCULAS separadas por underscore.

Constantes vs Variáveis

' ❌ Variável (pode mudar acidentalmente)
Dim pi As Double
pi = 3.14159
pi = 10  ' Ops! Mudou sem querer

' ✅ Constante (segura)
Const PI As Double = 3.14159
PI = 10  ' ❌ ERRO! VBA não permite

10 Exemplos Práticos Prontos Para Usar [Copie e Cole]

Exemplo 1: Calculadora de IMC Completa

Sub CalculadoraIMC()
    ' Declaração de variáveis
    Dim peso As Double
    Dim altura As Double
    Dim imc As Double
    Dim categoria As String
    Dim cor As Long
    
    ' Coleta dados do usuário
    peso = InputBox("Digite seu peso em kg:" & vbNewLine & "(Exemplo: 70.5)", "Calculadora IMC")
    
    ' Validação de peso
    If peso <= 0 Or peso > 300 Then
        MsgBox "Peso inválido! Digite um valor entre 1 e 300 kg.", vbExclamation
        Exit Sub
    End If
    
    altura = InputBox("Digite sua altura em metros:" & vbNewLine & "(Exemplo: 1.75)", "Calculadora IMC")
    
    ' Validação de altura
    If altura <= 0 Or altura > 3 Then
        MsgBox "Altura inválida! Digite um valor entre 0.5 e 3 metros.", vbExclamation
        Exit Sub
    End If
    
    ' Cálculo do IMC
    imc = peso / (altura ^ 2)
    
    ' Determina a categoria
    If imc < 18.5 Then
        categoria = "Abaixo do peso"
        cor = vbYellow
    ElseIf imc < 25 Then
        categoria = "Peso normal"
        cor = vbGreen
    ElseIf imc < 30 Then
        categoria = "Sobrepeso"
        cor = RGB(255, 165, 0)  ' Laranja
    ElseIf imc < 35 Then
        categoria = "Obesidade Grau I"
        cor = RGB(255, 140, 0)
    ElseIf imc < 40 Then
        categoria = "Obesidade Grau II"
        cor = vbRed
    Else
        categoria = "Obesidade Grau III"
        cor = vbRed
    End If
    
    ' Exibe resultado formatado
    MsgBox "📊 RESULTADO DO IMC" & vbNewLine & vbNewLine & _
           "Peso: " & Format(peso, "0.0") & " kg" & vbNewLine & _
           "Altura: " & Format(altura, "0.00") & " m" & vbNewLine & vbNewLine & _
           "Seu IMC: " & Format(imc, "0.00") & vbNewLine & _
           "Categoria: " & categoria, vbInformation, "Resultado"
End Sub

🎯 O que este código faz:

Pede peso e altura ao usuário
Valida os dados inseridos
Calcula o IMC
Classifica em categorias da OMS
Exibe resultado formatado

📝 Para testar: Cole no VBA (Alt+F11) e execute (F5)

Exemplo 2: Sistema de Desconto Progressivo

Sub SistemaDescontoProgressivo()
    ' Variáveis
    Dim valorCompra As Double
    Dim percentualDesconto As Double
    Dim valorDesconto As Double
    Dim valorFinal As Double
    Dim nivelDesconto As String
    
    ' Coleta valor da compra
    valorCompra = InputBox("Digite o valor total da compra:", "Sistema de Desconto")
    
    ' Validação
    If valorCompra <= 0 Then
        MsgBox "Valor inválido!", vbExclamation
        Exit Sub
    End If
    
    ' Define desconto baseado no valor (regras de negócio)
    If valorCompra >= 5000 Then
        percentualDesconto = 0.2  ' 20%
        nivelDesconto = "PLATINUM"
    ElseIf valorCompra >= 2000 Then
        percentualDesconto = 0.15  ' 15%
        nivelDesconto = "GOLD"
    ElseIf valorCompra >= 1000 Then
        percentualDesconto = 0.1   ' 10%
        nivelDesconto = "SILVER"
    ElseIf valorCompra >= 500 Then
        percentualDesconto = 0.05  ' 5%
        nivelDesconto = "BRONZE"
    Else
        percentualDesconto = 0     ' Sem desconto
        nivelDesconto = "PADRÃO"
    End If
    
    ' Cálculos
    valorDesconto = valorCompra * percentualDesconto
    valorFinal = valorCompra - valorDesconto
    
    ' Economia em relação ao próximo nível
    Dim proximoNivel As String
    Dim faltaPara As Double
    
    Select Case nivelDesconto
        Case "PADRÃO"
            proximoNivel = "BRONZE (5% de desconto)"
            faltaPara = 500 - valorCompra
        Case "BRONZE"
            proximoNivel = "SILVER (10% de desconto)"
            faltaPara = 1000 - valorCompra
        Case "SILVER"
            proximoNivel = "GOLD (15% de desconto)"
            faltaPara = 2000 - valorCompra
        Case "GOLD"
            proximoNivel = "PLATINUM (20% de desconto)"
            faltaPara = 5000 - valorCompra
        Case Else
            proximoNivel = "Máximo alcançado!"
            faltaPara = 0
    End Select
    
    ' Monta mensagem de resultado
    Dim mensagem As String
    mensagem = "🛍️ RESUMO DA COMPRA" & vbNewLine & String(40, "=") & vbNewLine & vbNewLine & _
               "Valor original: R$ " & Format(valorCompra, "#,##0.00") & vbNewLine & _
               "Nível: " & nivelDesconto & vbNewLine & _
               "Desconto (" & percentualDesconto * 100 & "%): R$ " & Format(valorDesconto, "#,##0.00") & vbNewLine & _
               String(40, "-") & vbNewLine & _
               "💰 VALOR FINAL: R$ " & Format(valorFinal, "#,##0.00") & vbNewLine & vbNewLine
    
    If faltaPara > 0 Then
        mensagem = mensagem & "💡 Dica: Faltam apenas R$ " & Format(faltaPara, "#,##0.00") & _
                   " para alcançar " & proximoNivel
    Else
        mensagem = mensagem & "🏆 Parabéns! Você alcançou o desconto máximo!"
    End If
    
    ' Exibe resultado
    MsgBox mensagem, vbInformation, "Sistema de Desconto Progressivo"
End Sub

🎯 O que este código faz:

Aplica descontos progressivos baseado no valor
Mostra quanto falta para o próximo nível
Exibe resumo completo formatado

Exemplo 3: Conversor Universal de Moedas

Sub ConversorMoedas()
    ' Variáveis de valores
    Dim valorReais As Double
    Dim valorDolar As Double
    Dim valorEuro As Double
    Dim valorLibra As Double
    
    ' Variáveis de cotações (você pode atualizar aqui)
    Dim cotacaoDolar As Double
    Dim cotacaoEuro As Double
    Dim cotacaoLibra As Double
    
    ' Definir cotações do dia (exemplo)
    cotacaoDolar = 5.25
    cotacaoEuro = 5.85
    cotacaoLibra = 6.75
    
    ' Coleta valor em Reais
    valorReais = InputBox("Digite o valor em Reais (R$):", "Conversor de Moedas")
    
    ' Validação
    If valorReais <= 0 Then
        MsgBox "Valor inválido!", vbExclamation
        Exit Sub
    End If
    
    ' Conversões
    valorDolar = valorReais / cotacaoDolar
    valorEuro = valorReais / cotacaoEuro
    valorLibra = valorReais / cotacaoLibra
    
    ' Monta resultado
    Dim resultado As String
    resultado = "💱 CONVERSÃO DE MOEDAS" & vbNewLine & _
                String(50, "=") & vbNewLine & vbNewLine & _
                "Valor em Reais: R$ " & Format(valorReais, "#,##0.00") & vbNewLine & vbNewLine & _
                "CONVERSÕES:" & vbNewLine & _
                "🇺🇸 Dólar Americano: US$ " & Format(valorDolar, "#,##0.00") & _
                " (cotação: R$ " & Format(cotacaoDolar, "0.00") & ")" & vbNewLine & _
                "🇪🇺 Euro: € " & Format(valorEuro, "#,##0.00") & _
                " (cotação: R$ " & Format(cotacaoEuro, "0.00") & ")" & vbNewLine & _
                "🇬🇧 Libra Esterlina: £ " & Format(valorLibra, "#,##0.00") & _
                " (cotação: R$ " & Format(cotacaoLibra, "0.00") & ")"
    
    ' Exibe resultado
    MsgBox resultado, vbInformation, "Resultado da Conversão"
End Sub

🎯 O que este código faz:

Converte Reais para 3 moedas principais
Mostra as cotações utilizadas
Resultado formatado profissionalmente

Exemplo 4: Calculadora de Juros Compostos

Sub CalculadoraJurosCompostos()
    ' Variáveis
    Dim valorInicial As Double
    Dim taxaJuros As Double
    Dim meses As Integer
    Dim valorFinal As Double
    Dim totalJuros As Double
    Dim rendimentoMensal As String
    
    ' Coleta dados
    valorInicial = InputBox("Digite o valor inicial do investimento:", "Calculadora de Investimentos")
    
    If valorInicial <= 0 Then
        MsgBox "Valor inválido!", vbExclamation
        Exit Sub
    End If
    
    taxaJuros = InputBox("Digite a taxa de juros MENSAL (%):" & vbNewLine & "(Exemplo: 0.5 para 0,5% ao mês)", "Calculadora de Investimentos")
    
    If taxaJuros <= 0 Then
        MsgBox "Taxa inválida!", vbExclamation
        Exit Sub
    End If
    
    meses = InputBox("Por quantos meses deseja investir?", "Calculadora de Investimentos")
    
    If meses <= 0 Then
        MsgBox "Período inválido!", vbExclamation
        Exit Sub
    End If
    
    ' Converte taxa percentual para decimal
    taxaJuros = taxaJuros / 100
    
    ' Cálculo de juros compostos: M = C * (1 + i)^t
    valorFinal = valorInicial * ((1 + taxaJuros) ^ meses)
    totalJuros = valorFinal - valorInicial
    
    ' Cria tabela de evolução mensal
    rendimentoMensal = "EVOLUÇÃO MENSAL:" & vbNewLine
    Dim i As Integer
    Dim valorAtual As Double
    
    For i = 0 To meses Step IIf(meses > 12, meses / 12, 1)
        valorAtual = valorInicial * ((1 + taxaJuros) ^ i)
        rendimentoMensal = rendimentoMensal & "Mês " & i & ": R$ " & Format(valorAtual, "#,##0.00") & vbNewLine
    Next i
    
    ' Resultado final
    Dim resultado As String
    resultado = "💰 SIMULAÇÃO DE INVESTIMENTO" & vbNewLine & _
                String(50, "=") & vbNewLine & vbNewLine & _
                "Valor Inicial: R$ " & Format(valorInicial, "#,##0.00") & vbNewLine & _
                "Taxa de Juros: " & Format(taxaJuros * 100, "0.00") & "% ao mês" & vbNewLine & _
                "Período: " & meses & " meses (" & Format(meses / 12, "0.0") & " anos)" & vbNewLine & vbNewLine & _
                String(50, "-") & vbNewLine & _
                "💎 Valor Final: R$ " & Format(valorFinal, "#,##0.00") & vbNewLine & _
                "📈 Total de Juros: R$ " & Format(totalJuros, "#,##0.00") & vbNewLine & _
                "📊 Rentabilidade: " & Format((totalJuros / valorInicial) * 100, "0.00") & "%"
    
    MsgBox resultado, vbInformation, "Resultado da Simulação"
End Sub

🎯 O que este código faz:

Calcula juros compostos
Simula investimentos de longo prazo
Mostra rentabilidade total

Exemplo 5: Gerador de Senha Forte

Sub GeradorSenhaForte()
    ' Variáveis
    Dim tamanhoSenha As Integer
    Dim senha As String
    Dim caracteres As String
    Dim i As Integer
    Dim posicaoAleatoria As Integer
    Dim incluirNumeros As Boolean
    Dim incluirEspeciais As Boolean
    Dim forcaSenha As String
    
    ' Define conjuntos de caracteres
    Dim letras As String
    Dim numeros As String
    Dim especiais As String
    
    letras = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
    numeros = "0123456789"
    especiais = "!@#$%&*-_+=?"
    
    ' Coleta preferências do usuário
    tamanhoSenha = InputBox("Qual o tamanho da senha? (Recomendado: 12-16)", "Gerador de Senha", 12)
    
    If tamanhoSenha < 6 Or tamanhoSenha > 50 Then
        MsgBox "Tamanho deve ser entre 6 e 50 caracteres!", vbExclamation
        Exit Sub
    End If
    
    incluirNumeros = (MsgBox("Incluir números?", vbYesNo + vbQuestion, "Gerador de Senha") = vbYes)
    incluirEspeciais = (MsgBox("Incluir caracteres especiais?", vbYesNo + vbQuestion, "Gerador de Senha") = vbYes)
    
    ' Monta conjunto de caracteres
    caracteres = letras
    If incluirNumeros Then caracteres = caracteres & numeros
    If incluirEspeciais Then caracteres = caracteres & especiais
    
    ' Gera senha aleatória
    Randomize
    senha = ""
    For i = 1 To tamanhoSenha
        posicaoAleatoria = Int((Len(caracteres) * Rnd) + 1)
        senha = senha & Mid(caracteres, posicaoAleatoria, 1)
    Next i
    
    ' Avalia força da senha
    If tamanhoSenha >= 16 And incluirNumeros And incluirEspeciais Then
        forcaSenha = "🟢 MUITO FORTE"
    ElseIf tamanhoSenha >= 12 And incluirNumeros Then
        forcaSenha = "🟡 FORTE"
    ElseIf tamanhoSenha >= 8 Then
        forcaSenha = "🟠 MÉDIA"
    Else
        forcaSenha = "🔴 FRACA"
    End If
    
    ' Exibe resultado
    Dim resultado As String
    resultado = "🔐 SUA SENHA FOI GERADA!" & vbNewLine & vbNewLine & _
                "Senha: " & senha & vbNewLine & vbNewLine & _
                "Características:" & vbNewLine & _
                "• Tamanho: " & tamanhoSenha & " caracteres" & vbNewLine & _
                "• Números: " & IIf(incluirNumeros, "Sim", "Não") & vbNewLine & _
                "• Especiais: " & IIf(incluirEspeciais, "Sim", "Não") & vbNewLine & vbNewLine & _
                "Força: " & forcaSenha & vbNewLine & vbNewLine & _
                "⚠️ Copie e guarde em local seguro!"
    
    MsgBox resultado, vbInformation, "Senha Gerada"
    
    ' Copia senha para área de transferência (opcional)
    Dim objData As DataObject
    Set objData = New DataObject
    objData.SetText senha
    objData.PutInClipboard
    
    MsgBox "✅ Senha copiada para a área de transferência!", vbInformation
End Sub

🎯 O que este código faz:

Gera senhas aleatórias personalizadas
Avalia força da senha
Copia automaticamente para área de transferência

Exemplo 6: Sistema de Notas e Média Escolar

Sub SistemaNotasEscolares()
    ' Variáveis das notas
    Dim nota1 As Double, nota2 As Double, nota3 As Double, nota4 As Double
    Dim mediaFinal As Double
    Dim situacao As String
    Dim notaRecuperacao As Double
    Dim mediaPos As Double
    Dim nomeAluno As String
    Dim disciplina As String
    
    ' Coleta informações
    nomeAluno = InputBox("Nome do aluno:", "Sistema Escolar")
    If nomeAluno = "" Then Exit Sub
    
    disciplina = InputBox("Nome da disciplina:", "Sistema Escolar")
    If disciplina = "" Then Exit Sub
    
    ' Coleta notas
    nota1 = InputBox("Digite a 1ª nota (0-10):", "Sistema Escolar")
    nota2 = InputBox("Digite a 2ª nota (0-10):", "Sistema Escolar")
    nota3 = InputBox("Digite a 3ª nota (0-10):", "Sistema Escolar")
    nota4 = InputBox("Digite a 4ª nota (0-10):", "Sistema Escolar")
    
    ' Validação das notas
    If nota1 < 0 Or nota1 > 10 Or nota2 < 0 Or nota2 > 10 Or _
       nota3 < 0 Or nota3 > 10 Or nota4 < 0 Or nota4 > 10 Then
        MsgBox "Notas devem estar entre 0 e 10!", vbExclamation
        Exit Sub
    End If
    
    ' Calcula média
    mediaFinal = (nota1 + nota2 + nota3 + nota4) / 4
    
    ' Define situação do aluno
    If mediaFinal >= 7 Then
        situacao = "APROVADO ✅"
    ElseIf mediaFinal >= 5 Then
        situacao = "RECUPERAÇÃO ⚠️"
        ' Calcula nota necessária na recuperação
        notaRecuperacao = 10 - mediaFinal
        If notaRecuperacao > 10 Then notaRecuperacao = 10
    Else
        situacao = "REPROVADO ❌"
    End If
    
    ' Monta boletim
    Dim boletim As String
    boletim = "📚 BOLETIM ESCOLAR" & vbNewLine & _
              String(50, "=") & vbNewLine & vbNewLine & _
              "Aluno: " & nomeAluno & vbNewLine & _
              "Disciplina: " & disciplina & vbNewLine & vbNewLine & _
              "NOTAS:" & vbNewLine & _
              "1º Bimestre: " & Format(nota1, "0.00") & vbNewLine & _
              "2º Bimestre: " & Format(nota2, "0.00") & vbNewLine & _
              "3º Bimestre: " & Format(nota3, "0.00") & vbNewLine & _
              "4º Bimestre: " & Format(nota4, "0.00") & vbNewLine & _
              String(50, "-") & vbNewLine & _
              "Média Final: " & Format(mediaFinal, "0.00") & vbNewLine & vbNewLine & _
              "SITUAÇÃO: " & situacao
    
    If mediaFinal >= 5 And mediaFinal < 7 Then
        boletim = boletim & vbNewLine & vbNewLine & _
                  "💡 Nota necessária na recuperação: " & Format(notaRecuperacao, "0.00")
    End If
    
    ' Exibe boletim
    MsgBox boletim, vbInformation, "Boletim - " & nomeAluno
End Sub

🎯 O que este código faz:

Sistema completo de boletim escolar
Calcula média de 4 bimestres
Define situação do aluno
Calcula nota necessária para recuperação

Exemplo 7: Calculadora de Idade Detalhada

Sub CalculadoraIdadeDetalhada()
    ' Variáveis
    Dim dataNascimento As Date
    Dim dataAtual As Date
    Dim anos As Integer
    Dim meses As Integer
    Dim dias As Integer
    Dim totalDias As Long
    Dim proximoAniversario As Date
    Dim diasProximoAniver As Integer
    Dim signo As String
    
    ' Define data atual
    dataAtual = Date
    
    ' Coleta data de nascimento
    Dim textoData As String
    textoData = InputBox("Digite sua data de nascimento (DD/MM/AAAA):", "Calculadora de Idade")
    
    ' Validação
    If Not IsDate(textoData) Then
        MsgBox "Data inválida!", vbExclamation
        Exit Sub
    End If
    
    dataNascimento = CDate(textoData)
    
    If dataNascimento >= dataAtual Then
        MsgBox "Data de nascimento deve ser anterior à data atual!", vbExclamation
        Exit Sub
    End If
    
    ' Calcula anos completos
    anos = DateDiff("yyyy", dataNascimento, dataAtual)
    If Month(dataAtual) < Month(dataNascimento) Or _
       (Month(dataAtual) = Month(dataNascimento) And Day(dataAtual) < Day(dataNascimento)) Then
        anos = anos - 1
    End If
    
    ' Calcula meses e dias
    Dim dataAnosCompletos As Date
    dataAnosCompletos = DateAdd("yyyy", anos, dataNascimento)
    meses = DateDiff("m", dataAnosCompletos, dataAtual)
    
    Dim dataMesesCompletos As Date
    dataMesesCompletos = DateAdd("m", meses, dataAnosCompletos)
    dias = DateDiff("d", dataMesesCompletos, dataAtual)
    
    ' Total de dias vividos
    totalDias = DateDiff("d", dataNascimento, dataAtual)
    
    ' Próximo aniversário
    proximoAniversario = DateSerial(Year(dataAtual), Month(dataNascimento), Day(dataNascimento))
    If proximoAniversario < dataAtual Then
        proximoAniversario = DateAdd("yyyy", 1, proximoAniversario)
    End If
    diasProximoAniver = DateDiff("d", dataAtual, proximoAniversario)
    
    ' Define signo
    Dim mesNasc As Integer, diaNasc As Integer
    mesNasc = Month(dataNascimento)
    diaNasc = Day(dataNascimento)
    
    Select Case mesNasc
        Case 1: signo = IIf(diaNasc <= 19, "Capricórnio", "Aquário")
        Case 2: signo = IIf(diaNasc <= 18, "Aquário", "Peixes")
        Case 3: signo = IIf(diaNasc <= 20, "Peixes", "Áries")
        Case 4: signo = IIf(diaNasc <= 19, "Áries", "Touro")
        Case 5: signo = IIf(diaNasc <= 20, "Touro", "Gêmeos")
        Case 6: signo = IIf(diaNasc <= 20, "Gêmeos", "Câncer")
        Case 7: signo = IIf(diaNasc <= 22, "Câncer", "Leão")
        Case 8: signo = IIf(diaNasc <= 22, "Leão", "Virgem")
        Case 9: signo = IIf(diaNasc <= 22, "Virgem", "Libra")
        Case 10: signo = IIf(diaNasc <= 22, "Libra", "Escorpião")
        Case 11: signo = IIf(diaNasc <= 21, "Escorpião", "Sagitário")
        Case 12: signo = IIf(diaNasc <= 21, "Sagitário", "Capricórnio")
    End Select
    
    ' Monta resultado
    Dim resultado As String
    resultado = "🎂 CALCULADORA DE IDADE" & vbNewLine & _
                String(50, "=") & vbNewLine & vbNewLine & _
                "Data de Nascimento: " & Format(dataNascimento, "DD/MM/YYYY") & vbNewLine & _
                "Data Atual: " & Format(dataAtual, "DD/MM/YYYY") & vbNewLine & vbNewLine & _
                "VOCÊ TEM:" & vbNewLine & _
                "📅 " & anos & " anos, " & meses & " meses e " & dias & " dias" & vbNewLine & _
                "📆 Total de " & Format(totalDias, "#,##0") & " dias vividos" & vbNewLine & _
                "⏰ Aproximadamente " & Format(totalDias * 24, "#,##0") & " horas" & vbNewLine & vbNewLine & _
                "PRÓXIMO ANIVERSÁRIO:" & vbNewLine & _
                "🎉 " & Format(proximoAniversario, "DD/MM/YYYY") & " (faltam " & diasProximoAniver & " dias)" & vbNewLine & vbNewLine & _
                "♈ Signo: " & signo
    
    MsgBox resultado, vbInformation, "Sua Idade Detalhada"
End Sub

🎯 O que este código faz:

Calcula idade exata (anos, meses, dias)
Mostra total de dias e horas vividas
Calcula próximo aniversário
Identifica o signo zodiacal

Exemplo 8: Analisador de Texto Avançado

Sub AnalisadorTextoAvancado()
    ' Variáveis
    Dim textoOriginal As String
    Dim textoSemEspacos As String
    Dim totalCaracteres As Integer
    Dim totalCaracteresSemEspaco As Integer
    Dim totalPalavras As Integer
    Dim totalVogais As Integer
    Dim totalConsoantes As Integer
    Dim totalNumeros As Integer
    Dim totalEspeciais As Integer
    Dim textoInvertido As String
    Dim i As Integer
    Dim char As String
    
    ' Coleta texto
    textoOriginal = InputBox("Digite ou cole o texto para análise:", "Analisador de Texto")
    
    If Len(textoOriginal) = 0 Then
        MsgBox "Nenhum texto foi digitado!", vbExclamation
        Exit Sub
    End If
    
    ' Análises básicas
    totalCaracteres = Len(textoOriginal)
    textoSemEspacos = Replace(textoOriginal, " ", "")
    totalCaracteresSemEspaco = Len(textoSemEspacos)
    totalPalavras = UBound(Split(Trim(textoOriginal), " ")) + 1
    
    ' Conta vogais, consoantes, números e especiais
    For i = 1 To Len(textoOriginal)
        char = UCase(Mid(textoOriginal, i, 1))
        
        If InStr("AEIOUÁÉÍÓÚÂÊÔÃÕ", char) > 0 Then
            totalVogais = totalVogais + 1
        ElseIf (Asc(char) >= 65 And Asc(char) <= 90) Then
            totalConsoantes = totalConsoantes + 1
        ElseIf IsNumeric(char) Then
            totalNumeros = totalNumeros + 1
        ElseIf char <> " " Then
            totalEspeciais = totalEspeciais + 1
        End If
    Next i
    
    ' Inverte o texto
    For i = Len(textoOriginal) To 1 Step -1
        textoInvertido = textoInvertido & Mid(textoOriginal, i, 1)
    Next i
    
    ' Monta resultado
    Dim resultado As String
    resultado = "📝 ANÁLISE DE TEXTO" & vbNewLine & _
                String(50, "=") & vbNewLine & vbNewLine & _
                "ESTATÍSTICAS:" & vbNewLine & _
                "• Total de caracteres: " & totalCaracteres & vbNewLine & _
                "• Caracteres (sem espaços): " & totalCaracteresSemEspaco & vbNewLine & _
                "• Total de palavras: " & totalPalavras & vbNewLine & _
                "• Vogais: " & totalVogais & vbNewLine & _
                "• Consoantes: " & totalConsoantes & vbNewLine & _
                "• Números: " & totalNumeros & vbNewLine & _
                "• Caracteres especiais: " & totalEspeciais & vbNewLine & vbNewLine & _
                "TRANSFORMAÇÕES:" & vbNewLine & _
                "• MAIÚSCULAS: " & UCase(textoOriginal) & vbNewLine & _
                "• minúsculas: " & LCase(textoOriginal) & vbNewLine & _
                "• Primeira Letra Maiúscula: " & StrConv(textoOriginal, vbProperCase) & vbNewLine & _
                "• Invertido: " & textoInvertido
    
    MsgBox resultado, vbInformation, "Resultado da Análise"
End Sub

🎯 O que este código faz:

Análise completa de textos
Conta caracteres, palavras, vogais, consoantes
Transforma texto em diferentes formatos
Inverte o texto

Exemplo 9: Calculadora de Combustível (Álcool vs Gasolina)

Sub CalculadoraCombustivel()
    ' Variáveis
    Dim precoAlcool As Double
    Dim precoGasolina As Double
    Dim relacao As Double
    Dim economiaLitro As Double
    Dim litrosAbastecimento As Double
    Dim economiaTotal As Double
    Dim melhorOpcao As String
    Dim diferencaPercentual As Double
    
    ' Coleta preços
    precoAlcool = InputBox("Digite o preço do ÁLCOOL por litro:", "Calculadora Combustível")
    
    If precoAlcool <= 0 Then
        MsgBox "Preço inválido!", vbExclamation
        Exit Sub
    End If
    
    precoGasolina = InputBox("Digite o preço da GASOLINA por litro:", "Calculadora Combustível")
    
    If precoGasolina <= 0 Then
        MsgBox "Preço inválido!", vbExclamation
        Exit Sub
    End If
    
    litrosAbastecimento = InputBox("Quantos litros você vai abastecer?", "Calculadora Combustível")
    
    If litrosAbastecimento <= 0 Then
        MsgBox "Quantidade inválida!", vbExclamation
        Exit Sub
    End If
    
    ' Calcula relação (regra: se álcool < 70% do preço da gasolina, vale a pena)
    relacao = (precoAlcool / precoGasolina)
    diferencaPercentual = relacao * 100
    
    ' Define melhor opção
    If relacao < 0.7 Then
        melhorOpcao = "⛽ ÁLCOOL"
        economiaLitro = precoGasolina - (precoAlcool / 0.7)
        economiaTotal = economiaLitro * litrosAbastecimento
    ElseIf relacao > 0.75 Then
        melhorOpcao = "⛽ GASOLINA"
        economiaLitro = (precoAlcool / 0.7) - precoGasolina
        economiaTotal = economiaLitro * litrosAbastecimento
    Else
        melhorOpcao = "⚖️ EMPATE (diferença muito pequena)"
        economiaLitro = 0
        economiaTotal = 0
    End If
    
    ' Custos do abastecimento
    Dim custoAlcool As Double
    Dim custoGasolina As Double
    custoAlcool = precoAlcool * litrosAbastecimento
    custoGasolina = precoGasolina * litrosAbastecimento
    
    ' Monta resultado
    Dim resultado As String
    resultado = "⛽ QUAL COMBUSTÍVEL COMPENSA?" & vbNewLine & _
                String(50, "=") & vbNewLine & vbNewLine & _
                "PREÇOS:" & vbNewLine & _
                "Álcool: R$ " & Format(precoAlcool, "0.00") & " /litro" & vbNewLine & _
                "Gasolina: R$ " & Format(precoGasolina, "0.00") & " /litro" & vbNewLine & vbNewLine & _
                "ANÁLISE:" & vbNewLine & _
                "Relação Álcool/Gasolina: " & Format(diferencaPercentual, "0.00") & "%" & vbNewLine & _
                "(Álcool vale a pena se < 70%)" & vbNewLine & vbNewLine & _
                "ABASTECIMENTO DE " & litrosAbastecimento & " LITROS:" & vbNewLine & _
                "Com Álcool: R$ " & Format(custoAlcool, "#,##0.00") & vbNewLine & _
                "Com Gasolina: R$ " & Format(custoGasolina, "#,##0.00") & vbNewLine & vbNewLine & _
                String(50, "-") & vbNewLine & _
                "💡 MELHOR OPÇÃO: " & melhorOpcao
    
    If economiaTotal > 0 Then
        resultado = resultado & vbNewLine & _
                    "💰 Economia: R$ " & Format(Abs(economiaTotal), "#,##0.00")
    End If
    
    MsgBox resultado, vbInformation, "Resultado"
End Sub

🎯 O que este código faz:

Compara preços de álcool e gasolina
Aplica regra dos 70%
Calcula economia real no abastecimento
Recomenda melhor opção

Exemplo 10: Contador de Tempo Entre Datas

Sub ContadorTempoDatas()
    ' Variáveis
    Dim dataInicial As Date
    Dim dataFinal As Date
    Dim anos As Integer
    Dim meses As Integer
    Dim dias As Integer
    Dim totalDias As Long
    Dim totalSemanas As Long
    Dim totalHoras As Long
    Dim totalMinutos As Long
    Dim diasUteis As Integer
    Dim diasUteisSemana As String
    
    ' Coleta primeira data
    Dim textoData1 As String
    textoData1 = InputBox("Digite a DATA INICIAL (DD/MM/AAAA):", "Contador de Tempo")
    
    If Not IsDate(textoData1) Then
        MsgBox "Data inválida!", vbExclamation
        Exit Sub
    End If
    dataInicial = CDate(textoData1)
    
    ' Coleta segunda data
    Dim textoData2 As String
    textoData2 = InputBox("Digite a DATA FINAL (DD/MM/AAAA):" & vbNewLine & "(Deixe em branco para usar a data atual)", "Contador de Tempo")
    
    If textoData2 = "" Then
        dataFinal = Date
    Else
        If Not IsDate(textoData2) Then
            MsgBox "Data inválida!", vbExclamation
            Exit Sub
        End If
        dataFinal = CDate(textoData2)
    End If
    
    ' Garante que data inicial < data final
    If dataInicial > dataFinal Then
        Dim temp As Date
        temp = dataInicial
        dataInicial = dataFinal
        dataFinal = temp
    End If
    
    ' Calcula diferenças
    anos = DateDiff("yyyy", dataInicial, dataFinal)
    If Month(dataFinal) < Month(dataInicial) Or _
       (Month(dataFinal) = Month(dataInicial) And Day(dataFinal) < Day(dataInicial)) Then
        anos = anos - 1
    End If
    
    Dim dataAnosCompletos As Date
    dataAnosCompletos = DateAdd("yyyy", anos, dataInicial)
    meses = DateDiff("m", dataAnosCompletos, dataFinal)
    
    Dim dataMesesCompletos As Date
    dataMesesCompletos = DateAdd("m", meses, dataAnosCompletos)
    dias = DateDiff("d", dataMesesCompletos, dataFinal)
    
    ' Totais
    totalDias = DateDiff("d", dataInicial, dataFinal)
    totalSemanas = totalDias \ 7
    totalHoras = totalDias * 24
    totalMinutos = totalHoras * 60
    
    ' Conta dias úteis (segunda a sexta)
    Dim dataAtual As Date
    dataAtual = dataInicial
    diasUteis = 0
    
    Do While dataAtual <= dataFinal
        If Weekday(dataAtual) >= 2 And Weekday(dataAtual) <= 6 Then
            diasUteis = diasUteis + 1
        End If
        dataAtual = dataAtual + 1
    Loop
    
    ' Monta resultado
    Dim resultado As String
    resultado = "⏱️ CONTADOR DE TEMPO" & vbNewLine & _
                String(50, "=") & vbNewLine & vbNewLine & _
                "Data Inicial: " & Format(dataInicial, "DD/MM/YYYY") & vbNewLine & _
                "Data Final: " & Format(dataFinal, "DD/MM/YYYY") & vbNewLine & vbNewLine & _
                "TEMPO DECORRIDO:" & vbNewLine & _
                "📅 " & anos & " anos, " & meses & " meses e " & dias & " dias" & vbNewLine & vbNewLine & _
                "EM OUTRAS UNIDADES:" & vbNewLine & _
                "• Total de dias: " & Format(totalDias, "#,##0") & vbNewLine & _
                "• Total de semanas: " & Format(totalSemanas, "#,##0") & vbNewLine & _
                "• Total de horas: " & Format(totalHoras, "#,##0") & vbNewLine & _
                "• Total de minutos: " & Format(totalMinutos, "#,##0") & vbNewLine & vbNewLine & _
                "💼 Dias úteis (seg-sex): " & diasUteis
    
    MsgBox resultado, vbInformation, "Resultado"
End Sub

🎯 O que este código faz:

Calcula diferença entre duas datas
Mostra em anos, meses, dias
Converte para horas, minutos
Conta dias úteis no período

Operações com Variáveis [Referência Rápida]

Operações Matemáticas Essenciais

Sub OperacoesMatematicas()
    Dim a As Double, b As Double
    Dim resultado As Double
    
    a = 10
    b = 3
    
    ' Operações básicas
    resultado = a + b        ' Adição: 13
    resultado = a - b        ' Subtração: 7
    resultado = a * b        ' Multiplicação: 30
    resultado = a / b        ' Divisão: 3.333...
    resultado = a ^ b        ' Potenciação: 1000
    resultado = a Mod b      ' Resto da divisão: 1
    resultado = a \ b        ' Divisão inteira: 3
    
    ' Operações compostas
    a = a + 5                ' Incrementa a em 5
    a = a - 2                ' Decrementa a em 2
    a = a * 2                ' Dobra o valor de a
    a = a / 2                ' Divide a por 2
    
    ' Funções matemáticas úteis
    resultado = Abs(-10)     ' Valor absoluto: 10
    resultado = Sqr(16)      ' Raiz quadrada: 4
    resultado = Int(3.7)     ' Parte inteira (trunca): 3
    resultado = Round(3.7, 0) ' Arredonda: 4
End Sub

Operações com Strings (Textos)

Sub OperacoesStrings()
    Dim texto1 As String, texto2 As String
    Dim resultado As String
    Dim numero As Integer
    
    texto1 = "Olá"
    texto2 = "Mundo"
    
    ' Concatenação (juntar textos)
    resultado = texto1 & " " & texto2  ' "Olá Mundo"
    resultado = texto1 & texto2        ' "OláMundo"
    
    ' Funções úteis
    numero = Len(texto1)               ' Comprimento: 3
    resultado = UCase(texto1)          ' MAIÚSCULAS: "OLÁ"
    resultado = LCase(texto1)          ' minúsculas: "olá"
    resultado = Trim("  texto  ")      ' Remove espaços: "texto"
    resultado = Left(texto1, 2)        ' 2 primeiros: "Ol"
    resultado = Right(texto1, 2)       ' 2 últimos: "lá"
    resultado = Mid(texto1, 2, 2)      ' Do meio: "lá"
    
    ' Substituir texto
    resultado = Replace("banana", "a", "o")  ' "bonono"
    
    ' Verificar se contém
    If InStr(texto1, "lá") > 0 Then
        MsgBox "Contém 'lá'"
    End If
End Sub

Operações com Datas

Sub OperacoesDatas()
    Dim data1 As Date
    Dim data2 As Date
    Dim diferenca As Long
    
    ' Obter datas
    data1 = Date                    ' Data de hoje
    data2 = Now                     ' Data e hora atual
    data1 = #12/31/2024#           ' Data específica
    
    ' Adicionar/subtrair
    data2 = DateAdd("d", 30, data1) ' Adiciona 30 dias
    data2 = DateAdd("m", 6, data1)  ' Adiciona 6 meses
    data2 = DateAdd("yyyy", 1, data1) ' Adiciona 1 ano
    
    ' Calcular diferença
    diferenca = DateDiff("d", data1, data2)  ' Diferença em dias
    diferenca = DateDiff("m", data1, data2)  ' Diferença em meses
    diferenca = DateDiff("yyyy", data1, data2) ' Diferença em anos
    
    ' Extrair partes
    Dim ano As Integer, mes As Integer, dia As Integer
    ano = Year(data1)
    mes = Month(data1)
    dia = Day(data1)
End Sub

Conversão Entre Tipos [Guia Prático]

Por Que Converter?

Às vezes você tem um dado em um formato mas precisa dele em outro. Por exemplo:

O usuário digita “123” (texto) mas você precisa calcular com esse número
Você tem um número mas precisa exibi-lo como texto formatado
Precisa converter texto em data

Funções de Conversão Principais

Sub ConversoesPraticas()
    ' String → Número
    Dim textoNumero As String
    Dim numeroInt As Integer
    Dim numeroLong As Long
    Dim numeroDouble As Double
    
    textoNumero = "123"
    numeroInt = CInt(textoNumero)       ' Converte para Integer
    numeroLong = CLng(textoNumero)      ' Converte para Long
    numeroDouble = CDbl(textoNumero)    ' Converte para Double
    
    ' Número → String
    Dim numero As Double
    Dim texto As String
    numero = 1234.56
    texto = CStr(numero)                ' "1234.56"
    texto = Format(numero, "#,##0.00")  ' "1,234.56" (formatado)
    
    ' String → Data
    Dim textoData As String
    Dim minhaData As Date
    textoData = "31/12/2024"
    minhaData = CDate(textoData)        ' Converte para Date
    
    ' Data → String
    Dim data As Date
    data = Now
    texto = Format(data, "DD/MM/YYYY")  ' "31/12/2024"
    texto = Format(data, "DD/MM/YY")    ' "31/12/24"
    texto = Format(data, "HH:MM:SS")    ' "14:30:45"
    
    ' Arredondamentos
    Dim valor As Double
    valor = 3.7
    MsgBox CInt(valor)    ' 4 (arredonda)
    MsgBox Int(valor)     ' 3 (trunca)
    MsgBox Round(valor, 0) ' 4 (arredonda)
End Sub

Formatação de Números (Format)

Sub FormatacaoNumeros()
    Dim valor As Double
    valor = 1234567.89
    
    ' Diferentes formatos
    MsgBox Format(valor, "#,##0.00")      ' 1,234,567.89
    MsgBox Format(valor, "R$ #,##0.00")   ' R$ 1,234,567.89
    MsgBox Format(valor, "0.00%")         ' Se for 0.15 → 15.00%
    MsgBox Format(valor, "000000")        ' 001234567 (zeros à esquerda)
    
    ' Formatos monetários
    MsgBox Format(valor, "Currency")      ' Formato moeda local
End Sub

Erros Comuns e Como Evitar [90% dos Iniciantes Cometem]

❌ Erro 1: Não Usar Option Explicit

Problema:

' Sem Option Explicit no topo do módulo
Sub ErroSilencioso()
    nome = "João"
    ' Depois você digita errado...
    MsgBox nomee   ' Mostra vazio, mas não dá erro!
End Sub

✅ Solução:

Option Explicit  ' ← Cole isso NO TOPO de TODOS os seus módulos

Sub SemErros()
    Dim nome As String
    nome = "João"
    MsgBox nomee   ' Agora dá ERRO e você descobre o problema!
End Sub

💡 Como ativar automaticamente:

No VBA, vá em Ferramentas → Opções
Marque “Requerer Declaração de Variável”
Agora todos os novos módulos terão Option Explicit automaticamente

❌ Erro 2: Tipo Incompatível

Problema:

Sub TipoErrado()
    Dim idade As Integer
    idade = "trinta"  ' ❌ ERRO: Type Mismatch
End Sub

✅ Solução:

Sub TipoCorreto()
    Dim idade As Integer
    Dim textoIdade As String
    
    textoIdade = InputBox("Digite sua idade:")
    
    ' Valida se é número antes de converter
    If IsNumeric(textoIdade) Then
        idade = CInt(textoIdade)
        MsgBox "Você tem " & idade & " anos"
    Else
        MsgBox "Por favor, digite apenas números!"
    End If
End Sub

❌ Erro 3: Divisão Por Zero

Problema:

Sub DivisaoErrada()
    Dim resultado As Double
    resultado = 10 / 0  ' ❌ ERRO: Division by zero
End Sub

✅ Solução:

Sub DivisaoSegura()
    Dim numerador As Double
    Dim denominador As Double
    Dim resultado As Double
    
    numerador = 10
    denominador = 0
    
    If denominador <> 0 Then
        resultado = numerador / denominador
        MsgBox resultado
    Else
        MsgBox "Erro: Não é possível dividir por zero!", vbCritical
    End If
End Sub

❌ Erro 4: Overflow (Número Muito Grande)

Problema:

Sub NumeroGrande()
    Dim numero As Integer
    numero = 50000  ' ❌ ERRO: Integer só vai até 32.767
End Sub

✅ Solução:

Sub NumeroGrandeCorreto()
    Dim numero As Long  ' Use Long ao invés de Integer
    numero = 50000  ' ✅ Funciona perfeitamente!
End Sub

💡 Dica: Prefira sempre Long ao invés de Integer.

❌ Erro 5: Variável Não Inicializada

Problema:

Sub SomaErrada()
    Dim total As Integer
    total = total + 10  ' Parece OK, mas...
    total = total + 20
    MsgBox total  ' Mostra 30, mas esperava diferentes valores
End Sub

✅ Solução:

Sub SomaCorreta()
    Dim total As Integer
    total = 0  ' Inicializa explicitamente (boa prática)
    total = total + 10
    total = total + 20
    MsgBox total  ' 30 - agora está claro
End Sub