(excel_2010_VBA) Прибавление секунд к значению ячейки

[lapin912]

Здравствуйте. Как макросом можно было прибавить например 5 секунд ячейке с временным значением в формате "0:00:00". На просторах нета нашёл макрос который по щелчку прибавляет к выбранной ячейке +1
Private Sub Workbook_SheetBeforeDoubleClick(ByV al Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
r = ActiveCell.Row
c = ActiveCell.Column
Cells(r, c) = Cells(r, c) + 1
Cells(r + 1, c)
End Sub
можно его адаптировать как-нибудь?

[Aleksandr H.]

Cells(r, c) = Cells(r, c) + TimeSerial(0, 0, 5)

[lapin912]

Огромное СПАСИБИЩЕЕЕЕ !!!!!

[IgorGO]

Cells(r, c) = Cells(r, c) + 1/24/3600

[Казанский]

Лучше так

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
  Target = Target + #12:00:01 AM# 'можно вводить #0:0:1#
  Cancel = True
End Sub

[lapin912]

А еще вопрос: как добавить данный макрос, чтобы мог выполняться в любом документе?

[IgorGO]

Вы решили настроить время на серверах NASA?

www.ЛюбойДокумент.com

[lapin912]

Пока нет, но данный макрос надо добавлять в каждый активный документ, просто документы каждый раз меняются.

[Казанский]

Добавьте в модуль ЭтаКнига книги Personal.xls следующий код, перезапустите Excel (сохранив Personal.xls)

Private WithEvents App As Application

Private Sub Workbook_Open()
  Set App = Application
End Sub

Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  Target = Target + #12:00:01 AM# 'можно вводить #0:0:1#
  Cancel = True
End Sub

[lapin912]

Еще раз ОООООгромное СПАСИБИЩЕЕЕЕ !!!!!