Vba: como calcular o valor médio do intervalo

Você pode usar a seguinte sintaxe básica para calcular o valor médio de um intervalo no Excel usando VBA:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

Este exemplo específico calcula o valor médio no intervalo B2:B12 e atribui o resultado à célula E2 .

Se você quiser exibir o valor médio em uma caixa de mensagem, poderá usar a seguinte sintaxe:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
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 média do intervalo usando VBA e exiba os resultados na célula

Suponha que queiramos calcular o valor médio na coluna de pontos e exibir os resultados em uma célula específica.

Podemos criar a seguinte macro para fazer isso:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

Observe que a célula E2 contém um valor de 21,27273 .

Isso nos diz que o valor médio na coluna de pontos é 21,27273.

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

Suponha que, em vez disso, queiramos calcular o valor médio na coluna de pontos e exibir os resultados em uma caixa de mensagem.

Podemos criar a seguinte macro para fazer isso:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

A caixa de mensagem nos informa que o valor médio no intervalo B2:B12 é 21.27273 .

Observe que neste exemplo calculamos o valor médio no intervalo B2:B12 .

No entanto, se você quiser calcular o valor médio em uma coluna inteira, poderá digitar B:B .

Isso calculará o valor médio para cada célula na coluna B.

Recursos adicionais

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

VBA: Como escrever funções AVERAGEIF e AVERAGEIFS
VBA: Como escrever funções SUMIF e SUMIFS
VBA: Como escrever funções COUNTIF e COUNTIFS