工作日功能添加工作日

Question

我正在尝试根据D列中的日期运行代码。以下代码有效。但条件格式的“if”部分需要+30个工作日，而不是30天。我假设WORKDAY函数有助于此。但是，当我尝试+工作日（30）和类似的事情时，我无处可去。

For Each oKey In oDictionary.keys
    Editing_Sheet.Range("A1").CurrentRegion.AutoFilter Field:=1,    Criteria1:=CStr(oKey)
    LastRowFiltered = Editing_Sheet.Cells(Rows.Count, "A").End(xlUp).Row
        If Range("D" & LastRowFiltered) <= Date + 30 Then
         'run code'

Answer 1

在 VBA中使用工作表 Workday（）功能

Sub WhyWork()
    Dim d1 As Date, d2 As Date, wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    d1 = Date
    d2 = wf.WorkDay(d1, 30)
    MsgBox d1 & vbCrLf & d2
End Sub