作者home0303 (Blue night)
看板Office
标题[算表] ExcelVBA函数Application.Match一问
时间Sat Aug 26 00:45:45 2017
软体: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 也就是有包含到
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.137.49.216
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1503679547.A.020.html
1F：→ soyoso: 那一天=clng(dateserial(....)) 08/26 10:52
2F：→ home0303: 又学到一课 感谢S大 08/27 00:19