Добавление WorkDay

Question

Попытка добавить рабочий день. Хотя есть много информации о том, как использовать это в Excel, VBA не так много. Мой код ниже в основном украден из чего-то, что я нашел здесь. В Интернете нет информации по этому вопросу.

Я пытаюсь добавить день к дате, но он не может включать выходные или праздничные дни (знакомые с использованием Excel). Каждый раз, когда он добавляет WorkDay (Дата, 1), я, кажется, придумываю дату, которая заканчивается в 2040 году.

Set wf = Application.WorksheetFunction
d1 = wf.WorkDay(Date, 1)
With rngData
.AutoFilter Field:=3, Criteria1:=Array( _
    "3456", "3125", "3451", "3110", "3370"), Operator:=xlFilterValues
For Each c In wsd.AutoFilter.Range.Range("M2:M" & lngLastRow).SpecialCells(xlCellTypeVisible)
    c.Value = c.Value + d1
Next

Answer 1

WorksheetFunction.WorkDay

Возвращает число, представляющее дату , которое является указанным числом рабочих дней до или после даты (начало дата).

С d1 = wf.WorkDay(Date, 1) вы возвращаете дату , которую затем добавляете к другим датам в l oop.

Позвоните WorkDay на даты в л oop:

c.Value = wf.WorkDay(c.Value, 1)