Excel Vba Moving Average Function

Média móvel Este exemplo ensina como calcular a média móvel de uma série temporal no Excel. Um avearge móvel é usado para suavizar irregularidades (picos e vales) para reconhecer facilmente as tendências. 1. Primeiro, vamos dar uma olhada em nossas séries temporais. 2. Na guia Dados, clique em Análise de dados. Nota: não consigo encontrar o botão Análise de dados Clique aqui para carregar o complemento Analysis ToolPak. 3. Selecione Média móvel e clique em OK. 4. Clique na caixa Intervalo de entrada e selecione o intervalo B2: M2. 5. Clique na caixa Intervalo e digite 6. 6. Clique na caixa Gama de saída e selecione a célula B3. 8. Traçar um gráfico desses valores. Explicação: porque definimos o intervalo para 6, a média móvel é a média dos 5 pontos de dados anteriores e o ponto de dados atual. Como resultado, picos e vales são alisados. O gráfico mostra uma tendência crescente. O Excel não pode calcular a média móvel para os primeiros 5 pontos de dados porque não há suficientes pontos de dados anteriores. 9. Repita os passos 2 a 8 para o intervalo 2 e o intervalo 4. Conclusão: quanto maior o intervalo, mais os picos e os vales são alisados. Quanto menor o intervalo, mais próximas as médias móveis são para os pontos reais de dados. Função Média Normal Abaixo, examinaremos um programa no Excel VBA que cria uma Função Definida pelo Usuário que calcula a média de um intervalo selecionado aleatoriamente, excluindo um ou mais valores Que são outliers e não deve ser calculada a média. As funções definidas pelo usuário precisam ser colocadas em um módulo. 1. Abra o Editor do Visual Basic e clique em Inserir, Módulo. 2. Adicione a seguinte linha de código: Função CUSTOMAVERAGE (rng As Range, lower As Integer. Upper As Integer) O nome da nossa função é CUSTOMAVERAGE. A parte entre os colchetes significa que damos ao Excel VBA um intervalo e duas variáveis ​​Inteiras como entrada. Nós nomeamos nosso range rng, uma variável Integer que chamamos de menor, e uma variável Integer que chamamos superior, mas você pode usar qualquer nome. 3. Em seguida, declaramos um objeto Range e duas variáveis ​​do tipo Integer. Chamamos a célula do objeto Range. Uma variável Integer que chamamos de total e uma variável Integer que contamos contagem. Dim cell As Range, total como Integer. Count As Integer 4. Queremos verificar cada célula em um intervalo selecionado aleatoriamente (esse intervalo pode ser de qualquer tamanho). No Excel VBA, você pode usar o loop For Each Next para isso. Adicione as seguintes linhas de código: Para cada célula Em rng Nota: rng e célula são escolhidas aleatoriamente aqui, você pode usar qualquer nome. Lembre-se de se referir a esses nomes no resto do seu código. 5. Em seguida, verificamos cada valor nesse intervalo se cair entre os dois valores (inferior e superior). Se for verdade, incrementamos o total pelo valor da célula e incrementamos a contagem por 1. Adicione as seguintes linhas de código ao loop. Se cell. Value gt lower E cell. Value lt upper Then total total count. Value count count 1 End If 6. Para retornar o resultado desta função (a média desejada), adicione a seguinte linha de código fora do loop. Contagem total de CUSTOMAVERAGE 7. Não se esqueça de encerrar a função. Adicione a linha: 8. Agora você pode usar essa função como qualquer outra função do Excel para calcular a média dos números que se enquadram entre dois valores. Como um cheque, você pode excluir todos os valores inferiores a 10 e superiores a 30 e usar a função média padrão no Excel para ver se o Excel calcula a mesma média que nossa função média personalizada. Nossa função média personalizada funciona Nota: esta função está disponível apenas nesta pasta de trabalho.