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

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

Answer 1

这有点直截了当。经过测试，在我这边工作得很好。

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

Answer 2

请将第一个函数中的Endsub更改为Endsub。我猜这只是一个拼写错误。

关于函数2中的表达式，请进行以下更改：

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

通过这种方式，输入日期被识别为变量，而不是字符串的一部分。DateAdd函数将一天添加到值中。