excel - Excel vba - 自定义工作日函数引发错误

Question

我无法修复 VBA 函数中的类型不匹配错误，有人可以帮忙吗？

sub test()
MsgBox NSEBDay(Date)
Endsub

Function NSEBDay(InPut_Date As Date) As Boolean
Dim MyDate As Date
Dim Hday As Range
Set Hday = wksBackup.Range("TSys_NSEHoliday")

MyDate = Application.Evaluate("=workday(InPut_Date+1,-1," & Hday.Address(0, 0) & ")")

If InPut_Date = MyDate Then
    NSEBDay = MyDate
End If
End Function

标签： excelvbaexcel-formula

Answer 1

这更直接一点。经过测试，我的工作正常。

MyDate = Application.WorksheetFunction.WorkDay(InPut_Date + 1, -1, Hday)