Vba: como encontrar o valor mínimo no intervalo

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
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:

Relacionado: Como encontrar o valor máximo no intervalo usando VBA

Exemplo 1: Calcule o valor mínimo do intervalo usando VBA e exiba os resultados na célula

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

Podemos criar a seguinte macro para fazer isso:

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

Isso nos diz que o valor mínimo na coluna de pontos é 10.

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

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

Podemos criar a seguinte macro para fazer isso:

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

A caixa de mensagem nos informa que o valor mínimo no intervalo B2:B11 é 10 .

Observe que neste exemplo calculamos o valor mínimo no intervalo B2:B11 .

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

Isso calculará o valor mínimo 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