СРЗНАЧ

[frozzy_16]

Подскажите как высчитать среднее значение исключая нулевые значения.

[Fierce]

Вот простой пример, считает среднее значение в первых 10 строках столбца А

Dim i As Integer, k As Integer, s As Double

For i = 1 To 10
    If Cells(i, 1) <> 0 Then
        s = s + Cells(i, 1)
        k = k + 1
    End If
Next i
s = s / k

[frozzy_16]

А формулой можно?? Я в VBA не силен.

[SAS888]

Для Excel 2003 и 2007:

s = Application.Sum([A1:A10]) / Application.CountIf([A1:A10], "<>0")

Только для Excel 2007:

s = Application.AverageIf([A1:A10], "<>0")

[SAS888]

Для любого Excel:

=СУММ(A1:A10)/СЧЁТЕСЛИ(A1:A10;"<>0")

Только для 2007:

=СРЗНАЧЕСЛИ(A1:A10;"<>0")

P.S. Нужно сразу говорить, какими средствами решать задачу (см. правила раздела)/

[novak_26]

используйте функцию excel "СРЗНАЧЕСЛИ"
см. пример

[frozzy_16]

всем спасибо. Разобрался.

novak_26 в твоем файле в ячейке с формулой Пишет ИМЯ...

[Serge 007]

Сообщение от frozzy_16

всем спасибо. Разобрался.

novak_26 в твоем файле в ячейке с формулой Пишет ИМЯ...

У Вас эксель 2003.

[frozzy_16]

Похоже что да....
А 2007 лучше чем 2003... Для меня там неудобная рабочая область..там закладки и все такое...