Вернуться   Развлекательный портал CN.ru - Форум > Технологии > Программирование > Обмен опытом

Ответ
 
Опции темы
Старый 15.10.2012, 15:07 ↑ #1
elmir
абориген
 
Аватар для elmir
 
Регистрация: 13.12.2008
Сообщений: 129
Репутация: 58
elmir на верном пути
По умолчанию формула в excel

Люди может я и пишу не ту ветку то простите! Нужна помошь в excel нужно написать формулу. Конкретно впервом столбце идут циффры штук сто теперь надо что бы во втором столбце получилось сумма с шагом 3. Пример задачи 1 столбец произвольные данные, во втором 5=сумме трех значений первого столбца (1+2+2) 17= сумма трех значений но уже с пропустив первые три (7+6+4) ну и 4=3+1+0!
1 5
2 17
2 4
7
6
4
3
1
0
__________________
Все что не убивает делает нас сильнее!
elmir вне форума   Ответить с цитированием
Старый 23.10.2012, 21:32 ↑ #2
oleg-v Мужской
Человек обыкновенный...
житель
 
Аватар для oleg-v
 
Регистрация: 19.07.2007
Адрес: Новосибирск
Возраст: 43
Сообщений: 58
Репутация: 168
oleg-v слава не за горами oleg-v слава не за горами
Отправить сообщение для oleg-v с помощью ICQ
По умолчанию Re: формула в excel

Если всё ещё нужно... Только получается не формулу, а формулы в каждой ячейке столбца с результатами. Итак, в первой ячейки второго столбца (с результатами который) пишем: =СУММ(RC[-1]:R[2]C[-1])
ниже во второй и последующих ячейках столбца с результатами пишем туже формулу, но к смещению R (в квадратных скобках) прибавляем 2, то есть:
=СУММ(R[2]C[-1]:R[4]C[-1])
=СУММ(R[4]C[-1]:R[6]C[-1])
=СУММ(R[6]C[-1]:R[8]C[-1])
*** и т. д. до ячейки с с номером количество чисел в первом столбце/3+1

Пытался так же автоматизировать на VBA этот процесс, написал программу заполняющую эти ячейки с формулами автоматически... Тока вот не задача одна получается, заполнять-то она заполняет, но не пересчитывает их. А если войти в ячейку для редактирования, по нажатию F2, и ничего не меняя просто нажать ентер, то тут же всё нормально пересчитается... В чём причина пока понять не могу, перелазил весь интернет, пробовал кучу советов, всё равно всё так же... Может кто из форумчан сможет подсказать что-нибудь... Просто самому интересно, почему не пересчитываются формулы))) Вот собственно код макроса:

Dim count As Integer
Dim r1 As Integer
Dim r2 As Integer
r1 = 1
r2 = 3
count = 1
For i = 1 To 65535 Step 3
Range("A" & i).Select
If ActiveCell.Formula = True Then
Range("B" & count).Select
ActiveCell.Value = "=СУММ(A" & r1 & ":A" & r2 & ")"
r1 = r1 + 3
r2 = r2 + 3
count = count + 1
Else: Exit For
End If
Next i
ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(1, 1)).Select

Последний раз редактировалось oleg-v; 23.10.2012 в 21:40.
oleg-v вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Текущее время: 07:36. Часовой пояс GMT +6.
Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot

ВКонтактeTwitterFacebook
Хотите связаться с нами? Напишите письмо, и мы обязательно ответим.