VBA Excel | Função que Soma Todos os Números entre Parênteses num Intervalo de Células

VBA Excel | Função que Soma Todos os Números entre Parênteses num Intervalo de Células


Descubra a Função VBA Que Facilita a Soma de Números Entre Parênteses no Excel.


No mundo dinâmico das planilhas eletrônicas, o Excel se destaca como uma ferramenta poderosa para manipulação de dados. No entanto, certas tarefas podem ser tediosas e consumir muito tempo, como somar números específicos dentro de um intervalo de células. Pensando nisso, apresentamos uma função VBA que simplifica a soma de todos os números entre parênteses em um range de células no Excel. Esta função não só otimiza o seu trabalho, mas também eleva sua produtividade a um novo patamar. 


A Utilidade da Função SumParentheses


A função SumParentheses foi desenvolvida para resolver um problema comum: extrair e somar números que estão entre parênteses dentro de um intervalo de células no Excel. Imagine uma situação onde você tem uma planilha cheia de dados complexos e precisa somar apenas os números entre parênteses. Fazer isso manualmente seria um esforço monumental, além de estar sujeito a erros. A função SumParentheses automatiza essa tarefa, garantindo precisão e economia de tempo.


Como a Função Funciona


A função utiliza o poder das expressões regulares (Regex) para identificar e extrair números entre parênteses. Aqui está uma visão geral de como ela funciona:


1. Criação de Objeto Regex: A função cria um objeto Regex para procurar padrões específicos de números entre parênteses.

2. Looping através das Células: A função percorre cada célula no intervalo especificado.

3. Extração e Soma dos Números: Para cada célula, a função verifica se há números entre parênteses, extrai esses números e os soma.


Implementação da Função


Aqui está o código VBA da função SumParentheses:


Function SumParentheses (rng As Range) As Double

    Dim cell As Range

    Dim regex As Object

    Dim matches As Object

    Dim match As Object

    Dim totalSum As Double

    Dim cellText As String


    ' Cria um novo objeto Regex

    Set regex = CreateObject("VBScript.RegExp")

    regex.Global = True

    regex.IgnoreCase = True

    regex.Pattern = "\(([-+]?\d*\.?\d+)\)" ' Expressão regular para encontrar números entre parênteses


    ' Inicializa a soma total

    totalSum = 0


    ' Percorre cada célula no intervalo

    For Each cell In rng

        cellText = cell.Value

        If Not IsEmpty(cellText) Then

            ' Encontra todas as correspondências na célula atual

            Set matches = regex.Execute(cellText)

            For Each match In matches

                ' Soma o valor encontrado entre parênteses

                totalSum = totalSum + CDbl(match.SubMatches(0))

            Next match

        End If

    Next cell


    ' Retorna a soma total

    SumParentheses = totalSum

End Function


Como Utilizar a Função no Excel


1. Acesse o Editor VBA: Pressione `Alt + F11` para abrir o Editor VBA no Excel.

2. Insira um Novo Módulo: Vá para `Inserir > Módulo` e cole o código acima.

3. Feche o Editor VBA: Feche o editor e volte para a sua planilha.

4. Use a Função: Agora você pode usar a função SumParentheses como qualquer outra função do Excel. Por exemplo, `=SumParentheses(A1:A10)` somará todos os números entre parênteses no intervalo de células A1 a A10.


Vantagens da Função SumParentheses


- Precisão: A função garante a soma exata dos números entre parênteses, minimizando erros manuais.

- Eficiência: Automação dessa tarefa economiza tempo significativo, especialmente em planilhas grandes.

- Flexibilidade: Pode ser usada em qualquer intervalo de células, adaptando-se a diversas necessidades de dados.


A função SumParentheses é uma ferramenta essencial para quem trabalha com dados complexos no Excel. Ao automatizar a soma de números específicos entre parênteses, ela não só melhora a precisão dos seus cálculos, mas também otimiza o seu tempo de trabalho. Experimente essa função e descubra como ela pode transformar sua rotina de trabalho com planilhas eletrônicas.


Aproveite ao máximo o poder do VBA no Excel e leve sua produtividade a um novo nível com a função SumParentheses!


  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!
brazilsalesforceeffectiveness@gmail.com


 Série Donut Project 
DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes


 Clique nas capas abaixo e compre também: 

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)


Série Top 10 Funções: Top 10 Funções VBA para o Microsoft Excel (Série Top 10 Funções - Microsoft Excel)


eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes

Nenhum comentário:

Postar um comentário

diHITT - Notícias