Другие языки программирования и технологии

excel! Помогите!

Нужно время, в каждой ячейки увеличить на 3 минуты, подскажите пожалуйста как... в ручную не получится таких таблиц 36!
решим чуть более усложненный вариант:
если в ячейке формула то добавим ВРЕМЯ (0;3;0)
если в ячейки значение то увеличим на 3 минуты
формат ячеек должен быть форматом времени)) )
вот макрос:
Sub ppp()
For Each ttt In Selection
If Left(ttt.FormulaR1C1, 1) = "=" Then
ttt.FormulaR1C1 = ttt.FormulaR1C1 + "+TIME(0,3,0)"
Else
ttt.Value = ttt.Value + TimeSerial(0, 3, 0)
End If
Next
End Sub
выделяете нужную область и запускаете макрос
а вот картинка с результатом



в первой строке бывшие значения, курсор стоит на ячейке куда макрос добавил элемент формулы)))
ВВ
Владимир Воробьёв
75 337
Лучший ответ
Вобщем так создаешь ниже еще одну такую же таблицу
В первую ячейку пишешь формулу для ячейки где у тя там 6:10 стоит путь А1

=А1+ВРЕМЯ (0;3;0)

0 часов 3 минуты 0 секунд

если ячейка отформатирована показывать время то все нормалек прокатит.. . потом распространяешь ету ячейку на скока нада и копируешь и специальной вставкой вставляешь значения в исходную таблицу.. . Правда тебе ето 36 раз придется провернуть.. . Делов минут на 15... ток у тя там в исходной таблице условное форматирование как понимаю стоит возможно слетит.. . придется заново задавать.. .
ставишь на первую ячейку в которой надо увеличить на 3 курсор и пишешь формулу "= ячейка (А1например) +3! Когда это сделал ставишь курсор в нижний правый угол и растягиваешь на всю таблицу!