工作日自定义函数（考虑调休）

zopey

ZhouFfett 发表于 2018-4-13 14:52
这没有实用价值，主要是涉及调休什么的：
   在将来哪天会调休，不是由你的“自定义函数”决定，而是看有 ...

''第三个参数，即下面的Arr数组，引用自工作表某列，用来存放历年的节假日，
简单修改就可。（一年的节假日也就二十多条）

Arr = Holidays
For i = 2 To UBound(Arr)
   If Weekday(Arr(i, 1)) = 1 Or Weekday(Arr(i, 1)) = 7 Then
      xD1(Arr(i, 1)) = 1
   Else
      xD1(Arr(i, 1)) = 0
   End If
Next i

ZhouFfett

zopey 发表于 2018-4-13 15:22
''第三个参数，即下面的Arr数组，引用自工作表某列，用来存放历年的节假日，
简单修改就可。（一年的节 ...

这相当于公式的辅助，用公式就可以解决

zopey

ZhouFfett 发表于 2018-4-13 15:30
这相当于公式的辅助，用公式就可以解决

最初我也尝试用普通公式的加减法 推算下一个工作日的问题，水平有限至今不得。

ZhouFfett

zopey 发表于 2018-4-13 15:45
最初我也尝试用普通公式的加减法 推算下一个工作日的问题，水平有限至今不得。

首先从实务考虑问题
考虑到实务上般只需要一年（事实上，你只需要计划当年的休息日情况，以后的年份以后再预计吧）

可以在独立一个表格里，A列列出每一天，B列标识是不是休息。把365或366天每一天都列出来

对于休假的问题，最多变数是春节前，有的单位提前半个月就放假，每个企业都可能制定自己的放假时间

zopey

ZhouFfett 发表于 2018-4-13 15:52
首先从实务考虑问题
考虑到实务上般只需要一年（事实上，你只需要计划当年的休息日情况，以后的年份以后 ...

365天 都做标识？（工作量。。。）
不妨按照这个想法 你做一个实际的 例子，看看是否好用。

sevra

zopey 发表于 2018-4-13 14:28
再次调用时，数据类型不一致显示“#value”，需要最后一句
函数返回值   chinawork2 = Format(endday, " ...

您太厉害了！感谢高人！！！
请问今后随着实际年份变化，如何调整chinawork函数公式？

aanger

感谢楼主的分享，不错！

Seconder

您好！我在Excel2016 for Mac中无法正常使用，返回#value，不知道是为什么

补充内容 (2018-6-19 12:39):
发现是Mac不支持字典，缺少Scripting Runtime
https://social.technet.microsoft.com/Forums/office/en-US/58473fb2-8846-4e44-a05a-a97eb963c41d/scripting-dictionary-on-a-mac?forum=Office2016forMac

Seconder

在Excel 2016 for Mac 中无法使用，Mac里面不支持字典
https://social.technet.microsoft.com/Forums/office/en-US/58473fb2-8846-4e44-a05a-a97eb963c41d/scripting-dictionary-on-a-mac?forum=Office2016forMac

2943902650

初接触这方面，不懂的太多。前辈能不能帮忙看看，感谢万分！http://club.excelhome.net/thread-1418769-1-1.html