Vba calcular simples móvel média

Média móvel Este exemplo ensina como calcular a média móvel de uma série temporal no Excel. Uma média móvel é usada para suavizar irregularidades (picos e vales) para reconhecer facilmente as tendências. 1. Primeiro, vamos dar uma olhada em nossa série de tempo. 2. No separador Dados, clique em Análise de dados. Nota: não é possível encontrar o botão Análise de dados Clique aqui para carregar o suplemento do Analysis ToolPak. 3. Selecione Média móvel e clique em OK. 4. Clique na caixa Input Range e selecione o intervalo B2: M2. 5. Clique na caixa Intervalo e escreva 6. 6. Clique na caixa Output Range e seleccione a célula B3. 8. Faça um gráfico destes valores. Explicação: porque definimos o intervalo como 6, a média móvel é a média dos 5 pontos de dados anteriores eo ponto de dados atual. Como resultado, os picos e vales são suavizados. O gráfico mostra uma tendência crescente. O Excel não consegue calcular a média móvel para os primeiros 5 pontos de dados porque não existem pontos de dados anteriores suficientes. 9. Repita os passos 2 a 8 para o intervalo 2 eo intervalo 4. Conclusão: Quanto maior o intervalo, mais os picos e vales são suavizados. Quanto menor o intervalo, mais perto as médias móveis são para os pontos de dados reais. Como calcular médias móveis em Excel Excel Data Analysis For Dummies, 2nd Edition O comando Análise de dados fornece uma ferramenta para calcular movimentação e médias exponencialmente suavizadas no Excel. Suponha, por uma questão de ilustração, que você tenha coletado informações diárias sobre temperatura. Você quer calcular a média móvel de três dias 8212 a média dos últimos três dias 8212 como parte de algumas previsões meteorológicas simples. Para calcular médias móveis para este conjunto de dados, execute as seguintes etapas. Para calcular uma média móvel, clique primeiro no botão de comando Dados da análise de dados tab8217s. Quando o Excel exibe a caixa de diálogo Análise de dados, selecione o item Média móvel da lista e clique em OK. O Excel exibe a caixa de diálogo Média móvel. Identifique os dados que você deseja usar para calcular a média móvel. Clique na caixa de texto Intervalo de entrada da caixa de diálogo Média móvel. Em seguida, identifique o intervalo de entrada, digitando um endereço de intervalo de planilha ou usando o mouse para selecionar o intervalo de planilha. Sua referência de intervalo deve usar endereços de célula absolutos. Um endereço de célula absoluto precede a letra da coluna eo número da linha com sinais, como em A1: A10. Se a primeira célula do seu intervalo de entrada incluir uma etiqueta de texto para identificar ou descrever os dados, marque a caixa de seleção Etiquetas na primeira linha. Na caixa de texto Intervalo, informe ao Excel quantos valores devem ser incluídos no cálculo da média móvel. Você pode calcular uma média móvel usando qualquer número de valores. Por padrão, o Excel usa os três valores mais recentes para calcular a média móvel. Para especificar que algum outro número de valores seja usado para calcular a média móvel, insira esse valor na caixa de texto Intervalo. Diga ao Excel onde colocar os dados da média móvel. Use a caixa de texto Range de saída para identificar o intervalo de planilha no qual você deseja colocar os dados de média móvel. No exemplo da folha de cálculo, os dados da média móvel foram colocados na gama de folhas de cálculo B2: B10. (Opcional) Especifique se deseja um gráfico. Se você quiser um gráfico que traça a informação da média móvel, marque a caixa de seleção Saída do gráfico. (Opcional) Indique se você deseja que as informações de erro padrão sejam calculadas. Se você deseja calcular erros padrão para os dados, marque a caixa de seleção Erros Padrão. O Excel coloca valores de erro padrão ao lado dos valores da média móvel. (As informações de erro padrão passam para C2: C10.) Depois de concluir especificando quais informações de média móvel você deseja calcular e onde deseja colocá-las, clique em OK. O Excel calcula as informações da média móvel. Nota: Se o Excel não possui informações suficientes para calcular uma média móvel para um erro padrão, ele coloca a mensagem de erro na célula. Você pode ver várias células que mostram esta mensagem de erro como um value. Here é um código que deve ser útil para aqueles que usam análise técnica na negociação e quer testar estratégias no Excel. Calcula a média móvel simples, linearmente ponderada e exponencial. Além disso, apresentarei e explicarei as etapas para criar o formulário e o código VBA. Inserir um UserForm 8211 Nome: MAForm Adicionar quatro etiquetas dos controles de caixa de ferramentas 8211 Legendas conforme a tela de impressão acima Adicione um ComboBox para a seleção de tipo de média móvel. Foi nomeado comboTypeMA Adicionar dois controles RefEdit para o intervalo de entrada eo intervalo de saída. Adicionar uma caixa de texto para selecionar o período de média móvel Adicionar dois botões: Nome: buttonSubmit, Legenda: Enviar e Nome: buttonCancel, Legenda: Cancelar Para gerar a lista drop-down para seleção de tipo MA e carregar o formulário de usuário, um novo módulo Será inserido com o código abaixo. Os itens de ComboBox serão preenchidos por tipos de médias móveis e o formulário de usuário será carregado. Option Explicit Sub loadMAForm () Com MAFormboTypeMA. RowSource. AddItem Simple. AddItem Ponderado. AddItem Exponential End Com MAForm. Show End Sub Abaixo está o código atribuído ao botão Enviar. Private Sub buttonSubmitClick () Dim inputRange, outputRange As Range O inputRange conterá a série de preços usada para computar as MAs eo outputRange será preenchido com os valores das médias móveis. Dim inputPeriod As Integer O período de média móvel é declarado. Dim inputAddress, outputAddress As String Os intervalos de entrada e saída declarados como string. Se comboTypeMA. Value ltgt Exponential E comboTypeMA. Value ltgt Simples e comboTypeMA. Value ltgt Ponderada True Then MsgBox Selecione um tipo de média móvel da lista. RefInputRange. SetFocus Exit Sub Esta parte do procedimento impõe as primeiras restrições relativas aos dados enviados. Se o tipo de média móvel não estiver contido na lista suspensa, o procedimento não avançará para a próxima etapa e o usuário será solicitado a selecioná-la novamente. ElseIf RefInputRange. Value Then MsgBox Selecione o intervalo de entrada. RefInputRange. SetFocus Sair Sub ElseIf RefOutputRange. Value Then MsgBox Selecione o intervalo de saída. RefOutputRange. SetFocus Exit Sub ElseIf RefInputPeriod. Value Then MsgBox Selecione o período da média móvel. RefInputPeriod. SetFocus Exit Sub ElseIf Not IsNumeric (RefInputPeriod. Value) Em seguida, MsgBox Moving average period deve ser um número. RefInputPeriod. SetFocus Exit Sub End Se outras restrições forem criadas. A faixa de entrada, a faixa de saída eo período de entrada não devem ficar em branco. Além disso, o período de média móvel deve ser um número. InputAddress RefInputRange. Value Definir inputRange Range (inputAddress) outputAddress RefOutputRange. Value Definir outputRange Range (outputAddress) inputPeriod RefInputPeriod. Value Os argumentos para os intervalos inputRange e outputRange serão inputAddress e outputAddress declarados como strings. Se inputRange. Columns. Count ltgt 1 Em seguida, MsgBox intervalo de entrada pode ter apenas uma coluna. RefInputRange. SetFocus Exit Sub O inputRange deve conter apenas uma coluna. ElseIf inputRange. Rows. Count ltgt outputRange. Rows. Count Then MsgBox O intervalo de saída tem um número diferente de linhas do que o intervalo de entrada. RefInputRange. SetFocus Exit Sub End If O inputRange eo outputRange devem ter um número igual de linhas. Dim RowCount As Inteiro RowCount inputRange. Rows. Count Dim cRow As Inteiro ReDim inputarray (1 Para RowCount) Para cRow 1 Para RowCount inputarray (cRow) inputRange. Cells (cRow, 1).Valor A seguir cRow inputarray é declarado como array e it8217s elementos Correspondem aos valores de cada linha do intervalo de entrada. Se inputPeriod gt RowCount Then MsgBox Número de observações selecionadas é amplificador amp RowCount e o período é amplificador amp ampPeriod. O intervalo de entrada deve ter uma quantidade maior ou igual de elementos do que o período selecionado. RefInputRange. SetFocus Exit Sub End Se Outra restrição é adicionada 8211 O intervalo de entrada deve ter uma quantidade maior ou igual de elementos do que o período. Se inputPeriod lt 0 Then MsgBox Moving período médio deve ser superior a 0. RefInputPeriod. SetFocus Exit Sub End If O período de média móvel deve ser maior que zero. ReDim outputarray (inputPeriod To RowCount) As Variant Também as dimensões de array de outputarray são determinadas. O limite inferior da matriz é o valor inputPeriod eo limite superior é o valor de RowCount (o número de elementos na entradaRange). Abaixo parte do procedimento calculou a média móvel simples, se a seleção para comboTypeMA é simples. SMA ----------------------------------------- Se comboTypeMA. Value Simples Então Dim i , J As Integer Dim temp As Double Para i inputPeriod Para RowCount temp 0 Para j (i - (inputPeriod - 1)) Para i temp temp inputarray (j) Próxima j outputarray (i) temp inputPeriod outputRange. Cells (i, 1).Value outputarray (i) Next i outputRange. Cells (0, 1).Valor SMA (amp inputPeriod amp) Basicamente, o procedimento calcula a média móvel dos últimos x números (x é igual ao inputPeriod), começando com o elemento de O inputarray igual ao inputPeriod. Abaixo está um exemplo simplificado, que mostra cada passo do procedimento. Neste exemplo, há quatro números (no01, no02, no03 e no04) da linha 1 à linha 4 e o período da média móvel é 3. Depois de cada nova média móvel ser calculada, cada célula da saídaRange tomará o valor da Outputarray. E depois de todas as médias móveis são computadas, na célula acima outputRange um título será inserido contendo o tipo de média móvel e período. Esta próxima parte calculará a média móvel exponencial. EMA ------------------------------------------ ElseIf comboTypeMA. Value Exponential Then Dim Alfa As Alfa 2 duplo (inputPeriod 1) Para j 1 Para inputPeriod temp temp inputarray (j) Próxima j outputarray (inputPeriod) temp inputPeriod Primeiro o valor de alfa é determinado. Porque na computação, o valor da EMA é baseado na EMA anterior, o primeiro será a média móvel simples. Para i inputPeriod 1 Para RowCount outputarray (i) outputarray (i - 1) alfa (inputarray (i) - outputarray (i - 1)) Próximo i Começando com a segunda média móvel, eles serão calculados com base na fórmula acima: Anterior EMA mais alfa multiplicado pela diferença entre o número atual do inputarray eo valor EMA anterior. Para i inputPeriod Para RowCount outputRange. Cells (i, 1).Value outputarray (i) Next i outputRange. Cells (0, 1).Value EMA (amp inputPeriod amp) Assim como o código para SMA, o outputarray será preenchido e A célula acima outputarray irá representar o tipo e período da média móvel. Abaixo está o código para calcular a média móvel ponderada. WMA ------------------------------------------ ElseIf comboTypeMA. Value Weighted Then Dim Temp2 As Integer Para i inputPeriod Para RowCount temp 0 temp2 0 Para j (i - (inputPeriod - 1)) Para i temp temp inputarray (j) (j - i entradaPeriod) temp2 temp2 (j - i inputPeriod) ) Temp temp2 outputRange. Cells (i, 1).Value outputarray (i) Próxima i outputRange. Cells (0, 1).Value WMA (amp inputPeriod amp) End If A tabela abaixo contém as etapas para calcular cada variável usada para o WMA. Assim como no exemplo anterior, neste aqui há para números na entradaRange. Eo período de entrada é 3. Abaixo está o código final do procedimento, que descarrega o formulário do usuário. Unload MAForm End Sub O procedimento abaixo é para o botão Cancelar. Ele será adicionado no mesmo módulo. Private Sub buttonCancelClick () Descarregar MAForm End SubMoving Cálculo médio Cálculo de média móvel Cálculo de média móvel Estou tentando calcular uma média móvel para uma série de dados. Eu quero gerar a média móvel para cada ponto dentro dos dados, a fim de mostrar em um gráfico. Enfim, abaixo é um exemplo do MS Support. Eu segui à letra, mas mina não dá uma média móvel. Ele repete o mesmo ponto de dados uma e outra vez (o primeiro ponto de dados). Então, eu não acredito que a função está encontrando o startdate na linha MyRST. Seek, portanto, apenas retornando o primeiro ponto de dados. Finalmente (talvez vai fazer isso realmente fácil) Estou confuso sobre como os índices de trabalho. Eu pensei que você poderia ter apenas uma chave primária, mas aparentemente você pode criar várias restrições de campo. Eu tentei fazer isso com a seguinte consulta de definição de dados: ALTER TABLE Tabela1 ADD CONSTRAINT NoDupes ÚNICO (CurrencyType, TransactionDate) Desculpe a duração desta postagem. Eu aprecio sua ajuda. A função de exemplo a seguir calcula as médias móveis com base em uma tabela com uma chave primária de vários campos. Os valores semanais de moedas estrangeiras são usados ​​para este exemplo. Para criar a função de exemplo, execute estas etapas: Crie a tabela a seguir e salve-a como Tabela1: Table: Table1 --------------------------- -------------- Nome do campo: CurrencyType Tipo de dados da chave primária: Tamanho do campo de texto: 25 Nome do campo: TransactionDate Chave primária Tipo de dados: DateTime Formato: Data abreviada Nome do campo: Rate Tipo de dados: Currency Decimal Places: 4 Exibir a tabela no modo folha de dados e digite os seguintes valores: CurrencyType TransactionDate Rate ------------------------------- ------------- Yen 8693 0,0079 Yen 81393 0,0082 Yen 82093 0,0085 Yen 82793 0,0088 Yen 9393 0,0091 Marca 8693 0,5600 Marca 81393 0,5700 Marca 82093 0,5800 Marca 82793 0,5900 Marca 9393 0.6000 Abra um novo módulo e escreva o Funções MAvgs (Períodos como Integer, StartDate, TypeName) Dim MyDB como DATABASE, MyRST Como Recordset, MySum como Double Dim i, x Set MyDB CurrentDb () Set MyRB MyDB. OpenRecordset (Table1) Em erro Retomar Next MyRST. Index PrimaryKey x Períodos - 1 ReDim Store (x) MySum 0 Para i 0 Para x MyRST. MoveFirst MyRST. Seek, TypeName, StartDate Essas duas variáveis ​​devem estar na mesma ordem que os campos de chave primária em sua tabela. Store (i) MyRSTRate Se eu lt x Em seguida, StartDate StartDate - 7 O 7 aqui assume dados semanais 1 para dados diários. Se StartDate lt 8693 Then MAvgs Null: Exit Function 8693 é substituído com a data mais antiga dos dados na tabela. MySum Store (i) MySum Próxima i MAvgs MySum Períodos MyRST. Close End Function Crie a seguinte consulta com base na tabela Table1: Query: Query1 --------------------- ---------------------------------- Campo: CurrencyType Campo: TransactionDate Campo: Rate Campo: Expr1: MAvgs (3 , TransactionDate, CurrencyType) NOTA: Esta consulta irá gerar uma média móvel de três semanas dos dados da taxa. Para calcular uma média móvel mais longa ou mais curta, altere o número 3 na coluna de consultas Expr1 para o valor que deseja calcular. Execute a consulta. Observe que você vê a seguinte média móvel de três semanas para cada moeda. Um valor Nulo indica que não havia valores anteriores suficientes para calcular essa média de semanas. Moeda Tipo TransaçãoData Taxa Expr1 Marca 080693 0,5600 Marca 081393 0,5700 Marca 082093 0,5800 0,57 Marca 082793 0,5900 0,58 Marca 090393 0.6000 0.59 Yen 080693 0.0079 Yen 081393 0.0082 Yen 082093 0.0085 0.0082 Yen 082793 0.0088 0.0085 Yen 090393 0.0091 0.0088 RE: Moving Average Cálculo dhookom (Programador) 28 Jun 10 21:15 Quantos anos tem esse código Não usa explicitamente DAO e não menciona que isso não funcionará com tabelas vinculadas. Dim MyDB como DAO. Database, MyRST como DAO. Recordset. Eu usaria uma subconsulta em vez de um conjunto de registros. Ele pode parecer algo como: SELECT CurrencyType, TransactionDate, Rate, (SELECT Avg (Taxa) FROM Tabela1 B WHERE A. CurrencyType B. CurrencyType E A. TransactionDate ENTRE B. TransactionDate - 14 AND B. TransactionDate) FROM Tabela1 A RE: Moving Cálculo médio Isso é realmente perfeito. Eu realmente aprecio sua ajuda. No entanto, o código que você deu é calcular a média móvel de 14 dias para a frente (colocando a média móvel no registro para o dia 1 da média, onde eu queria que ela fosse uma média para trás, colocada no registro 14). Eu mudei apenas ligeiramente para o seguinte e ele parece estar funcionando SELECT A. CurrencyType, A. TransactionDate, A. Rate, (SELECT Avg (Rate) FROM Tabela1 B WHERE A. CurrencyType B. CurrencyType E B. TransactionDate ENTRE A. TransactionDate - 14 AND A. TransactionDate) AS Expr1 FROM Table1 AS A Você pode ver, tudo o que fiz foi trocar A para B na cláusula where. Esta é uma ajuda muito grande para mim e eu realmente aprecio isso. Eu não vi codificação como este antes, e honestamente, eu realmente não entendo. Eu não sei como o SQL entende o que B e A são. Estou assumindo que eles estão criando algum tipo de referência alternativa para Table1. Se você pode dar qualquer orientação eu realmente aprecio isso. Além disso, talvez alguma referência ao material que eu poderia olhar Estou sempre muito animado para aprender algo novo sobre VBASQL, e eu realmente aprecio a sua ajuda RE: Moving Average Cálculo PHV (MIS) 29 Jun 10 12:22 compreende o que B e A São eles são alias es RE: Moving Average Cálculo Obrigado, PHV. É fazer sentido melhor já RE: Moving Average Cálculo joshery420 (TechnicalUser) 6 Jul 10 15:06 Uau, nunca olhou SQL vista antes. Extremamente útil. Estou tentando obter este código para funcionar no meu próprio conjunto de dados e Im preso em uma questão específica. Pd2004, não tenho certeza se o novo código de subconsulta funcionou o mesmo que o seu antigo código VBA ou não, mas com os meus dados ainda mostra a média de rolamento, mesmo se não houver dias suficientes para criar esse comprimento de uma média. por exemplo. Se eu estiver executando uma média de rolamento de 7 dias, o dia 1 mostra os mesmos dados na coluna 7DayAvg como na coluna de dados diários. Dia 2 mostraria a média dos dias 1 e 2, etc. Qualquer um de vocês sabe como corrigir isso por acaso Também, obrigado pela grande dica de código PHV. RE: Moving Average Cálculo joshery420 (TechnicalUser) 6 Jul 10 15:08 Woops, significou para agradecer dhookom para a dica de código, não PHV. Mas hey, obrigado a ambos. XD RE: Cálculo de média móvel Vou deixar as melhores soluções para os profissionais aqui, mas você pode ver no meu post original como o exemplo da Ajuda da Microsoft tenta lidar com isso. Aqui está o código: Se StartDate lt 8693 Then MAvgs Null: Exit Function 8693 é substituído com a data mais antiga dos dados na tabela. Eles estão apenas saindo da função se a data não caber os critérios. Eu não sei se você poderia incorporar algo assim no código de aliases fornecido pelo dhookem. Eu não gosto da sua maneira de lidar com isso, e eu suspeito que dhookem irá fornecer uma solução muito mais elegante. Para meus propósitos a questão que você está descrevendo não é uma preocupação, mas eu estarei interessado em ver quaisquer soluções. RE: Moving Average Cálculo dhookom (Programmer) 6 Jul 10 17:05 Você pode tentar usar IIf () para testar a contagem do número de registros. Cuidado: código de bloco de notas não testado segue: SELECT A. CurrencyType, A. TransactionDate, A. Rate, IIF ((SELECT Contagem (Taxa) FROM Tabela1 C WHERE A. CurrencyType C. CurrencyType E C. TransactionDate ENTRE A. TransactionDate - 14 AND A. TransactionDate) 7, (SELECT Avg (Taxa) FROM Table1 B WHERE A. CurrencyType B. CurrencyType E B. TransactionDate ENTRE A. TransactionDate - 14 E A. TransactionDate), Null) AS Expr1 FROM Table1 como A RE: Moving Average Cálculo