- 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.