Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Выделение ячейки с заданным шагом
 
#1
07.10.2016 16:10:35
Добрый день.
Делаю простой обработчик данных, нужно выделить каждую третью ячейку в столбце, для последующего вычисления среднего арифметического. В екселе никогда не писал и сильно углубляться не хочется, так как дальше работать с ним не придется.
Если кто нибудь знает не сильно замороченный способ, напишите пожалуйста. Буду премного благодарен
P.S. мне нужен именно макрос, что бы у пользователя все получилось одним нажатием кнопки
 
 
 
#2
07.10.2016 16:17:02
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 100 Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
 
 
#3
07.10.2016 17:46:42
Цитата
dagon написал:
нужно выделить каждую третью ячейку в столбце, для последующего вычисления среднего арифметического
Для этого необязательно ВЫДЕЛЯТЬ.
 
 
 
#4
07.10.2016 18:09:01
Цитата
Для этого необязательно ВЫДЕЛЯТЬ.
Возможно. Поэтому и спрашиваю совета. Как сделать в С например, прекрасно понимаю. А изучать местный бэйсик сейчас нету времени. Дело то на пару строк кода.

В книге столбец А в качестве примера. Нужно взять значение каждой третьей ячейки и получить среднее арифметическое. А сколько строк будет в итоге неизвестно, т.к. работать придется с логами другой программы
Спасибо
 
 
 
#5
07.10.2016 18:21:42
=СРЗНАЧ(A1;A4;A8;A8;A7;A10)
А зачем два раза А8 ?
 
 
 
#6
07.10.2016 18:24:01
Цитата
dagon написал:
Нужно взять значение каждой третьей ячейки и получить среднее арифметическое
Тогда и название темы нужно формулировать соответствующим образом: ведь нужно не выделение ячеек ради выделения, а узнать среднеарифметическое диапазона ячеек с заданным шагом.
 
 
 
#7
07.10.2016 18:37:39
Цитата
Дело то на пару строк кода
Код
Sub iSrednee()
Dim i As Long
Dim n As Integer
Dim iLastRow As Long
Dim Srednee As Double
  iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 1 To iLastRow Step 3
    Srednee = Srednee + Cells(i, 1)
    n = n + 1
  Next
    Srednee = Srednee / n
End Sub
 
 
 
#8
07.10.2016 19:02:05
Большое спасибо, все отлично работает
 
 
 
Страницы: 1
Читают тему
Наверх