Vba calculate simple glidande medelvärde

Flyttande medelvärde I det här exemplet lär du dig hur du beräknar glidande medelvärdet för en tidsserie i Excel. Ett glidande medel används för att jämna ut oegentligheter (toppar och dalar) för att enkelt kunna känna igen trender. 1. Låt oss först titta på våra tidsserier. 2. Klicka på Dataanalys på fliken Data. Obs! Kan inte hitta knappen Data Analysis Klicka här för att ladda verktyget Analysis ToolPak. 3. Välj Flytta genomsnitt och klicka på OK. 4. Klicka i rutan Inmatningsområde och välj intervallet B2: M2. 5. Klicka i rutan Intervall och skriv 6. 6. Klicka i rutan Utmatningsområde och välj cell B3. 8. Skriv ett diagram över dessa värden. Förklaring: Eftersom vi ställer intervallet till 6 är det rörliga genomsnittet genomsnittet för de föregående 5 datapunkterna och den aktuella datapunkten. Som ett resultat utjämnas toppar och dalar. Diagrammet visar en ökande trend. Excel kan inte beräkna det rörliga genomsnittet för de första 5 datapunkterna, eftersom det inte finns tillräckligt med tidigare datapunkter. 9. Upprepa steg 2 till 8 för intervall 2 och intervall 4. Slutsats: Ju större intervall desto mer toppar och dalar släpper ut. Ju mindre intervallet desto närmare de rörliga medelvärdena är de faktiska datapunkterna. Hur man beräknar rörliga medelvärden i Excel Excel-dataanalys för dummies, 2: a utgåvan Dataanalyskommandot ger ett verktyg för att beräkna rörliga och exponentiellt jämnade medelvärden i Excel. Antag, för att illustrera det, att du har uppsamlat daglig temperaturinformation. Du vill beräkna det tre dagars glidande medlet 8212 i genomsnitt av de senaste tre dagarna 8212 som en del av några enkla väderprognoser. För att beräkna glidmedel för denna dataset, gör följande steg. För att beräkna ett glidande medelvärde klickar du först på kommandoknappen Data tab8217s dataanalys. När Excel visar dialogrutan Dataanalys väljer du objektet Flyttande medel från listan och klickar sedan på OK. Excel visar dialogrutan Rörlig medelvärde. Identifiera de data som du vill använda för att beräkna det glidande medlet. Klicka i textrutan Inmatningsområde i dialogrutan Rörlig medelvärde. Identifiera sedan ingångsintervallet, antingen genom att skriva in en arbetsbladets intervalladress eller genom att använda musen för att välja arbetsbladets intervall. Din referensreferens bör använda absoluta celladresser. En absolut celladress föregår kolumnbokstaven och radnumret med tecken, som i A1: A10. Om den första cellen i ditt inmatningsområde innehåller en textetikett för att identifiera eller beskriva dina data markerar du kryssrutan Etiketter i första raden. I Excel-textrutan berätta Excel hur många värden som ska inkluderas i den genomsnittliga beräkningen. Du kan beräkna ett glidande medelvärde med ett antal värden. Som standard använder Excel de senaste tre värdena för att beräkna det glidande genomsnittet. För att ange att ett annat antal värden ska användas för att beräkna det glidande genomsnittet, ange det värdet i textrutan Intervall. Berätta Excel där du ska placera de glidande medelvärdena. Använd textrutan Utmatningsområde för att identifiera det arbetsbladsintervall som du vill placera den rörliga genomsnittsdata för. I kalkylbladsexemplet har den glidande genomsnittsdata placerats i arbetsarkets intervall B2: B10. (Valfritt) Ange om du vill ha ett diagram. Om du vill ha ett diagram som visar den glidande genomsnittliga informationen markerar du kryssrutan Diagramutmatning. (Valfritt) Ange om du vill beräkna standard felinformation. Om du vill beräkna standardfel för data väljer du kryssrutan Standardfel. Excel placerar standardfelvärden bredvid de glidande medelvärdena. (Standardfelinformationen går in i C2: C10.) När du har slutfört ange vilken flyttbar genomsnittsinformation du vill ha beräknad och var du vill placera den, klicka på OK. Excel beräknar glidande medelinformation. Obs! Om Excel doesn8217t har tillräckligt med information för att beräkna ett glidande medelvärde för ett standardfel placerar det felmeddelandet i cellen. Du kan se flera celler som visar detta felmeddelande som ett värde. Här är en kod som bör vara till hjälp för dem som använder teknisk analys i handel och vill testa strategier i Excel. Den beräknar det enkla, linjärt vägda och exponentiella glidande medlet. Vidare kommer jag att presentera och förklara stegen för att skapa formuläret och VBA-koden. Infoga en UserForm 8211 Namn: MAForm Lägg till fyra etiketter från Verktygslådans kontroller 8211 Bildtext enligt ovan Skriv ut skärm Lägg till en ComboBox för det glidande genomsnittliga typvalet. Den heter comboTypeMA Lägg till två RefEdit-kontroller för ingångsintervall och utgångsintervall. Lägg till en textbox för att välja den glidande medeltiden Lägg till två knappar: Namn: knappSänd, Bildtext: Skicka och Namn: Knapp Avbryt, Bildtext: Avbryt För att generera rullgardinsmenyn för MA typval och ladda användarformuläret, en ny modul kommer att infogas med nedanstående kod. ComboBox-objekten som fylls i genom att flytta medelvärden och användarformuläret laddas. Alternativ Explicit SublastMAForm () Med MAFormboTypeMA. RowSource. AddItem Simple. AddItem Weighted. AddItem Exponentiell Slut Med MAForm. Show End Sub Nedan är koden som tillskrivs Submit-knappen. Privat Sub-knappSubmitClick () Dim inputRange, outputRange As Range Den inputRange kommer att innehålla den prisserie som används för att beräkna MAs och outputRange kommer att fyllas med värdena för glidande medelvärden. Dim inputPeriod As Integer Den glidande medeltiden förklaras. Dim inputAddress, outputAddress As String Ingångs - och utgångsområdena deklareras som sträng. Om comboTypeMA. Value ltgt Exponential och comboTypeMA. Value ltgt Simple och comboTypeMA. Value ltgt Weighted True Då MsgBox Vänligen välj en glidande genomsnitts typ från listan. RefInputRange. SetFocus Exit Sub Denna del av proceduren styr de första begränsningarna gällande den inlämnade data. Om den glidande genomsnittstypen inte finns i rullgardinslistan går proceduren inte vidare till nästa steg och användaren uppmanas att välja den igen. ElseIf RefInputRange. Value Sedan MsgBox Vänligen välj ingångsområde. RefInputRange. SetFocus Exit Sub ElseIf RefOutputRange. Value Sedan MsgBox Vänligen välj utmatningsområde. RefOutputRange. SetFocus Exit Sub ElseIf RefInputPeriod. Value Sedan MsgBox Vänligen välj den glidande genomsnittliga perioden. RefInputPeriod. SetFocus Exit Sub ElseIf Not IsNumeric (RefInputPeriod. Value) Sedan MsgBox Flyttande genomsnittlig period måste vara ett nummer. RefInputPeriod. SetFocus Exit Sub End Om andra begränsningar skapas. Inmatningsintervall, utgångsintervall och ingångsperiod får inte vara tomma. Den rörliga genomsnittliga perioden måste också vara ett tal. inputAddress RefInputRange. Value Ange inputRange Range (inputAddress) outputAddress RefOutputRange. Value Ange outputRange Range (outputAddress) inputPeriod RefInputPeriod. Value Argumenten för inputRange och outputRange intervaller kommer att införasAdAdress och outputAddress anges som strängar. Om inputRange. Columns. Count ltgt 1 Sedan kan MsgBox Input-område endast ha en kolumn. RefInputRange. SetFocus Exit Sub Den inputRange måste innehålla endast en kolumn. ElseIf inputRange. Rows. Count ltgt outputRange. Rows. Count Sedan har MsgBox utgångsintervall ett annat antal rader än ingångsintervallet. RefInputRange. SetFocus Exit Sub End Om inputRange och outputRange måste ha ett lika antal rader. Dim RowCount som helhet RowCount inputRange. Rows. Count Dim cRow som helhet ReDim inputarray (1 Till RowCount) För cRow 1 Till RowCount inputarray (cRow) inputRange. Cells (cRow, 1).Value Nästa cRow inputarray förklaras som array och it8217s element motsvarar värdena från varje rad i ingångsintervallet. Om inputPeriod gt RowCount Sedan MsgBox Antal valda observationer är ampere RowCount amp och perioden är amp inputPeriod amp. Inmatningsområdet måste ha en högre eller lika stor mängd element än den valda perioden. RefInputRange. SetFocus Exit Sub End Om en annan begränsning läggs till 8211 Inmatningsområdet måste ha en högre eller lika stor mängd element än perioden. Om inputPeriod lt 0 Då MsgBox Rörlig medelperiod måste vara högre än 0. RefInputPeriod. SetFocus Exit Sub End Om den glidande genomsnittliga perioden måste vara högre än noll. ReDim outputarray (inputPeriod To RowCount) Som variant Även arraydimensionerna för outputarray bestäms. Den nedre gränsen för arrayen är inputPeriod-värdet och övre gränsen är värdet av RowCount (antalet element i inputRange). Nedanför en del av proceduren beräknades det enkla glidande medlet, om valet för comboTypeMA är enkelt. SMA ----------------------------------------- Om comboTypeMA. Value Simple Då Dim i , j Som heltal Dim temp Som dubbel För jag inputPeriod To RowCount temp 0 För j (i - (inputPeriod - 1)) Till jag temp temp inputarray (j) Nästa j outputarray (i) temp inputPeriod outputRange. Cells (i, 1).Value outputarray (i) Nästa i outputRange. Cells (0, 1).Value SMA (amp inputPeriod amp) I grunden beräknar proceduren det glidande medlet för de sista x-talen (x är lika med inputPeriod), med början av elementet i ingångsraden är lika med ingångsperioden. Nedan visas ett förenklat exempel som visar varje steg i proceduren. I det här exemplet finns det fyra nummer (no01, no02, no03 och no04) från rad 1 till rad 4 och den glidande medeltiden är 3. Efter varje nytt glidande medelvärde beräknas varje cell i utgångsläget ta värdet från outputarray. Och efter alla beräknade medelvärden beräknas, i cellen ovanför outputRange kommer en titel att införas som innehåller den glidande genomsnitts typen och perioden. Denna nästa del kommer att beräkna exponentiell glidande medelvärde. EMA ------------------------------------------ ElseIf comboTypeMA. Value Exponential Then Dim alfa As Double alpha 2 (inputPeriod 1) För j 1 Till inputPeriod temp temp inputarray (j) Nästa j outputarray (inputPeriod) temp inputPeriod Först bestäms värdet av alfa. Eftersom beräkningen är baserad på EMA baserad på tidigare EMA, kommer den första att vara det enkla glidande medlet. För jag inputPeriod 1 Till RowCount outputarray (i) outputarray (i - 1) alpha (inputarray (i) - outputarray (i - 1)) Nästa jag Börjar med det andra glidande medlet, de kommer att beräknas baserat på ovanstående formel: tidigare EMA plus alfa multiplicerad med skillnaden mellan det aktuella numret från ingångsraden och det tidigare EMA-värdet. För jag inputPeriod To RowCount outputRange. Cells (i, 1).Value outputarray (i) Nästa jag outputRange. Cells (0, 1).Value EMA (amp inputPeriod amp) Precis som koden för SMA kommer outputarrayen att fyllas och cellen ovanför utmatningsraden representerar typen och perioden för det glidande medlet. Nedan är koden för att beräkna det vägda glidande medlet. WMA ------------------------------------------ ElseIf comboTypeMA. Value Weighted Then Dim temp2 Som heltal För jag ingångPeriod Till RowCount temp 0 temp2 0 För j (i - (inputPeriod - 1)) Till jag temp temp inputarray (j) (j - i inputPeriod) temp2 temp2 (j - i inputPeriod) Nästa j outputarray ) temp temp2 outputRange. Cells (i, 1).Value outputarray (i) Nästa jag outputRange. Cells (0, 1).Value WMA (amp inputPeriod amp) Slut Om tabellen nedan innehåller stegen för att beräkna varje variabel som används för WMA-beräkning. Precis som i föregående exempel finns det i siffror i inputRange. och inmatningsperioden är 3. Nedan är procedurens slutkod, som avlastar användarformuläret. Lossa MAForm End Sub Underproceduren är för Cancel-knappen. Den läggs till i samma modul. Privat Sub-knappCancelClick () Avsluta MAForm End SubMoving Genomsnittlig Beräkning Flyttande Genomsnittlig Beräkning Flyttande Genomsnittlig Beräkning Jag försöker beräkna ett glidande medelvärde för en serie data. Jag vill generera det glidande medlet för varje punkt i data, för att visa i en graf. Hur som helst, nedan är ett exempel från MS Support. Jag har följt till brevet, men min ger inte ett glidande medelvärde. Den upprepar samma datapunkt om och om igen (den första datapunkten). Så jag tror inte att funktionen är att hitta startdatumet i MyRST. Seek-linjen, och returnerar därför den första datapunkten. Slutligen (kanske kommer det att bli så enkelt) Jag är förvirrad över hur indexen fungerar. Jag trodde att du bara kunde ha en primär nyckel, men du kan tydligen skapa flera fältbegränsningar. Jag har försökt att göra det med följande datadefinitionsfråga: ALTER TABLE Tabell1 ADD CONSTRAINT NoDupes UNIQUE (CurrencyType, TransactionDate) Tyvärr om längden på det här inlägget. Jag uppskattar din hjälp. Följande provfunktion beräknar glidande medelvärden baserat på ett bord med en primärnyckel med flera fält. De veckovisa värdena för utländska valutor används för detta exempel. Gör följande för att skapa provfunktionen: Skapa följande tabell och spara den som Tabell 1: Tabell: Tabell 1 --------------------------- -------------- Fältnamn: ValutaTyp Primärtangentdatatyp: Textfältstorlek: 25 Fältnamn: TransaktionData Primärtangentdatatyp: Datumtidsformat: Kort datum Fältnamn: Betygsdatatyp: Valuta Decimala platser: 4 Visa tabellen i databladvy och ange följande värden: CurrencyType TransactionDate Rate ------------------------------- ------------- Yen 8693 0.0079 Yen 81393 0.0082 Yen 82093 0.0085 Yen 82793 0.0088 Yen 9393 0.0091 Mark 8693 0.5600 Mark 81393 0.5700 Mark 82093 0.5800 Mark 82793 0.5900 Mark 9393 0.6000 Öppna en ny modul och skriv in Följande funktioner: Funktion MAvgs (Perioder som heltal, StartDate, Typnamn) Dimma MyDB Som DATABASE, MyRST Som RecordSet, MySum As Double Dim I, x Ställ in MyDB CurrentDb () Ange MyRST MyDB. OpenRecordset (Tabell1) Vid fel Fortsätt Nästa MyRST. Index PrimaryKey x Perioder - 1 ReDim Store (x) MySum 0 För i 0 till x MyRST. MoveFirst MyRST. Seek, TypeName, StartDate Dessa två variabler ska vara i samma ordning som de primära nyckelfälten i din tabell. Store (i) MyRSTRate Om I lt x Då StartDate StartDate - 7 De 7 här antar veckodata 1 för dagliga data. Om StartDate lt 8693 Då MAvgs Null: Exit Function 8693 ersätts med det tidigaste datumet för data i din tabell. MySum Store (i) MySum Next I MAvgs MySum Periods MyRST. Close End Function Skapa följande fråga baserat på Table1-tabellen: Query: Query1 --------------------- ---------------------------------- Fält: ValutaTypfält: Transaktionsdatumsfält: Betygsfält: Expr1: MAvgs (3 , TransactionDate, CurrencyType) OBS! Den här frågan kommer att generera ett treveckors glidande medelvärde av kursdata. För att beräkna ett längre eller kortare glidande medelvärde, ändra nummer 3 i Querys Expr1-kolumnen till det värde du vill beräkna. Kör frågan. Observera att du ser följande treveckors glidande medelvärde för varje valuta. Ett Null-värde indikerar att det inte fanns tillräckligt med tidigare värden för att beräkna det genomsnittliga veckan. ValutaTyp TransaktionDate Ränta Expr1 Mark 080693 0.5600 Mark 081393 0.5700 Mark 082093 0.5800 0.57 Mark 082793 0.5900 0.58 Mark 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: Rörlig medelberäkning dhookom (Programmerare) 28 Jun 10 21:15 Hur gammal är den koden Den använder inte explicit DAO och nämner inte att detta inte fungerar med länkade tabeller. Dim MyDB som DAO. Database, MyRST som DAO. Recordset. Jag skulle använda en underfråga snarare än en recordset. Det kan se ut som om: VÄLJ ValutaTyp, Transaktionsdatum, Betygsätt, (VÄLJ Gem (Ränta) FRÅN TABLE 1 B VAR A. CurrencyType B. CurrencyType OCH A. TransactionDate MELLAN B. TransactionDate - 14 AND B. TransactionDate) FRÅN TABLE 1 A RE: Moving Genomsnittlig beräkning Det är verkligen perfekt. Jag uppskattar verkligen din hjälp. Koden du gav beräknar emellertid det framåtriktade 14-dagars glidande genomsnittet (placerar glidande medelvärde i posten för dag 1 i genomsnittet, där jag ville att det skulle vara ett bakåtblickande medelvärde, placerat i post 14). Jag ändrade bara något till följande och det verkar fungera SELECT A. CurrencyType, A. TransactionDate, A. Rate, (VÄLJ Gem (Pris) FRÅN TABLE 1 B VAR A. CurrencyType B. CurrencyType OCH B. TransactionDate MELLAN A. TransactionDate - 14 OCH A. TransactionDate) AS Expr1 FRÅN TABELL 1 AS A Du kan se, allt jag gjorde var utbyte A för B i var klausulen. Det här är en riktigt stor hjälp till mig och jag uppskattar det verkligen. Jag har inte sett kodning så här tidigare, och ärligt talat förstår jag inte riktigt det. Jag vet inte hur SQL förstår vad B och A är. Jag antar att de skapar någon form av alternativ hänvisning till tabell 1. Om du kan ge någon vägledning skulle jag verkligen uppskatta det. Också, kanske lite referens till material som jag kunde titta på Jag är alltid väldigt exalterad att lära mig något nytt om VBASQL, och jag uppskattar verkligen din hjälp RE: Flytta genomsnittlig beräkning PHV (MIS) 29 jun 10 12:22 förstår vad B och A är de alias es RE: Flytta Genomsnittlig Beräkning Tack, PHV. Det är bättre att känna redan RE: Flytta genomsnittlig beräkning joshery420 (TechnicalUser) 6 Jul 10 15:06 Wow, tittade aldrig på SQL-visning före. Mycket hjälpsam. Jag försöker få den här koden att fungera i min egen dataset och jag håller fast vid en viss fråga. pd2004, inte säker på om den nya subquery-koden fungerade på samma sätt som din gamla VBA-kod eller inte, men med mina data visar det fortfarande det rullande genomsnittet även om det inte finns tillräckligt många dagar för att skapa den genomsnittliga längden. t. ex. Om jag utför ett rullande medelvärde på 7 dagar visar dag 1 samma data i kolumnen 7DayAvg som den gör i den dagliga datakolonnen. Dag 2 skulle visa medeltalet dagar 1 och 2 osv. Vet du någon av er hur man fixar det här tillfället Också tack för den stora kodtipset PHV. RE: Flytta Genomsnittlig Beräkning joshery420 (TechnicalUser) 6 Jul 10 15:08 Woops, menade att tacka dhookom för kodtipset, inte PHV. Men hej, tack vare er båda. XD RE: Flytta genomsnittlig beräkning Jag lämnar de bästa lösningarna till proffs här, men du kan se i mitt ursprungliga inlägg hur Microsoft Help-exemplet försöker hantera det. Här är koden: Om StartDate lt 8693 Då MAvgs Null: Exit Function 8693 ersätts med det tidigaste datumet för data i din tabell. De sparar bara funktionen om datumet inte passar kriterierna. Jag vet inte om du kan införliva något sådant i aliaskoden som tillhandahålls av dhookem. Jag gillar inte deras sätt att hantera detta, och jag misstänker att dhookem kommer att ge en mycket mer elegant lösning. För mitt ändamål är problemet som du beskriver inte ett problem, men jag kommer att vara intresserad av att se några lösningar. RE: Flytta Genomsnittlig Beräkning dhookom (Programmerare) 6 Jul 10 17:05 Du kan försöka använda IIf () för att testa för en räkning av antalet poster. Varning: Otestad anteckningsblankett följer: SELECT A. CurrencyType, A. TransactionDate, A. Rate, IIF ((VÄLJ Räkna (RÄTT) FRÅN TABLE 1 C VAR A. CurrencyType C. CurrencyType OCH C. TransactionDate MELLAN A. TransactionDate - 14 AND A. TransactionDate) 7, (VÄLJ Avg. (Ränta) FRÅN TABELL 1 B VAR A. ValutaTyp B. ValutaTyp OCH B. TransaktionDate MELLAN A. TransactionDate - 14 OCH A. TransactionDate), Null) AS Expr1 FRÅN TABELL 1 SOM EN RE: Flyttande Genomsnittlig Beräkning