Média Harmônica

Exercício Básico

Enunciado

Faça uma Function onde selecionadas $n$ células, o procedimento devolva a média harmônica dos valores contidos nelas. $MH = \frac{N}{\frac{1}{x_{1}}+\frac{1}{x_{2}}+\frac{1}{x_{3}}+...+\frac{1}{x_{n}}}$

Conceitos Sugeridos:

Dim - Declara variáveis.
For Each - Repete um grupo de instruções para cada elemento de uma coleção.
Range - Permite a interação do VBA a planilha e suas células.
Function - Function obrigatoriamente irá retornar um valor.

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Crie uma variável que some o inverso $(\frac{1}{x})$ das células para o denominador. Como numerador utilize a contagem de $n$.

Exercício Resolvido

Resolvendo o Problema

Iniciamos definindo os argumentos da função e o tipo de dados de saída
```
Function MeDiAHaRmOnIcA(N As Range) As Double
```

Declamos as variáveis

Dim Casa As Range
Dim ValCasa As Double
Dim Deno As Double

Criamos um loop For Each para cada célula selecionada pela função. Neste loop criamos o denominador da média harmônica que iremos fazer
```
For Each Casa In N
    ValCasa = Casa.Value
    Deno = Deno + (1 / ValCasa)
Next Casa
```
Por fim, determinamos que o resultado da média harmônica será o número de termos dividido pelo denominador que encontramos
```
MeDiAHaRmOnIcA = N.Count / Deno
```

Código Consolidado

    Function MeDiAHaRmOnIcA(N As Range) As Double

    Dim Casa As Range
    Dim ValCasa As Double
    Dim Deno As Double

    For Each Casa In N
        ValCasa = Casa.Value
        Deno = Deno + (1 / ValCasa)
    Next Casa

    MeDiAHaRmOnIcA = N.Count / Deno

    End Function

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO