Цикл в цикле

[drNabla]

Есть массив, 30 цифр записанных в столбец. Как с помошью макроса посчитать срднее значение, но не всего массива а только каждого третьего значения умноженного на 2. На мой взгляд там должен быть цикл в цикле, мне кажется что у меня не получается правильно перейти от первого цикла ко второму...

[IgorGO]

s = 0
for i =1 to 10
s = s + cells(i*3,1)
next
sr = s/10

[drNabla]

а если надо взять среднее трёх значений, а потом усреднить все тройки? просто мне надо понять как цикл в цикле работает.

[IgorGO]

итак, у нас выборка из 30 элементов (э1,э2,э3 ... э30)
находим среднее для каждых 3-х последовательных. с31 = (э1+э2+э3)/3, с32=(э4+э5+э6)/3, с33 ... с310 = (э28+э29+э30)/3.
если вы думаете, что среднее значение полученное для этих 10 средних будет чем-то отличаться для среднего значения по всей выборке - то Вы глубоко ошибаетесь.
работа цикла внутри цикла ничем не отличается от работы цикла внутри процедуры, извините, но что тут можно не понять - вот этого уже я не понимаю.

[Hugo121]

Что-то я тоже не понял, при чём тут цикл в цикле... Это когда нужно сравнить два массива - каждый элемент с каждым элементом.
А тут (для каждого третьего значения умноженного на 2) нужен цикл с шагом 3, суммируем x=x+value*2 и считаем шаги. Потом делим сумму на шаги.

[IgorGO]

в учебных целях, цикл в цикле как заказывали. (в колонку А в первых 30 ячееек напишите каких-то чисел, для порядка)

s1 = 0
for r = 1 to 30 step 3
  s3 = 0
  for dr = 0 to 2
    s3 = s3 + cells(r+dr,1)
  next
  s1 = s1+s3/3
next
msgbox "Среднее = " & s1/10, vbokonly, ""

[Hugo121]

Тогда код по первой задаче, с одним циклом:

Sub tt()
shag = 0
For i = 1 To 30 Step 3
  shag = shag + 1
    s = s + Cells(i, 1) * 2
Next
MsgBox "Среднее = " & s / shag, vbOKOnly, ""
End Sub

[drNabla]

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

в учебных целях, цикл в цикле как заказывали. (в колонку А в первых 30 ячееек напишите каких-то чисел, для порядка)

s1 = 0
for r = 1 to 30 step 3
  s3 = 0
  for dr = 0 to 2
    s3 = s3 + cells(r+dr,1)
  next
  s1 = s1+s3/3
next
msgbox "Среднее = " & s1/10, vbokonly, ""

Вот это то что мне нужно было! большое спасибо, а то после ваших предыдущих слов у меня вроде как получилось но вот щас оказалось что неправильно.