Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Среднее значение диапазона ячеек не равных нулю / 15 сообщений из 15, страница 1 из 1
24.03.2010, 13:13
    #36539365
ffflake
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Помогите плиз, в макросе записать подсчет среднего значения

пример:
2 5 6 0 0 0 0 0 0

нужно найти среднее ячеек, не равных нулю
т.е. формула следующая =СРЗНАЧЕСЛИ(D37:O37;"<>0"), но как ее записать в макросе
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 13:17
    #36539383
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
ffflake,
так годится? :)
Код: plaintext
1.
Cells( 1 ,  1 ).FormulaLocal = "=СРЗНАЧЕСЛИ(D37:O37;""<>0"")"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 13:30
    #36539433
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Я Вашу функцию проверить не могу (нет у меня такой),
но на примере:
Код: plaintext
1.
2.
3.
4.
Sub ttt()
Set rn = Range("A1:J1")
x = Application.WorksheetFunction.Average(rn)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 13:57
    #36539569
ffflake
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Hugo121ffflake,
так годится? :)
Код: plaintext
1.
Cells( 1 ,  1 ).FormulaLocal = "=СРЗНАЧЕСЛИ(D37:O37;""<>0"")"


спасибо подходит, а может еще поскажите как в цикле, а то я че-то не могу сообразить
For i = 6 To 130
For a = 16 To 16
If Cells(i, 2).Text = 216 Then Cells(i, a).FormulaLocal = "=СРЗНАЧЕСЛИ(D37:О37;""<>0"")"
Next a
Next i
а именно вот здесь проблема:
"=СРЗНАЧЕСЛИ(?:?;""<>0"")"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 14:32
    #36539711
ffflake
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
а может есть совсем другое решение? подскажите пожалуйста!!!!!!!!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 14:44
    #36539764
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
ffflakeа может есть совсем другое решение? подскажите пожалуйста!!!!!!!!!!!На первоначальный вопрос вам уже ответили.
А чтобы ответили по поводу цикла напишите подробнее, что именно нужно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 14:57
    #36539839
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Можно так, х и у сами поменяете в цикле или как там надо:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub tt()
x =  37 
y =  37 

For i =  6  To  130 
For a =  16  To  16 
If Cells(i,  2 ).Text =  216  Then Cells(i, a).FormulaLocal = "=СРЗНАЧЕСЛИ(D" & x & ":О" & y & ";""<>0"")"
Next a
Next i

End Sub

Можно иначе, через RC без букв можно обойтись, а ещё есть Cells(x, y)... которые можно суммировать и делить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 14:59
    #36539853
ffflake
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Djon Player,
Есть определенное число строк, нужно пройти по каждой и если значение второго столбца равно определенному значению, то нужно посчитать среднее значение ячеек не равных нулю i-ой строки.

Есть:
For i = 6 To 130 \строки
For a = 16 To 16 \столбцы
If Cells(i, 2).Text = 216 Then здесь нужно прописать подсчет среднего значения определенного диапазона i-ой строки (например (D37:O37)) и записать в 16 столбец i-ой строки
Next a
Next i

Вы уж простите, если я может что-то неточно изъясняю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 15:02
    #36539868
Dophin
Dophin
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Код: plaintext
1.
Cells(i,  16 ) = WorksheetFunction.AverageIf(Range(Cells(i,  4 ), Cells(i,  15 )), "<>0")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 15:06
    #36539881
ffflake
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Hugo121Можно так, х и у сами поменяете в цикле или как там надо:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub tt()
x =  37 
y =  37 

For i =  6  To  130 
For a =  16  To  16 
If Cells(i,  2 ).Text =  216  Then Cells(i, a).FormulaLocal = "=СРЗНАЧЕСЛИ(D" & x & ":О" & y & ";""<>0"")"
Next a
Next i

End Sub

Можно иначе, через RC без букв можно обойтись, а ещё есть Cells(x, y)... которые можно суммировать и делить.

Этот вариант подошел, спасибо огромнейшее, огромнейшее, огромнейшее!..
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 15:32
    #36539973
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
ffflake,
а ведь так лучше, не заметили?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub tt()

For i =  6  To  130 
Set rn = Range(Cells(i,  4 ), Cells(i,  15 ))
If Cells(i,  2 ).Text =  216  Then Cells(i,  16 ) = WorksheetFunction.AverageIf(Range(Cells(i,  4 ), Cells(i,  15 )), "<>0")
Next i

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 15:34
    #36539980
Hugo121
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Set rn = Range(Cells(i, 4), Cells(i, 15)) лишнее, извиняюсь, от тестов осталось...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 15:42
    #36540019
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
ffflake,

Мне почему-то кажется, что правильнее так:

Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
 Dim i As Integer
 
 For i =  1  To  130 
  If Cells(i,  2 ).Text =  216  Then Cells(i,  16 ).FormulaLocal = "=СРЗНАЧЕСЛИ(D" & i & ":О" & i & ";""<>0"")"
 Next i
End Sub
Единственный у меня вопрос к числу 216, во всех строках именно такое число должно быть, там где нужна формула, или может могут быть другие вариации.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 16:29
    #36540228
ffflake
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Djon Player
Единственный у меня вопрос к числу 216, во всех строках именно такое число должно быть, там где нужна формула, или может могут быть другие вариации.

Могут быть и другие, но с этим я справилась через or
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.03.2010, 16:33
    #36540249
Djon Player
Djon Player
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Среднее значение диапазона ячеек не равных нулю
Заметил опечатку у себя в коде
Код: plaintext
For i =  1  To  130
вместо 1 надо написать 6.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Среднее значение диапазона ячеек не равных нулю / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 518ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178319]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 192ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 241ms
total:  518ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]