Wie Durchschnittswerte in VBA berechnen

Mitglieder-Login

InformationenProductivity Software

Wie Verwenden von Microsoft OneNote… , wenn Sie mehrere Spirale Notebooks , um alle Ihre Klassen führen, ist zu Ende , da mehr Studenten
Alternativen zu Citrix für Applica… Citrix scheint die Branche in Application Hosting dominieren . Aber alternative Application Service
Wie Microsoft Word 1997 installiere… Microsoft Word 1997 , während es vor vielen Jahren veröffentlicht wurde, ist immer noch eine nützlic
Wie man ein Word- Bookmark für ein… Microsoft Word ist ein Textverarbeitungsprogramm , das als Teil der Microsoft Office-Suite kommt . B

Software

HOME

* Computer Wissen >> Software >> Productivity Software >> .

Wie Durchschnittswerte in VBA berechnen

VBA (Visual Basic for Applications) beinhaltet die Fähigkeit, Anweisungen ein Makro erstellen , das zu imitieren , die einen Taschenrechner , eine Reihe von Zahlen eingeben und dann den Durchschnitt schreibt . Der Code ist nur 13 Zeilen lang . Es könnte sein, in einige der Microsoft Office-Programmen nützlich ohne integrierten Taschenrechner . Da Excel enthält eine durchschnittliche Funktion , gäbe es keinen Grund, dieses Makro in Excel zu verwenden. Jedoch, wie in diesem Beispiel , wo das Makro in Microsoft Word erstellt wird, kann es einen gewissen Sinn . Anleitung
1

Öffnen Sie ein Microsoft Office-Programm, VBA (Visual Basic for Applications) unterstützt . Für dieses Beispiel verwenden Microsoft Word.
2

Klicken Sie auf " Entwickler " von " Visual Basic ", die auf der anderen von einem Menü, das in den Entwickler -Gruppe erscheint links aufgeführt wird gefolgt . Dies öffnet den VBA Editor-Fenster
3

Geben Sie die folgenden Zeilen Code genau so, wie sie erscheinen unten : .

Sub AverageMyNumbers () Dim strData als stringDim i, sglNbr , sglSubT , sglAverage Wie Singlei = 0Do bis strData = "X" strData = InputBox ("Geben Sie die Zahlen gemittelt werden, ein zu einer Zeit , drücken die Eingabetaste, um mit der nächsten Nummer weiter . Geben Sie eine Kapital. X , wenn Sie fertig " ;) sglNbr = Val ( strData ) sglSubT = sglNbr + sglSubTi = i + = 1LoopsglAverage sglSubT /(i - 1) MsgBox (" der Durchschnitt dieser Zahlen ist" & sglAverage ) End Sub
4

Testen Sie die Genauigkeit des Programms durch die Auflistung einer Reihe von Zahlen auf dem Papier , in Höhe von ihnen , und dividiert durch die Anzahl der einzelnen Elemente. Drücken Sie "F5" um das Makro auszuführen und berechnen Durchschnittswerte. Folgen Sie den Anweisungen und geben Sie die gleiche Reihe von Zahlen , endend mit einem Kapital X. Wenn die Ergebnisse nicht übereinstimmen , überprüfen Sie die Richtigkeit der von Ihnen eingegebene Code und vergleicht es mit Schritt 3 fort.
5

Klicken auf "Makros " in das Word-Dokument . Speichern Sie das Makro in der " normal.dotm ", wenn Sie es in allen Word-Dokumenten verwenden möchten. Andere Möglichkeiten gibt es, wie das Speichern nur für den Einsatz im aktiven Dokument , Speichern als Teil einer bestimmten Vorlage oder das Speichern in allen aktiven Vorlagen und Dokumente.