工作日功能添加工作日

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, wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    d2 = wf.WorkDay(Date, 30)
    MsgBox Date & vbCrLf & d2
End Sub