Soma no Excel Planilha com Formulas e WorksheetFunction no VBA Macros
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")).
WorksheetFunction.Sum() com um intervalo de célulasEsta é a maneira mais direta e comum de somar valores em VBA.
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 SubSub ExemploSoma(): Inicia um procedimento (macro) chamadoExemploSoma.Dim ...: Declara variáveis para armazenar a planilha, o intervalo de células e o resultado.Set minhaPlanilha = ThisWorkbook.Sheets("Plan1"): Atribui a planilha “Plan1” à variávelminhaPlanilha.Set intervaloParaSomar = minhaPlanilha.Range("A1:A10"): Define o objeto
Rangeque contém as células a serem somadas, neste caso, de A1 a A10.resultadoSoma = Application.WorksheetFunction.Sum(intervaloParaSomar)- Esta linha é a chave:
Application.WorksheetFunction.Sum()chama a funçãoSOMAdo Excel.- O argumento
intervaloParaSomaré o conjunto de células que a funçãoSOMAprecisa somar.
MsgBox ...: Exibe o resultado em uma caixa de mensagem.minhaPlanilha.Range("C1").Value = _-
resultadoSoma - Insere o valor da soma na célula C1 da planilha.
SOMASE)Se precisar somar valores apenas quando um certo critério for atendido, use a função SOMASE.
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 SubCurso 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!📊
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.
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