Vba: como encontrar o valor máximo no intervalo

Você pode usar a seguinte sintaxe básica para calcular o valor máximo em um intervalo usando VBA:

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

Este exemplo específico calcula o valor máximo no intervalo B2:B11 e atribui o resultado à célula D2 .

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
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 o valor máximo do intervalo usando VBA e exiba os resultados na célula

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

Podemos criar a seguinte macro para fazer isso:

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

Isso nos diz que o valor máximo na coluna de pontos é 43.

Exemplo 2: Calcule o valor máximo do intervalo usando VBA e exiba os resultados na caixa de mensagem

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

Podemos criar a seguinte macro para fazer isso:

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

A caixa de mensagem nos informa que o valor máximo no intervalo B2:B11 é 43 .

Observe que neste exemplo calculamos o valor máximo no intervalo B2:B11 .

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

Isso calculará o valor máximo em toda a 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 adicionar valores em um intervalo