СРЗНАЧ - Microsoft Office Excel

frozzy_16 · 22.03.2010, 21:08

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

Fierce · 22.03.2010, 23:26

Вот простой пример, считает среднее значение в первых 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 · 23.03.2010, 00:12

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

SAS888 · 23.03.2010, 05:06

Для Excel 2003 и 2007:

Код:

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

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

Код:

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

SAS888 · 23.03.2010, 06:27

Для любого Excel:

Код:

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

Только для 2007:

Код:

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

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

novak_26 · 23.03.2010, 10:48

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

frozzy_16 · 23.03.2010, 13:43

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

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

Serge 007 · 23.03.2010, 14:45

Цитата:

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

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

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

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

frozzy_16 · 23.03.2010, 14:52

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

22.03.2010, 21:08	#1
frozzy_16 Пользователь Регистрация: 10.03.2010 Сообщений: 27	СРЗНАЧ Подскажите как высчитать среднее значение исключая нулевые значения.

22.03.2010, 23:26	#2
Fierce Пользователь Регистрация: 11.04.2009 Сообщений: 29	Вот простой пример, считает среднее значение в первых 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`

23.03.2010, 05:06	#4
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Для Excel 2003 и 2007: Код: `s = Application.Sum([A1:A10]) / Application.CountIf([A1:A10], "<>0")` Только для Excel 2007: Код: `s = Application.AverageIf([A1:A10], "<>0")` Чем шире угол зрения, тем он тупее.

23.03.2010, 06:27	#5
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Для любого Excel: Код: `=СУММ(A1:A10)/СЧЁТЕСЛИ(A1:A10;"<>0")` Только для 2007: Код: `=СРЗНАЧЕСЛИ(A1:A10;"<>0")` P.S. Нужно сразу говорить, какими средствами решать задачу (см. правила раздела)/ Чем шире угол зрения, тем он тупее.

23.03.2010, 14:52	#9
frozzy_16 Пользователь Регистрация: 10.03.2010 Сообщений: 27	Похоже что да.... А 2007 лучше чем 2003... Для меня там неудобная рабочая область..там закладки и все такое... Последний раз редактировалось frozzy_16; 23.03.2010 в 14:56.

23.03.2010, 00:12	#3
frozzy_16 Пользователь Регистрация: 10.03.2010 Сообщений: 27	А формулой можно?? Я в VBA не силен.

23.03.2010, 13:43	#7
frozzy_16 Пользователь Регистрация: 10.03.2010 Сообщений: 27	всем спасибо. Разобрался. novak_26 в твоем файле в ячейке с формулой Пишет ИМЯ...