Vba: como adicionar valores em um intervalo

Você pode usar a seguinte sintaxe básica para calcular a soma dos valores em um intervalo usando VBA:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

Este exemplo específico calcula a soma dos valores no intervalo B2:B11 e atribui o resultado à célula D2 .

Se você quiser exibir a soma dos valores em uma caixa de mensagem, poderá usar a seguinte sintaxe:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

Os exemplos a seguir mostram como usar cada um desses métodos na prática com o seguinte conjunto de dados no Excel que contém informações sobre vários jogadores de basquete:

Exemplo 1: Calcule a soma do intervalo usando VBA e exiba os resultados na célula

Suponha que queiramos calcular a soma dos valores na coluna de pontos e exibir os resultados em uma célula específica.

Podemos criar a seguinte macro para fazer isso:

 SubSumValues ()
    Range(" D2 ") = WorksheetFunction.Sum(Range(" B2:B11 "))
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que a célula D2 contém o valor 245 .

Isso nos diz que a soma dos valores na coluna de pontos é 245.

Exemplo 2: Calcule a soma do intervalo usando VBA e exiba os resultados na caixa de mensagem

Suponha que, em vez disso, queiramos calcular a soma dos valores na coluna de pontos e exibir os resultados em uma caixa de mensagem.

Podemos criar a seguinte macro para fazer isso:

 SubSumValues ()
    'Create variable to store sum of values
    Dim sum As Single
    
    'Calculate sum of values in range
    sum = WorksheetFunction.Sum(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Sum of Values in Range: " & sum
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

A caixa de mensagem nos informa que a soma dos valores no intervalo B2:B11 é 245 .

Observe que neste exemplo calculamos a soma dos valores no intervalo B2:B11 .

No entanto, se você quiser calcular a soma dos valores em uma coluna inteira, poderá digitar B:B .

Isso calculará a soma dos valores de cada célula da coluna B.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como calcular o valor médio do intervalo
VBA: Como contar o número de linhas no intervalo
VBA: Como escrever funções SUMIF e SUMIFS