Пмогите в полном тупеке с циклом

[AndrNet]

нужен один цикл, который увеличивает 2 переменные

Код: Выделить всё

DateS = Format(DTPicker1, "dd/mm/yyyy")
DateF = Format(DTPicker2, "dd/mm/yyyy")
Call DateIntervals(DateS, DateF, , , days)
dney = days

Dim d As Date
For d = DateS To DateF
'For Index = 1 To dney
objExcel.Worksheets(1).Cells(1, Index + 1) = d
Next Index
Next d

Тут задача такая, получить первую дату засунуть в Excel в ячейку следующие число в следующую и так далее пока пока не дойдем до даты DateF. dney - это количесто дней между датами (функция)

[Viper]

Типо так:

Код: Выделить всё

Dim i As Long, j As Long
For i = 0 to 9
    j = j + 1
    ...
Next i

[AndrNet]

Все решил, СПАСИБО!
Dim d As Date, Index As Integer
For d = DateS To DateF
Index = Index + 1
objExcel.Worksheets(1).Cells(1, Index + 1) = d
Next d

[Viper]

Все решил, СПАСИБО!
Dim d As Date, Index As Integer
For d = DateS To DateF
Index = Index + 1
objExcel.Worksheets(1).Cells(1, Index + 1) = d
Next d

Но в качестве переменной цикла лучше использовать Index.