[算表] ExcelVBA函数Application.Match一问

楼主: home0303 (Blue night)   2017-08-26 00:45:45
软件: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 也就是有包含到
作者: soyoso (我是耀宗)   2017-08-26 10:52:00
那一天=clng(dateserial(....))
楼主: home0303 (Blue night)   2017-08-27 00:19:00
又学到一课 感谢S大

Links booklink

Contact Us: admin [ a t ] ucptt.com