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 method已经添加了一天（由第二个参数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

在VBA中使用排除周末（星期五）的日期添加

1 个答案: