Среднее значение диапазона ячеек не равных нулю / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Среднее значение диапазона ячеек не равных нулю

15 сообщений из 15, страница 1 из 1

Среднее значение диапазона ячеек не равных нулю

#36539365

ffflake

Гость

Помогите плиз, в макросе записать подсчет среднего значения

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

нужно найти среднее ячеек, не равных нулю
т.е. формула следующая =СРЗНАЧЕСЛИ(D37:O37;"<>0"), но как ее записать в макросе

...

Рейтинг:

0 / 0

24.03.2010, 13:13

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539383

Hugo121

Гость

ffflake,
так годится? :)

Код: plaintext

Cells( 1 ,  1 ).FormulaLocal = "=СРЗНАЧЕСЛИ(D37:O37;""<>0"")"

...

Рейтинг:

0 / 0

24.03.2010, 13:17

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539433

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:30

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539569

ffflake

Гость

Hugo121ffflake,
так годится? :)

Код: plaintext

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, 13:57

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539711

ffflake

Гость

а может есть совсем другое решение? подскажите пожалуйста!!!!!!!!!!!

...

Рейтинг:

0 / 0

24.03.2010, 14:32

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539764

Djon Player

Участник

Откуда: Россия, Республика Коми, Сыктывкар

Сообщения: 791

Рейтинг: 0 / 0

ffflakeа может есть совсем другое решение? подскажите пожалуйста!!!!!!!!!!!На первоначальный вопрос вам уже ответили.
А чтобы ответили по поводу цикла напишите подробнее, что именно нужно.

...

Рейтинг:

0 / 0

24.03.2010, 14:44

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539839

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:57

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539853

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, 14:59

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539868

Dophin

Гость

Код: plaintext

Cells(i,  16 ) = WorksheetFunction.AverageIf(Range(Cells(i,  4 ), Cells(i,  15 )), "<>0")

...

Рейтинг:

0 / 0

24.03.2010, 15:02

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539881

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:06

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539973

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:32

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36539980

Hugo121

Гость

Set rn = Range(Cells(i, 4), Cells(i, 15)) лишнее, извиняюсь, от тестов осталось...

...

Рейтинг:

0 / 0

24.03.2010, 15:34

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36540019

Djon Player

Участник

Откуда: Россия, Республика Коми, Сыктывкар

Сообщения: 791

Рейтинг: 0 / 0

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, 15:42

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36540228

ffflake

Гость

Djon Player
Единственный у меня вопрос к числу 216, во всех строках именно такое число должно быть, там где нужна формула, или может могут быть другие вариации.

Могут быть и другие, но с этим я справилась через or

...

Рейтинг:

0 / 0

24.03.2010, 16:29

| Ответить | Цитировать | Написать

Среднее значение диапазона ячеек не равных нулю

#36540249

Djon Player

Участник

Откуда: Россия, Республика Коми, Сыктывкар

Сообщения: 791

Рейтинг: 0 / 0

Заметил опечатку у себя в коде

Код: plaintext

For i =  1  To  130

вместо 1 надо написать 6.

...

Рейтинг:

0 / 0

24.03.2010, 16:33

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Среднее значение диапазона ячеек не равных нулю

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36539764&tid=2178319]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	3ms
check topic access:	3ms
track hit:	162ms
get topic data:	11ms
get forum data:	2ms
get page messages:	60ms
get tp. blocked users:	1ms
others:	229ms

total:	495ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы