Durchschnitt einer Reihe von Daten in vba excel

Ich bin neu in diesem Zeug Programmieren. Ich'have war die Suche nach diesem Thema und ich kann nichts finden, dass zu meinem problem passt.

Ich habe ein array von Daten mit Maßnahmen. Ich habe 31 Zeilen und 96 Spalten. Ich möchte, dass mein VBA-code findet sich der Mittelwert von jeder Spalte von Daten und zeigt Sie auf der Linie nach dem letzten Wert der Spalte.

Kann mir keiner helfen?

Dank im Voraus.

InformationsquelleAutor danuca9 | 2014-11-14
  1. 2

    Die einfachste Antwort, die ich gefunden habe, ist folgende:

    Application.WorksheetFunction.Average(dataArray)

    Dies ist (theoretisch) die gleiche wie die Durchschnitt-Funktion in ein Arbeitsblatt ein. Der einzige Nachteil scheint zu sein, dass Sie haben, um ein array zu verwenden oder eine andere Liste von Daten Punkte. Dies ist leicht behoben werden mit den folgenden:

    Function getArray(dataRange As Range) As Variant()
    Dim arr(dataRange.Rows.Count, dataRange.Columns.Count) as Variant
    Dim i as Integer, j as Integer

    For i = 1 to dataRange.Rows.Count
        For j = 1 to dataRange.Columns.Count
            arr(i, j) = dataRange(i, j)
        Next
    Next

    getArray = arr
End Function

    Diese wandeln die Auswahl in ein array und werden zugänglich durch die Average Funktion. Zum Beispiel:

    myAverage = Application.WorksheetFunction.Average(getArray(Range("C1:CT56")))

    InformationsquelleAutor jaysoncopes
  2. 1

    Können Sie eine Formel in der Zeile unterhalb der Daten:

    =average(A1:A96)

    Ist das nicht einfacher als mit VBA für diesen Zweck?

    Wenn Sie wirklich wollen, verwenden Sie VBA:

    Sub ownaverage()
  Dim totalsum As Double
  Dim totalnum As Double
  Dim ownav As Double
  totalsum = 0
  totalnum = 0
  For Each c In Worksheets("Sheet1").Range("D17:E17").Cells
    totalsum = totalsum + c.Value
    totalnum = totalnum + 1
  Next
  ownav = totalsum / totalnum
  ownaverage = ownav
  Range("I27").Select
  ActiveCell.FormulaR1C1 = ownaverage()
End Sub

    Referenz for-Schleifen: http://msdn.microsoft.com/en-us/library/office/aa221353(v=office.11).aspx

    • Nein, denn ich habe bereits einige code, der einige Diagramme, und der Letzte Zweck ist das erstellen eines Diagramms mit dem Durchschnitt der zahlen, die ich bekomme. Also ich brauche den VBA-code. Mein problem ist, erstellen Sie eine Schleife, in der ich berechnen kann alle Durchschnitt der 96 Spalten.
    • ok, überprüfen Sie bitte meine aktualisierte Antwort.
    • Nochmals vielen Dank für die schnelle Antwort. Ich habe wieder deinen code angepasst und in mir. Aber ich bekomme und über flow-Fehler "6". Die einzige änderung die ich gemacht hatte, war die Reihe an .Range("C28:CT59").Zellen, die wie ich schon 31 Zeilen und 96 Spalten. Auch ich bekomme es nicht in den code, wo nicht die Zelle mit dem Durchschnitt geht.
    • verändert mein code für größere Reichweite und das Ergebnis schreiben.
    InformationsquelleAutor DaveG
  3. 0

    Nochmals vielen Dank für die Antwort. Ich war in der Lage, um es herauszufinden selber. Der code, den ich schrieb,:

    Private Sub CommandButton2_Click()  
    Dim soma as Double  
    Dim media as Double  
    soma=0  
    media=0  
    totalnum=0  
    With Sheets("sheet1")  
       For j= 1 to 96  
           For i =28 to 58  
              Set target = Cells (i,j)  
              soma=soma+targe  
              totalnum=totalnum+1  
           Next i  
           Cells(i+1,j).Value = soma/totalnum  
           soma=0  
           totalnum=0  
       Next j  
    End With
End sub

    Ich hoffe, dieser code hilft jemandem mit dem gleichen Zweifel wie ich Sie hatte.

    Nochmals danke DaveG

    InformationsquelleAutor danuca9
Schreibe einen Kommentar