Arquivo de Soma Automatica no Excel VBA - Excel - Curso VBA - Aprender Programação https://somaexcel.com.br/tag/soma-automatica-no-excel-vba/ Excel - Curso VBA | Planilhas Profissionais mais de 1.000 Aulas e Video Aulas passo a passo. Aprenda o passo a passo de como usar o VBA no Excel e Crie sistemas em suas planilhas Personalizados. Mon, 22 Sep 2025 17:26:32 +0000 pt-BR hourly 1 https://wordpress.org/?v=6.9 Soma no Excel Planilha com Formulas e WorksheetFunction no VBA Macros https://somaexcel.com.br/soma-no-excel-planilha-com-formulas-e-worksheetfunction-no-vba-macros/ https://somaexcel.com.br/soma-no-excel-planilha-com-formulas-e-worksheetfunction-no-vba-macros/#respond Sun, 21 Sep 2025 12:35:09 +0000 https://somaexcel.com.br/?p=3993   Aprenderemos como Fazer uma Soma no Excel automaticamente em determinada área de Range células no Excel intervalo de células...

O post Soma no Excel Planilha com Formulas e WorksheetFunction no VBA Macros apareceu primeiro em Excel - Curso VBA - Aprender Programação.

]]>

 


Aprenderemos como Fazer uma Soma no Excel automaticamente em determinada área de Range células no Excel intervalo de células com Macros e Ligados a um Evento de Planilha neste Caso Worksheet_Change()  ao Escrever na Planilha em determinado intervalo de células, a soma acontecerá automaticamente retornando resultado para uma célula especifica.

Curso Completo Excel VBA Tutoriais com Video Aulas e Exercícios de Planilha Explicativos passo a passo de Como montar planilhas profissionais para Treinamento com Códigos VBA Macros no Excel.

Para realizar somas no Excel VBA, você utiliza a propriedade WorksheetFunction.Sum()
para aplicar a função SOMA do Excel diretamente no código, ou define uma variável Range
para um intervalo de células e aplica a função a essa variável, como no exemplo Range("C1") = Application.WorksheetFunction.Sum(Worksheets("Plan1").Range("A1:A10")). 

Usando WorksheetFunction.Sum() com um intervalo de células

Esta é a maneira mais direta e comum de somar valores em VBA. 

Código
Sub ExemploSoma()    Dim minhaPlanilha As Worksheet    Dim intervaloParaSomar As Range    Dim resultadoSoma As Double    ' Define a planilha em que os dados estão
    Set minhaPlanilha = ThisWorkbook.Sheets("Plan1")    ' Define o intervalo de células que serão somadas (por exemplo, A1 a A10)
    Set intervaloParaSomar = minhaPlanilha.Range("A1:A10")

    ' Calcula a soma do intervalo usando a função SOMA do Excel
    resultadoSoma = Application.WorksheetFunction.Sum(intervaloParaSomar)    ' Exibe o resultado em uma caixa de mensagem
    MsgBox "A soma do intervalo é: " & resultadoSoma    ' Ou, para inserir o resultado numa célula, por exemplo, C1:
    minhaPlanilha.Range("C1").Value = resultadoSomaEnd Sub
Explicação do código:
  1. Sub ExemploSoma()Inicia um procedimento (macro) chamado ExemploSoma. 
  2. Dim ...Declara variáveis para armazenar a planilha, o intervalo de células e o resultado. 
  3. Set minhaPlanilha = ThisWorkbook.Sheets("Plan1")Atribui a planilha “Plan1” à variável minhaPlanilha. 
  4. Set intervaloParaSomar = minhaPlanilha.Range("A1:A10")
    Define o objeto Range que contém as células a serem somadas, neste caso, de A1 a A10. 

  5. resultadoSoma = Application.WorksheetFunction.Sum(intervaloParaSomar)
  6.         Esta linha é a chave:
    • Application.WorksheetFunction.Sum() chama a função SOMA do Excel. 
    • O argumento intervaloParaSomar é o conjunto de células que a função SOMA precisa somar. 
  7. MsgBox ...Exibe o resultado em uma caixa de mensagem. 
  8. minhaPlanilha.Range("C1").Value = _
  9.        resultadoSoma
  10.        Insere o valor da soma na célula C1 da planilha. 
Para somar com base em um critério (usando SOMASE)

Se precisar somar valores apenas quando um certo critério for atendido, use a função SOMASE. 

Código
Sub ExemploSomase()    Dim intervaloCritario As Range    Dim intervaloParaSomar As Range    Dim criterio As String    Dim resultado As Double' Coluna onde está o critério    Set intervaloCritario = ThisWorkbook.Sheets("Plan1").Range("B2:B5")
' Coluna onde estão os valores a serem somados 
    Set intervaloParaSomar = ThisWorkbook.Sheets("Plan1").Range("C2:C5") 
    criterio = "Pedro" ' O critério para a soma
    resultado = Application.WorksheetFunction.SumIf( _
           intervaloCritario, criterio, intervaloParaSomar)    MsgBox "A soma para '" & criterio & "' é: " & resultadoEnd Sub

Curso Completo Excel VBA Tutoriais com Video Aulas e Exercícios de Planilha Explicativos passo a passo de Como montar planilhas profissionais para Treinamento com Códigos VBA Macros no Excel.

✅   https://somaexcel.com.br/course/curso-excel-vba/
         🔑 Conteudo na Área de Membros Excel VBA Acessar Agora!📊

excel vba download exemplo de planilha programação saberexcel  Faça o Download do Exemplo de Planilha Excel VBA Como fazer uma Soma no Excel usando Macros e juntamente com o
Evento Change ao Escrever um número automaticamente retorna o Resultado em uma célula específica automaticamente.

Icons excel vba treinamentos codigos como fazer gratuito Soma Excel VBA Somando com WorksheetFunction e Eventos de Planilha Change.xlsm

Bons Estudos
Fiquem com Deus,
Prof. Expedito Marcondes
wtz. (16) 9.8133-3066
suporte:  suportecursovba@gmail.com

O post Soma no Excel Planilha com Formulas e WorksheetFunction no VBA Macros apareceu primeiro em Excel - Curso VBA - Aprender Programação.

]]>
https://somaexcel.com.br/soma-no-excel-planilha-com-formulas-e-worksheetfunction-no-vba-macros/feed/ 0