Excel vba - 自定义工作日函数引发错误 [关闭]

Question

关闭。 这个问题需要调试细节。 它目前不接受答案。

---

想改善这个问题吗？ 更新问题，使其成为 Stack Overflow的主题。

去年关闭。

改进这个问题

我无法修复 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 更改为 End Sub。 我猜这只是一个错字。

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

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

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