Visual Basic Moving Average Funktion

Benutzerdefinierte durchschnittliche Funktion Unten sehen wir ein Programm in Excel VBA, das eine benutzerdefinierte Funktion erstellt, die den Durchschnitt eines zufällig ausgewählten Bereichs berechnet, ohne einen oder mehrere Werte, die Ausreißer sind und nicht gemittelt werden sollten. Benutzerdefinierte Funktionen müssen in einem Modul platziert werden. 1. Öffnen Sie den Visual Basic-Editor, und klicken Sie auf Einfügen, Modul. 2. Fügen Sie die folgende Codezeile hinzu: Funktion CUSTOMAVERAGE (rng Als Bereich, niedriger als Integer. Upper Als Integer) Der Name unserer Funktion ist CUSTOMAVERAGE. Der Teil zwischen den Klammern bedeutet, dass wir Excel VBA einen Bereich und zwei Integer-Variablen als Eingabe geben. Wir nennen unseren Bereich rng, eine Integer-Variable, die wir niedriger nennen, und eine Integer-Variable, die wir oben aufrufen, aber Sie können beliebige Namen verwenden. 3. Als nächstes deklarieren wir ein Range-Objekt und zwei Variablen vom Typ Integer. Wir rufen die Range-Objektzelle auf. Eine Integer-Variable nennen wir total und eine Integer-Variable, die wir count zählen. Dim-Zelle As Range, total As Integer. Count As Integer 4. Wir wollen jede Zelle in einem beliebig ausgewählten Bereich überprüfen (dieser Bereich kann beliebig groß sein). In Excel VBA können Sie dazu die For Each Next-Schleife verwenden. Fügen Sie die folgenden Codezeilen hinzu: Für jede Zelle In rng Hinweis: rng und Zelle sind zufällig hier ausgewählt, können Sie beliebige Namen verwenden. Denken Sie daran, diese Namen in den Rest des Codes verweisen. 5. Als nächstes prüfen wir für jeden Wert in diesem Bereich, ob er zwischen den beiden Werten (untere und obere) fällt. Wenn true, erhöhen wir die Gesamtzahl um den Wert der Zelle und wir erhöhen die Anzahl mit 1. Fügen Sie der Loop die folgenden Codezeilen hinzu. Wenn cell. Value gt niedriger und cell. Value lt upper Dann Gesamtzahl der cell. Value-Zähler 1 End If 6. Um das Ergebnis dieser Funktion (den gewünschten Durchschnitt) zurückzugeben, fügen Sie die folgende Codezeile außerhalb der Schleife hinzu. CUSTOMAVERAGE Gesamtzahl 7. Vergessen Sie nicht, die Funktion zu beenden. Fügen Sie die Zeile: 8. Nun können Sie diese Funktion wie jede andere Excel-Funktion verwenden, um den Mittelwert der Zahlen zu berechnen, die zwischen zwei Werten fallen. Als eine Prüfung können Sie alle Werte löschen, die kleiner als 10 und höher als 30 sind, und die Standard-Durchschnittsfunktion in Excel verwenden, um zu sehen, ob Excel denselben Durchschnitt berechnet wie unsere benutzerdefinierte durchschnittliche Funktion. Unsere benutzerdefinierte durchschnittliche Funktion funktioniert Hinweis: Diese Funktion ist nur in dieser Arbeitsmappe verfügbar. Ich versuche, einen Durchschnitt mit Visual Basic 2010 zu berechnen und diesen Durchschnitt in einem Meldungsfenster anzuzeigen. Während Debugging (Auskommentieren Code und versuchen, verschiedene Variablen, die an das Meldungsfeld als String gesendet) bekam ich das Meldungsfenster zu erscheinen, aber ohne Daten zurückgegeben. Wie ich den Code jetzt habe, bekomme ich keine Fehler, aber ich kann nicht sogar das Meldungsfeld zu erscheinen. Grundsätzlich das Programm hat der Benutzer eine Reihe von Bücher, die sie gelesen haben, die dann verwendet wird, um eine Punkt-Summe basierend auf der Menge der gelesenen Bücher zu berechnen. Die Übung bittet, einen Durchschnitt aller gelesenen Bücher zu halten. Gefragt Feb 26 14 bei 1:37