How do I implement this in Excel? Need programming tips.

[WMR]

I have an algorithm for a certain program. But I need help
implementing it in Excel. Here is my algorithm:

1. Take the start time (user inputted): ex. 10:03:05
2. Put it in column A, row 2
3. Add 9 seconds to start time: ex. 10:03:05 + 0:0:09 = 10:03:14
(new_time1)
4. Put new time in Column B, row 2
5. Write down "Event 1" in Column C, row 2.
6. Add 1 second to new_time1 (ex: 10:03:14): ex. 10:03:14 + 0:0:01 =
10:03:15 (new_time2)
7. Put new_time2 in column A, row 3.
8. Repeat steps 3 to 6 (incrementing new row in step 6) until end time
is reach (end time is hard coded).


Also, on step 5, I'd like to be able to change Event 1 to Event 2 for
each consecutive row.

Any tips?
TIA!

 

[JE McGimpsey]

One way:

Public Sub try()
Const dENDTIME As Double = #11:12:13#
Const dINC1 As Double = #00:00:09#
Const dINC2 As Double = #00:00:01#

Dim vResponse As Variant
Dim rCell As Range
Dim dTime As Double
Dim dTemp As Double
Dim dIncrement As Double

dIncrement = dINC1 + dINC2
On Error Resume Next
Do
vResponse = Application.InputBox( _
Prompt:="Enter Start Time:", _
Title:="try", _
Default:="00:00:00", _
Type:=2)
If vResponse = False Then Exit Sub 'user cancelled
dTime = TimeValue(vResponse)
Loop Until Err = 0
On Error GoTo 0
Set rCell = ActiveSheet.Range("A2")
For dTemp = dTime To dENDTIME Step dIncrement
With rCell.Resize(1, 2)
.Cells(1).Value = dTemp
.Cells(2).Value = dTemp + dINC1
.NumberFormat = "hh:mm:ss"
End With
Set rCell = rCell.Offset(1, 0)
Next dTemp
End Sub