Entrar Ainda não tem acesso?
1
resposta

Exibir o maior valor, inclusive para intervalos negativos

Referente ao curso Excel VBA: automatize tarefas diárias mesmo não sendo programador, no capítulo Criando Repetições e atividade Juntando For - Each com IF

por MARCOS RAMOS
| 234.5k xp | 20 posts
Consultor Técnico

Segue a minha implementação para exibir o maior valor em um intervalo, inclusive para intervalos negativos.

Function maiorNoIntervalo(intervalo As Range) As Double

    aux = intervalo.Cells(1, 1).Value

    For Each valor In intervalo
        If valor > aux Then
            aux = valor
        End If
    Next

    maiorNoIntervalo = aux

End Function
1 resposta
por João Vitor de Miranda
| 1423.8k xp | 1891 posts
Instrutor Instrutor de Data Science

Olá Marcos, tudo bem? Espero que sim!

Muito bom Marcos, ficou muito bem feito e funciona perfeitamente.

Somente nos casos em que a célula é vazia, o valor é entendido como 0, então é necessário tomar cuidado com essa parte, caso existam somente valores negativos e células vazias.

Bons estudos!