Behalten Sie einen gleitenden Durchschnitt von einem GPA ohne einen div/0 Fehler

Question

Im Wesentlichen sage ich, beginnen Sie mit dem Durchschnitt aller 4 Semester, wenn Sem 4 Durchschnitt ist "0" oder hat einen Fehler # div/0 dann einfach sem nehmen 1-3 Mittelwerte, wenn Sem 3 avg 0 oder # div/0 ist dann nur Sem 1-2 Durchschnitt, usw.

Ich habe es zu einem Punkt, wo ich die Fehlermeldung bekommen "nicht in der Lage, den Durchschnitt zu bekommen Eigenschaft für die Arbeitsblattfunktionsklasse. "

---

Sub sem1avg() 
    If w = 0 Then 
     Worksheets("Sheet1").Range("H1") = "N/A" 
    ElseIf w > 0 Then 
      Application.WorksheetFunction.Average (Range("B2:B10")) 
    End If 
End Sub 

Sub sem2avg() 
    If x = 0 Then 
     Call sem1avg 
    ElseIf x > 0 Then 
     Worksheets("Sheet1").Range.cell(H1) = _ 
      Application.WorksheetFunction.Average(B11, B23) 
    End If 
End Sub 

Sub sem3avg() 
    If y = 0 Then 
     Call sem2avg 
    ElseIf y > 0 Then 
     Worksheets("Sheet1").Range(H1) = _ 
      Application.WorksheetFunction.Average(B11, B23, E11) 
    End If 
End Sub 

Sub sem4avg() 
    Dim w As Long 
    Dim x As Long 
    Dim y As Long 
    Dim z As Long 

    w = Worksheets("Sheet1").Range("B11") 
    x = Worksheets("Sheet1").Range("B23") 
    y = Worksheets("Sheet1").Range("E11") 
    z = Worksheets("Sheet1").Range("E23") 

    If z = 0 Then 
     Call sem3avg 
    ElseIf z > 0 Then 
     Worksheets("Sheet1").Range("H1") = _ 
      Application.WorksheetFunction.Average("B11, B23, E11, E23") 
    End If 

End Sub 

Answer 1

Natürlich können Sie nur die aggregierte() Funktion verwenden:

=AGGREGATE(1,6,B11,E11,B23,E23) 

Die aggregierte() Funktion im Jahr 2010 eingeführt wurde, zu behandeln mit diesem spezifischen Problem. Das erste Kriterium sagt der Funktion, dass wir den Durchschnitt wollen, das zweite sagt der Formel, dass Fehler ausgeschlossen werden sollen. Der dritte ist der Bereich.

Um mit den 0 und die Fehler werden diese Formel es tun:

=SUM(IF(ISNUMBER(B11),B11),IF(ISNUMBER(B23),B23),IF(ISNUMBER(E11),E11),IF(ISNUMBER(E23),E23))/SUM(IF(ISNUMBER(B11),IF(B11>0,1)),IF(ISNUMBER(B23),IF(B23>0,1)),IF(ISNUMBER(E11),IF(E11>0,1)),IF(ISNUMBER(E23),IF(E23>0,1))) 

Answer 2

Die Funktion Application.WorksheetFunction.Average nicht wie das funktioniert. Stattdessen müssen Sie es ein paar Zahl passieren etwa so:

Application.WorksheetFunction.Average(w,x,y,z) 

https://msdn.microsoft.com/en-us/library/office/ff836809.aspx

Answer 3

Es gibt mehr als eine Sache, die passiert, und bisher hat niemand alle davon betroffen.

Sie müssen Ihre Argumente übergeben.

Sie müssen die ‚Durchschnitt‘ Funktion verwenden, richtig

Sie müssen auch Ihre Variablen zu Einzel ändern, Lange wird ich auf- oder abrunden, die wirklich Ihre Ergebnisse vermasseln.

Hier ist ein Beispiel dafür, wie es zu beheben:

Sub sem3avg(ByVal w As Single, ByVal x As Single, ByVal y As Single) 
If y = 0 Then 
    Call sem2avg 
ElseIf y > 0 Then 
Worksheets("Sheet1").Range("H1").Value = Application.WorksheetFunction.Average(w, x, y) 
End If 


End Sub 

Sub sem4avg() 
Dim w As Single 
Dim x As Single 
Dim y As Single 
Dim z As Single 

w = Worksheets("Sheet1").Range("B11") 
x = Worksheets("Sheet1").Range("B23") 
y = Worksheets("Sheet1").Range("E11") 
z = Worksheets("Sheet1").Range("E23") 


If z = 0 Then 
Call sem3avg(w, x, y) 
ElseIf z > 0 Then 
Worksheets("Sheet1").Range("H1").Value = Application.WorksheetFunction.Average(w, x, y, z) 
End If 
End Sub