Wie Mittelwert einer Spalte in VBA

April 12

Microsoft Office Access-Datenbank-Programm umfasst eine Reihe von Aggregatfunktionen, sodass Benutzer mathematische Berechnungen durchführen. Dazu gehören die Durchschnittswerte, die Anzahl der Elemente in einer Spalte und den minimalen oder maximalen Wert in einer Spalte mit Daten zu ermitteln. Können Sie diese Funktionen in der Datenbankabfragen oder in Visual Basic für Applikationen (VBA)-Code für die Berechnung eines einzelnen Wertes, z. B. eine Summe oder Spalte Durchschnitt. Die Spalte muss enthalten numerische, Währung oder Datum/Uhrzeit-Daten. Sie müssen eine Reihe von Daten definieren, um den Mittelwert einer Spalte in VBA-Programm berechnen.

Anweisungen

1 Klicken Sie in Windows "Start" und wählen Sie "Microsoft Office", "Microsoft Visual Basic für Applikationen."

2 Klicken Sie auf "Öffnen", "Neu", um das VBA-Skript für die Berechnung einer Spalte in der Access-Datenbank zu erstellen.

3 Geben Sie den folgenden Code in das Fenster:

Sub ColumnAvg()

Dim Rng als Range

Dim i As Long

Festlegen der Rng = Range("B1:B3")

Für i = 3 bis 12

Cells(i, "C").Value = ColumnFunction.Round _

(ColumnFunction.Sum(Rng) / 3, 0)

Set Rng = Rng.Offset(1, 0)

Nächsten ich

EndSub

4 Klicken Sie "Datei" "Speichern", um das VBA-Skript für die Berechnung eines Durchschnitts der Spalte "B" zu speichern.