ттт значение

Ответ от Makfromkz[гуру]
решим чуть более усложненный вариант:
если в ячейке формула то добавим ВРЕМЯ (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
выделяете нужную область и запускаете макрос
а вот картинка с результатом

в первой строке бывшие значения, курсор стоит на ячейке куда макрос добавил элемент формулы)))