📘✨ Excel VBA na Prática: Usando o Método Areas do Objeto Range

Quando trabalhamos no Excel, muitas vezes precisamos lidar com intervalos múltiplos (não contíguos), como quando selecionamos várias células separadas segurando a tecla CTRL.

No VBA, o objeto Range possui o método Areas, que facilita a manipulação desses conjuntos de intervalos. 🚀

---

🔎 Definição

• Range.Areas → Retorna uma coleção de áreas (subintervalos) dentro de um intervalo múltiplo.

• Cada área pode ser acessada individualmente como um objeto Range.

---

🧑‍💻 Exemplos práticos

1️⃣ Descobrir quantas áreas existem em uma seleção

Sub ContarAreas()
    Dim TotalAreas As Long
    TotalAreas = Selection.Areas.Count
    MsgBox "A seleção possui " & TotalAreas & " áreas diferentes."
End Sub

👉 Se você selecionar, por exemplo, A1:A5 e C1:C5, o resultado será 2 áreas.

---

2️⃣ Trabalhar com cada área separadamente

Sub DestacarAreas()
    Dim i As Long
    
    For i = 1 To Selection.Areas.Count
        Selection.Areas(i).Interior.Color = vbYellow
    Next i
End Sub

👉 Cada área da seleção será destacada em amarelo.

---

3️⃣ Usar cada área em cálculos

Sub SomarAreas()
    Dim i As Long, Soma As Double
    
    For i = 1 To Selection.Areas.Count
        Soma = Soma + WorksheetFunction.Sum(Selection.Areas(i))
    Next i
    
    MsgBox "A soma total das áreas selecionadas é: " & Soma
End Sub

👉 O VBA percorre cada área e calcula o total, somando tudo em uma única saída.

---

💡 Dica útil na automação:
O método Areas é ideal quando o usuário faz seleções personalizadas no Excel e você precisa percorrer cada conjunto de células para formatar, validar ou calcular valores de forma independente.

---

🟢📢 Consultoria Contábil Inteligente
💼 Abertura e registro de empresas no Simples Nacional
📊 Acompanhamento contábil e fiscal mensal
⚖️ Planejamento tributário estratégico para pagar só o justo

👉 Entre em contato e mantenha sua empresa organizada com segurança!