13.2 Automatização com VBA

📊 Visão Geral

O VBA (Visual Basic for Applications) é a linguagem de programação nativa do Excel, permitindo automatizar tarefas repetitivas, criar funções personalizadas e desenvolver aplicações completas dentro do Excel.

🎯 Por que usar VBA em FP&A?

Benefícios

Casos de Uso em FP&A

✅ Consolidação de múltiplas planilhas
✅ Geração automática de relatórios
✅ Importação de dados de sistemas
✅ Validação e limpeza de dados
✅ Envio automático de emails
✅ Criação de dashboards interativos

📐 Fundamentos de VBA

Acessando o Editor VBA

Atalho: Alt + F11

Ou: Desenvolvedor > Visual Basic
(Habilitar aba Desenvolvedor em: Arquivo > Opções > 
Personalizar Faixa de Opções > Desenvolvedor)

Estrutura Básica

Sub NomeDoMacro()
    ' Comentário explicativo
    
    ' Declaração de variáveis
    Dim valor As Double
    Dim texto As String
    
    ' Código
    valor = 100
    texto = "Olá FP&A"
    
    ' Interação com células
    Range("A1").Value = valor
    Range("B1").Value = texto
    
End Sub

Tipos de Dados

🔢 Exemplos Práticos para FP&A

1. Consolidar Múltiplas Planilhas

Sub ConsolidarPlanilhas()
    Dim ws As Worksheet
    Dim wsConsolidado As Worksheet
    Dim ultimaLinha As Long
    Dim linhaDestino As Long
    
    ' Criar planilha consolidada
    Set wsConsolidado = ThisWorkbook.Sheets.Add
    wsConsolidado.Name = "Consolidado"
    linhaDestino = 2
    
    ' Copiar cabeçalho da primeira planilha
    Sheets(1).Rows(1).Copy wsConsolidado.Rows(1)
    
    ' Loop por todas as planilhas
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "Consolidado" Then
            ultimaLinha = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            
            ' Copiar dados (sem cabeçalho)
            ws.Range("A2:Z" & ultimaLinha).Copy _
                wsConsolidado.Cells(linhaDestino, 1)
            
            linhaDestino = linhaDestino + ultimaLinha - 1
        End If
    Next ws
    
    MsgBox "Consolidação concluída! " & linhaDestino - 1 & " linhas."
End Sub

2. Gerar Relatório Mensal Automático

Sub GerarRelatorioMensal()
    Dim mes As String
    Dim ano As Integer
    Dim wsOrigem As Worksheet
    Dim wsRelatorio As Worksheet
    
    ' Inputs
    mes = InputBox("Digite o mês (ex: Janeiro):")
    ano = InputBox("Digite o ano (ex: 2025):")
    
    ' Criar nova planilha para relatório
    Set wsRelatorio = Sheets.Add
    wsRelatorio.Name = mes & "_" & ano
    
    Set wsOrigem = Sheets("Dados")
    
    ' Cabeçalho
    With wsRelatorio
        .Range("A1").Value = "RELATÓRIO FINANCEIRO"
        .Range("A2").Value = mes & "/" & ano
        .Range("A1:A2").Font.Bold = True
        .Range("A1").Font.Size = 16
        
        ' Dados
        .Range("A4").Value = "Receita"
        .Range("B4").Value = Application.WorksheetFunction.SumIf( _
            wsOrigem.Range("A:A"), mes, wsOrigem.Range("B:B"))
        
        .Range("A5").Value = "Custos"
        .Range("B5").Value = Application.WorksheetFunction.SumIf( _
            wsOrigem.Range("A:A"), mes, wsOrigem.Range("C:C"))
        
        .Range("A6").Value = "Lucro"
        .Range("B6").Formula = "=B4-B5"
        .Range("B6").Font.Bold = True
        
        ' Formatação
        .Range("B4:B6").NumberFormat = "#,##0.00"
    End With
    
    MsgBox "Relatório de " & mes & "/" & ano & " gerado!"
End Sub

3. Análise de Variação Automática

Sub AnalisarVariacao()
    Dim wsAnalise As Worksheet
    Dim ultimaLinha As Long
    Dim i As Long
    Dim variacao As Double
    
    Set wsAnalise = ActiveSheet
    ultimaLinha = wsAnalise.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' Adicionar coluna de variação e status
    wsAnalise.Range("D1").Value = "Variação %"
    wsAnalise.Range("E1").Value = "Status"
    
    For i = 2 To ultimaLinha
        ' Calcular variação (Real vs Orçado)
        If wsAnalise.Cells(i, 3).Value <> 0 Then
            variacao = (wsAnalise.Cells(i, 2).Value - wsAnalise.Cells(i, 3).Value) / _
                       wsAnalise.Cells(i, 3).Value
        Else
            variacao = 0
        End If
        
        wsAnalise.Cells(i, 4).Value = variacao
        wsAnalise.Cells(i, 4).NumberFormat = "0.0%"
        
        ' Classificar status
        Select Case variacao
            Case Is >= 0.1
                wsAnalise.Cells(i, 5).Value = "⚠️ Acima 10%"
                wsAnalise.Cells(i, 5).Interior.Color = RGB(255, 200, 200)
            Case Is <= -0.1
                wsAnalise.Cells(i, 5).Value = "⚠️ Abaixo 10%"
                wsAnalise.Cells(i, 5).Interior.Color = RGB(255, 200, 200)
            Case Else
                wsAnalise.Cells(i, 5).Value = "✅ OK"
                wsAnalise.Cells(i, 5).Interior.Color = RGB(200, 255, 200)
        End Select
    Next i
    
    MsgBox "Análise de variação concluída!"
