Добавление даты с использованием исключений выходных (пятница) в VBA

Question

У меня есть код, который дает в ячейке "H5" исключая пятницы, но он ссылается на "H4".И мне нужно "H4" Также исключая пятницы.

Sub DateAddition()

Range("H4").Value = DateAdd("d", 1, CDate(Range("H4").Value))

Range("H5").Value = WorksheetFunction.WorkDay_Intl(Range("H4").Value, 1, 16, 0)

End Sub

Я пробовал использовать как этот К сожалению не работает.

Range("H4").Value = DateAdd("d", 1, CDate(WorksheetFunction.WorkDay_Intl(Range("H4").Value, 1, 16, 0))

Я знаю, могу ли я внести изменение в эту строку.Но не знаю код

Range("H4").Value = DateAdd("d", 1, CDate(Range("H4").Value))

Мне нужно, чтобы ячейка "H4" была выставлена ​​как дата, исключая пятницы

Answer 1

Просто используйте то же самое, что и для H5. Метод WorksheetFunction.WorkDay_Intl уже добавляет один день (заданный вторым параметром 1), поэтому вам не нужно использовать DateAdd.

Option Explicit

Sub DateAddition()
    Range("H4").Value = WorksheetFunction.WorkDay_Intl(Range("H4").Value, 1, 16, 0)
    Range("H5").Value = WorksheetFunction.WorkDay_Intl(Range("H4").Value, 1, 16, 0)
End Sub