Question

In the code below, I catch the double click event on a range of cells named “chrono”. If the target cell contains a value, I concatenate it with values already contained in the formula applied to the next cell to the right. I want to obtain something like =0,1+0,1, but the cell remains empty.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim rng As Range
Set rng = Range("chrono")
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, rng) Is Nothing Then
    Application.EnableEvents = False
    Cancel = True 'stop the edit mode
    With Target
        If .Value = "" Then
            .Value = Time
        Else:
            Dim nextCell As Range
            Set nextCell = ActiveCell.Offset(0, 1)
            If nextCell.Formula = "" Then
                nextCell.Formula = "=" & ((Time - .Value) * 24 * 60 * 60)
            Else:
                nextCell.Formula = nextCell.Formula & "+" & ((Time - .Value) * 24 * 60 * 60)
            End If
            .Value = ""
        End If
    End With
End If
Application.EnableEvents = True
End Sub

---

Edit

I’m sorry to be unclear, my english is not so good. I want to calculate elapsed time between two double-clicks (so there is no existing data). I’m able to achieve this task doing this:

nextCell.Value = Time - .Value

Moreover, I’m able to sum multiple inputs doing this:

If nextCell.Value = "" Then
    nextCell.Value = Time - .Value
Else:
    nextCell.Value = nextCell.Value + Time - .Value

The problem is that every new input overrites nextCell.Value while I want to keep track of every single input. I have tried to use a formula (=t1+t2) as exposed in the first code sample but double-clicking produces no result.

---

Edit

I’m trying to build a stopwatch. My goal is to calculate time spent on a task. To make things even more clear, here is what I’m trying to do, step by step:

1. two cells : A1 and B1
2. double-click on A1
3. A1 value: current time
4. double-click on A1
5. B1 formula: “=” & (current time – A1 value)
6. A1 value: empty
7. repeat 2, 3, 4
8. B1 formula: B1 formula & “+” & (current time – A1 value)
9. repeat 2, 3, 4
10. and so on…

Answer 1

I finally figured out that the problem came from the specific language with which I’m working. I simply replaced Formula with FormulaLocal and now it works! As an extra, (Time - .Value) * 1 allows to convert elapsed time to the corresponding decimal value. Many thanks to everyone 🙂