Moving Average Vba

Moving Average Dieses Beispiel lehrt, wie Sie den gleitenden Durchschnitt einer Zeitreihe in Excel berechnen. Eine Bewegung wird verwendet, um Unregelmäßigkeiten (Spitzen und Täler) zu glätten, um Trends leicht zu erkennen. 1. Erstens, werfen wir einen Blick auf unsere Zeitreihe. 2. Klicken Sie auf der Registerkarte Daten auf Datenanalyse. Hinweis: Klicken Sie hier, um das Analyse-ToolPak-Add-In zu laden. 3. Wählen Sie Verschiebender Durchschnitt aus, und klicken Sie auf OK. 4. Klicken Sie im Feld Eingabebereich auf den Bereich B2: M2. 5. Klicken Sie in das Feld Intervall und geben Sie 6 ein. 6. Klicken Sie in das Feld Ausgabebereich und wählen Sie Zelle B3 aus. 8. Zeichnen Sie ein Diagramm dieser Werte. Erläuterung: Da wir das Intervall auf 6 setzen, ist der gleitende Durchschnitt der Durchschnitt der vorherigen 5 Datenpunkte und der aktuelle Datenpunkt. Als Ergebnis werden Spitzen und Täler geglättet. Die Grafik zeigt eine zunehmende Tendenz. Excel kann den gleitenden Durchschnitt für die ersten 5 Datenpunkte nicht berechnen, da nicht genügend frühere Datenpunkte vorhanden sind. 9. Wiederholen Sie die Schritte 2 bis 8 für Intervall 2 und Intervall 4. Fazit: Je größer das Intervall, desto mehr werden die Spitzen und Täler geglättet. Je kleiner das Intervall, desto näher sind die gleitenden Mittelwerte an den tatsächlichen Datenpunkten. Dieser Beitrag enthält Links zu zwei Beispiel-xls-Dateien, die sowohl VBA - als auch Formel-basierte Berechnungen für den Indikator MACD oder Moving Average Convergence Divergence zeigen. Beide Dateien enthalten den exakt gleichen Satz von Open High Low Close Daten. Die Formel basierte Version ist einfacher zu verstehen und dient als eine Möglichkeit, um zu überprüfen, dass der VBA-Code, den ich geschrieben habe korrekt ist. Beide Methoden geben das gleiche Ergebnis. Der Hauptvorteil der Verwendung von VBA ist, dass die Parameter für MACD einfach aus den Eingabefeldern geändert werden können. Darüber hinaus zeigt die VBA-Methode nur das Endergebnis, anstatt fünf Spalten aufzunehmen. Die VBA-basierte Version kann hier heruntergeladen werden. Die Formel-Version kann hier heruntergeladen werden. Unten ist der Code aus der VBA-basierten Version. Sub ETmacd () geschrieben von Exceltrader exceltrader. net Dim EMAslow As Double. EMAf As t Wie doppelt. Ws Als Arbeitsblatt, LR Als Integer Dim eMaF () As Double. EMaS () Als Doppel. EMAdif (), emaPer () Als Doppel. MacDper als Doppel. COUNT As Integer Dim Datarange As Range Dim ExPSlowWeight As Double Dim ExPFastWeight As Double Dim PerWeight As Double 160160The unter drei Zeilen entweder hier geändert, oder die inputbox Linien aufgefordert werden, die Auskommentierung werden können 160160The Werte settings.160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160160 MACD sind. EMAslow 13 InputBox (Eingabeaufforderung: Macd Slow Einstellungen., Titel: MACD SLOW, Voreinstellung: 13) EMAfAst 5 InputBox (Eingabeaufforderung: Macd Schnelleinstellungen., Titel: MACD Fast, Voreinstellung: 5) Zeitraum Einstellungen, Titel:. MACD Zeitraum, Standard: 6) ExPSlowWeight 2 (EMAslow 1) PerWeight 2 (MacDper 1) ExPFastWeight 2 (EMAfAst 1) Set ws ThisWorkbook. Worksheets (VBA) oder genau zum Beispiel Blattnamen verwenden ThisWorkbook. worksheet ( Sheet1) langsam 160.160.160.160 Mit ws 160160160160LR. Cells (Rows. Count, A).End (xlUp).Row 160160160160160160160160 For Each Datarange In ws. Range (.Cells (2, A). Die Zellen (LR, A)) 160160160160160160160160coUnt Datarange. Zeile 1 160160160160160160160160 füllen die langsame eMA Array 160160160160160160160160 ReDim Preserve Emas (1 bis COUNT) 160160160160160160160160160160160160160160160160 Wenn COUNT EMAslow 1 dann den ersten Wert 160160160160160160160160160160160160160160160160160160160160 erhalten, die die einfachen gleitenden Durchschnitt 160160160160160160160160160160160160160160160160160160160160 Emas ist (COUNT) Application. Average (ws. Range (.Cells ( 2, E). Die Zellen (COUNT, E))) 160160160160160160160160160160160160160160160160 ElseIf COUNT EMAslow Dann 160160160160160160160160160160160160160160160160160160160160eMaS (COUNT) (.Cells (COUNT, E) ExPSlowWeight) (EMAs (COUNT - 1) (1 - ExPSlowWeight)) 160160160160160160160160160160160160160160160160 End If Next 160160160160160160160160 Datarange schnell 160160160160160160160160 For Each Datarange In ws. Range (.Cells (2, A). die Zellen (LR, A)) 160160160160160160160160coUnt DataRange. Row 1 160160160160160160160160 die langsame eMA Array füllen 160160160160160160160160 ReDim EMAF Preserve (1 bis COUNT) 160160160160160160160160160160160160160160160160 Wenn COUNT EMAfAst 1 Dann wird die 160160160160160160160160160160160160160160160160160160160160 erhalten erste Wert, den der einfache gleitende Durchschnitt ist 160160160160160160160160160160160160160160160160160160160160 EMAF (COUNT) Application. Average (ws. Range (.Cells (2, E). Cells (COUNT, E))) 160160160160160160160160160160160160160160160160 ElseIf COUNT EMAfAst Dann 160160160160160160160160160160160160160160160160160160160160eMaF (COUNT) (.Cells ( COUNT, E) ExPFastWeight) (EMAF (COUNT - 1) (1 - ExPFastWeight)) 160160160160160160160160160160160160160160160160 End If 160160160160160160160160 Weiter Datarange 160160160160160160160160 ReDim Preserve EMAdif (EM so niedrig UBound (EMAF)) 160160160160160160160160160160160160 Zähl - EM As low 1 Um UBound (EMAF ) 160160160160160160160160160160160160160160160160EMAdif (COUNT) EMAF (COUNT) - Emas (COUNT) 160160160160160160160160160160160160 Nächste COUNT MacD Zeitraum 160160160160160160160160 Dim x As Integer. Y Als Integer. Z Als Integer. AVEE As Double 160160160160160160160160y EMAslow MacDper - 1 160160160160160160160160160160160160 Für XY UBound (EMAdif) - 2 160160160160160160160160160160160160160160160160 erhalten die SMA für den ersten Wert 160160160160160160160160160160160160160160160160 Wenn xy Dann 160160160160160160160160160160160160160160160160160160160160160160160160 Für z EMAslow 1 Um EMAslow MacDper160160 (EMAslow MacDper - 1) 160160160160160160160160160160160160160160160160160160160160160160160160Ave Ave EMAdif (z) 160160160160160160160160160160160160160160160160160160160160160160160160 Weiter z 160160160160160160160160160160160160160160160160160160160160160160160160 ReDim emaPer (x LR) 160160160160160160160160160160160160160160160160160160160160160160160160emaPer (x) Ave MacDper 160160160160160160160160160160160160160160160160 ElseIf xy Dann 160160160160160160160160160160160160160160160160emaPer (x) (EMAdif (x 1) PerWeight) (emaPer (x - 1) (1 - PerWeight)) 160160160160160160160160160160160160160160160160 End If 160160160160160160160160160160160160 Weiter x 160160x Empty: y Leer: z Leere 160160x LBound (emaPer) 160160y UBound (emaPer) 160160 Für zx y - 1 160160.Cells (z 1, J) EMAdif (z 1) - emaPer (z) 160160 Next z End With End Sub geschrieben von Exceltrader exceltrader. net Kebaya Mwamba sagt: itjockey, Diese VBA-Version zeigt die MACD, Signalleitung und Histogramm. Die Formel basierte Version zeigt auch diese Werte. Der geänderte Code ist die Addition der 7. und 8. Zeile unter 160160x Leer: y Leer: z Leer 160160x LBound (emaPer) 160160y UBound (emaPer) 160160.Zelle (x, L) MACD Histogramm. Zellen (x, K) Signalleitung. Zellen (x, J) MACD 160160 Für zx Zu y - 1 160160.Zellen (z 1, L) EMAdif (z 1) - emaPer (z) 160160.Zellen (z 1, K) emaPer (z) 160160.Zellen Hallo, ich versuche von EMAslow zu wechseln 13 InputBox (Eingabeaufforderung: Macd Slow Einstellungen eingeben., Titel: MACD SLOW, Voreinstellung: 13 ), Titel: MACD Period, Voreinstellung: 6 to SlowMa InputBox (Eingabeaufforderung: Geben Sie die MACD-Voreinstellung ein Slow Moving MA.) FastMa InputBox (Eingabeaufforderung: Geben Sie die Fast Moving MA ein.) MACDtime InputBox (Eingabeaufforderung: Geben Sie die Gesamt-MACD-Periode ein.) Mit 13. 5, 6 Eingabe, dann erscheint die Ausgabe sehr unterschiedlich von der vorherigen Sie können die MACD-Einstellungen durch Eingabe Ihrer Einstellungen in Eingabefelder steuern, indem Sie den Code wie folgt ändern: EMAslow InputBox (Eingabeaufforderung: Macd Slow Einstellungen eingeben., Titel: MACD SLOW, Voreinstellung: 13) EMAfAst InputBox (Eingabeaufforderung: Macd Schnelleinstellungen eingeben., Titel: MACD Fast, Voreinstellung: 5) MacDper InputBox (Eingabeaufforderung: Macd Period settings., Titel: MACD Period, Default: 6) Ich sehe Beispiele statisch. Was ist, wo die Daten ändern sich alle 5 min zum Beispiel und es ist nur eine einzige Zelle, die sich verändert. Müssen Sie dann noch den Wert dieser Zelle in verschiedene Zellen kopieren, damit Sie die Berechnungen durchführen können, um die macd-Werte zu ermitteln. Ich möchte alles in vba machen. Ich möchte nicht Werte in andere Zellen in einem Arbeitsblatt kopieren. Ist dies möglich Ich möchte wissen, ob irgendwelche Fehler auf folgende Codes oder nicht. Haben Sie irgendwelche Vorschläge Vielen Dank im Voraus für alle Vorschläge Fehler. (EmaPer (x - 1) (1 - PerWeight)) Richtig. EmaPer (x1) PerWeight) (emaPer (x) (1 - PerWeight)) wenn ich versuche, Ihre macd vba verwenden und ändern (.Cells (count, E) zum Beispiel in (.Cells (count, M) Zeile ist leer und wird von Programmstart gefüllt werden VBA gibt nonstop Fehler, wo ich falsch gehen in diesem kann dies irgendwie gelöst werden