• Exemplo 1: Calcular a soma do intervalo utilizando o VBA e apresentar os resultados na célula
• Exemplo 2: Calcular a soma do intervalo utilizando o VBA e apresentar os resultados na caixa de mensagens

É possível utilizar a seguinte sintaxe básica para calcular a soma dos valores num intervalo utilizando o VBA:

 Sub SumValues() 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, em vez disso, pretender apresentar a soma dos valores numa caixa de mensagem, pode utilizar a seguinte sintaxe:

 Sub SumValues() 'Criar uma variável para armazenar a soma dos valores Dim sum As Single 'Calcular a soma dos valores no intervalo sum = WorksheetFunction.Sum(Range(" B2:B11 ")) 'Apresentar o resultado MsgBox " Soma dos valores no intervalo: " & sum End Sub 

Os exemplos seguintes mostram como utilizar cada um destes métodos na prática com o seguinte conjunto de dados em Excel que contém informações sobre vários jogadores de basquetebol:

Exemplo 1: Calcular a soma do intervalo utilizando o VBA e apresentar os resultados na célula

Suponhamos que gostaríamos de calcular a soma dos valores na coluna de pontos e apresentar os resultados numa célula específica.

Para o efeito, podemos criar a seguinte macro:

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

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

Repare que a célula D2 contém um valor de 245 .

Isto diz-nos que a soma dos valores na coluna dos pontos é 245.

Exemplo 2: Calcular a soma do intervalo utilizando o VBA e apresentar os resultados na caixa de mensagens

Suponhamos que, em vez disso, gostaríamos de calcular a soma dos valores na coluna dos pontos e apresentar os resultados numa caixa de mensagem.

Para o efeito, podemos criar a seguinte macro:

 Sub SumValues() 'Criar uma variável para armazenar a soma dos valores Dim sum As Single 'Calcular a soma dos valores no intervalo sum = WorksheetFunction.Sum(Range(" B2:B11 ")) 'Apresentar o resultado MsgBox " Soma dos valores no intervalo: " & sum End Sub 

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

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

Note que, neste exemplo, calculámos a soma dos valores no intervalo B2:B11 .

No entanto, se quiser calcular a soma dos valores de uma coluna inteira, pode escrever B:B em vez disso.

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