[7] Weekly Tips - Simple Tracking Tool in VBA (Autofill, FormulaR1C1)

Опубликовано: 31 Июль 2026
на канале: Weekly Tips by Robert Stempkowski

467

#VBA #productivity #Excel

Today we are going to create a tracking tool in VBA

Code:
Sub start()
'start time

If Range("A2").Value = 0 Then
Range("A2").Value = Date
Range("B2").Value = Time
Else
Range("A1").End(xlDown).Offset(1, 0).Value = Date
Range("B1").End(xlDown).Offset(1, 0).Value = Time
End If
End Sub

Sub finish()
'end time

If Range("C2").Value = 0 Then
Range("c2").Value = Time
Range("D2").Value = "=C2-B2"
Else
Range("C1").End(xlDown).Offset(1, 0).Value = Time
Range("D1").End(xlDown).Select
'Range("D2").AutoFill Destination:=Range("D2:D" & Range("C" & Rows.Count).End(xlUp).Row)
Range("D1").End(xlDown).Offset(1, 0).FormulaR1C1 = "=RC[-1]-RC[-2]"
End If
End Sub