Static lastValue as variant
Dim Output as double
Dim pStartValue as double
Dim pIntervalValue as double
pStartValue = 100
pIntervalValue = 1
If IsEmpty(lastValue) Then
Output = pStartValue
Else
Output = lastValue + pIntervalValue
End If
lastValue = Output
ну короче молчу, мои советы не очень действенными получаются
