軟體:EXCEL
版本:2010
想要做一個自訂函數 偵錯如下
Function MonthAfter(Mycell, MonthAfterNum, Holidays)
那一天 = DateSerial(Year(Mycell), Month(Mycell) + MonthAfterNum, Day(Mycell))
星期幾 = Application.Weekday(那一天, 2)
Do While 星期幾 = 6 Or 星期幾 = 7
那一天 = 那一天 + 1
星期幾 = Application.Weekday(那一天, 2)
Loop
假日 = Application.Match(那一天, Holidays, 0)
MonthAfter = 假日
發現結果一定是 #N/A 但確定 那一天 一定存在於 Holidays
請問是為何
因為相同情形我使用 假日 = Application.CountIf(Holidays, 那一天)
結果會是 1 也就是有包含到

那一天=clng(dateserial(....))

又學到一課 感謝S大