End Sub

4. Enviar Relatório por Email

Sub EnviarRelatorioPorEmail()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim destinatario As String
    Dim assunto As String
    Dim corpo As String
    
    ' Configurar email
    destinatario = "gestor@empresa.com"
    assunto = "Relatório Financeiro - " & Format(Date, "MMMM/YYYY")
    corpo = "Prezado(a)," & vbCrLf & vbCrLf & _
            "Segue em anexo o relatório financeiro do período." & vbCrLf & vbCrLf & _
            "Principais destaques:" & vbCrLf & _
            "- Receita: " & Format(Range("B4").Value, "#,##0") & vbCrLf & _
            "- EBITDA: " & Format(Range("B8").Value, "#,##0") & vbCrLf & vbCrLf & _
            "Atenciosamente," & vbCrLf & _
            "Equipe de FP&A"
    
    ' Salvar arquivo temporário
    Dim caminhoTemp As String
    caminhoTemp = Environ("TEMP") & "\Relatorio_" & Format(Date, "YYYYMMDD") & ".xlsx"
    ThisWorkbook.SaveCopyAs caminhoTemp
    
    ' Criar email
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = destinatario
        .Subject = assunto
        .Body = corpo
        .Attachments.Add caminhoTemp
        .Display ' Use .Send para enviar automaticamente
    End With
    
    ' Limpar
    Set OutMail = Nothing
    Set OutApp = Nothing
    Kill caminhoTemp
    
    MsgBox "Email preparado!"
End Sub

5. Função Personalizada (UDF)

' Calcular margem EBITDA
Function MargemEBITDA(receita As Double, ebitda As Double) As Double
    If receita = 0 Then
        MargemEBITDA = 0
    Else
        MargemEBITDA = ebitda / receita
    End If
End Function

' Classificar empresa por porte
Function ClassificarPorte(faturamento As Double) As String
    Select Case faturamento
        Case Is < 360000
            ClassificarPorte = "MEI"
        Case Is < 4800000
            ClassificarPorte = "ME"
        Case Is < 78000000
            ClassificarPorte = "EPP"
        Case Is < 300000000
            ClassificarPorte = "Média"
        Case Else
            ClassificarPorte = "Grande"
    End Select
End Function

' Uso na planilha:
' =MargemEBITDA(A1, B1)
' =ClassificarPorte(C1)

📊 Boas Práticas

Estrutura de Código

'============================================
' MÓDULO: Relatórios Financeiros
' AUTOR: Equipe FP&A
' DATA: Janeiro 2025
' DESCRIÇÃO: Macros para geração de relatórios
'============================================

Option Explicit ' Força declaração de variáveis

' Constantes
Const CAMINHO_DADOS As String = "C:\Dados\"
Const EMAIL_GESTOR As String = "gestor@empresa.com"

' Variáveis globais
Dim gMesAtual As Integer
Dim gAnoAtual As Integer

Sub Inicializar()
    gMesAtual = Month(Date)
    gAnoAtual = Year(Date)
End Sub

Tratamento de Erros

Sub ProcessarDadosComTratamento()
    On Error GoTo TratarErro
    
    ' Desabilitar atualizações (performance)
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    ' === CÓDIGO PRINCIPAL ===
    ' ...
    
Limpar:
    ' Sempre executar ao final
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Exit Sub
    
TratarErro:
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical
    Resume Limpar
End Sub

Performance

' ❌ LENTO - Acesso célula por célula
For i = 1 To 10000
    Cells(i, 1).Value = i
Next i

' ✅ RÁPIDO - Usar array
Dim arr(1 To 10000, 1 To 1) As Variant
For i = 1 To 10000
    arr(i, 1) = i
Next i
Range("A1:A10000").Value = arr

⚠️ Segurança

Proteger Código VBA

1. No Editor VBA: Ferramentas > Propriedades do VBAProject
2. Aba Proteção > Bloquear projeto para exibição
3. Definir senha

Assinar Macros Digitalmente

1. Obter certificado digital
2. Ferramentas > Assinatura Digital
3. Selecionar certificado

✅ Checklist de Desenvolvimento

• [ ] Usar Option Explicit
• [ ] Declarar todas as variáveis
• [ ] Adicionar comentários explicativos
• [ ] Implementar tratamento de erros
• [ ] Desabilitar ScreenUpdating em loops
• [ ] Testar com dados de exemplo
• [ ] Documentar parâmetros e retornos
• [ ] Versionar código (backup)

🛠️ Template Excel

O template 13.2_vba_templates.xlsm inclui:

1. Módulo de Consolidação - Juntar planilhas
2. Módulo de Relatórios - Geração automática
3. Módulo de Análise - Variações e alertas
4. Funções UDF - Funções personalizadas
5. Módulo de Email - Envio automático

💡 Dicas Práticas

1. Grave macro primeiro - Depois otimize o código
2. Use o depurador - F8 executa linha por linha
3. Janela Verificação Imediata - Ctrl+G para testar
4. Modularize - Funções pequenas e reutilizáveis
5. Backup sempre - Salve versões do código

🔗 Guias Relacionados

• 6.5 Fórmulas Excel Avançadas
• 13.1 IA para FP&A
• 13.3 Power BI para Finanças