• Exemplo 1: Calcular o valor máximo do intervalo utilizando o VBA e apresentar os resultados na célula
• Exemplo 2: Calcular o valor máximo do intervalo utilizando o VBA e apresentar os resultados na caixa de mensagens

É possível utilizar a seguinte sintaxe básica para calcular o valor máximo num intervalo utilizando o VBA:

 Sub MaxValue() 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, em vez disso, pretender apresentar o valor máximo numa caixa de mensagem, pode utilizar a seguinte sintaxe:

 Sub MaxValue() 'Criar uma variável para armazenar o valor máximo Dim maxValue As Single 'Calcular o valor máximo no intervalo maxValue = WorksheetFunction.Max(Range(" B2:B11 ")) 'Apresentar o resultado MsgBox " Valor máximo no intervalo: " & maxValue 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 o valor máximo do intervalo utilizando o VBA e apresentar os resultados na célula

Suponhamos que gostaríamos de calcular o valor máximo na coluna de pontos e apresentar os resultados numa célula específica.

Para o efeito, podemos criar a seguinte macro:

 Sub MaxValue() Range(" D2 ") = WorksheetFunction.Max(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 43 .

Isto diz-nos que o valor máximo na coluna dos pontos é 43.

Exemplo 2: Calcular o valor máximo do intervalo utilizando o VBA e apresentar os resultados na caixa de mensagens

Suponhamos que, em vez disso, gostaríamos de calcular o valor máximo na coluna de pontos e apresentar os resultados numa caixa de mensagem.

Para o efeito, podemos criar a seguinte macro:

 Sub MaxValue() 'Criar uma variável para armazenar o valor máximo Dim maxValue As Single 'Calcular o valor máximo no intervalo maxValue = WorksheetFunction.Max(Range(" B2:B11 ")) 'Apresentar o resultado MsgBox " Valor máximo no intervalo: " & maxValue End Sub 

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

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

Note-se que, neste exemplo, calculámos o valor máximo no intervalo B2:B11 .

No entanto, se quiser calcular o valor máximo de uma coluna inteira, pode escrever B:B em vez disso.

Isto irá calcular o valor máximo em toda a coluna B.