Я хотел бы установить свою дату из диапазона дат, а затем перебрать список дат?

Question

Я хотел бы установить переменную sDate в моем коде, чтобы она приходила из списка дат в диапазоне.

Мой код работает на одну дату, но на всю жизнь я не могу вспомнить, как перебрать список дат.

Когда у меня есть одна в ячейке с именем "BusinessDate", это работает ...

Public Function sGetDate () as Date
Dim DateRng as Range
Dim sDate as Date
Set DateRng = Sheets("Control").Range("BusinessDate")

Я думал, что мог бы сделать что-то вроде этого для цикла из 10 дат из списка:

Public Function sGetDate () as Date
Dim DateRng as Range
Dim sDate as Date
Set DateRng = Sheets("Control").Range("BusinessDateList")

If i = 1 To 10
sDate = BusinessDateList(i)
Next i
End If

Once the date is set from the list, it can loop through the existing code.

This doesn't seem to work at setting the date, but I it's been so long since I have looked at any vba I can't think of where to start.  Any help would be great.

Answer 1

Попробуйте использовать For Each

, например

Each c in DateRng
debug.print c.value
next