一劳永逸--------全自动万能排班表!

vtr1694 · 发表于 2018-1-3 18:03

非常非常感谢！

wildcatyyf · 发表于 2018-1-21 20:05

大神，首先请接受我的膜拜。
另外，请教一下，如何将日历版的那个版本，改成从周一到周日显示呢？

hnsportboy · 发表于 2018-1-22 05:49

wildcatyyf 发表于 2018-1-21 20:05
大神，首先请接受我的膜拜。
另外，请教一下，如何将日历版的那个版本，改成从周一到周日显示呢？

这个会有点麻烦，因为设计时是按固定格式来编制的，如果要改的话，即要改表格中的变量顺序，也要改程序中的排序顺序。如果你有兴趣，可以根据ＶＢ脚本及表格的定义变量自行修改。

wildcatyyf · 发表于 2018-1-22 17:30

hnsportboy 发表于 2018-1-22 05:49
这个会有点麻烦，因为设计时是按固定格式来编制的，如果要改的话，即要改表格中的变量顺序，也要改程序中 ...

我粗略懂一些vba。可是看您写的宏代码，怎么感觉看不懂呢？应该改哪几行？

zhenli0807 · 发表于 2018-1-23 09:55

多谢楼主分享，功能很强大。

hnsportboy · 发表于 2018-1-23 11:33

wildcatyyf 发表于 2018-1-22 17:30
我粗略懂一些vba。可是看您写的宏代码，怎么感觉看不懂呢？应该改哪几行？

你可以看看，试着改改，我在边上有说明，另外，表格的定义的名称　如值班人员等也要改，不一定都改得正确，主要是学习，我也是看别人的代码，边改边学习才逐渐提高水平的。　：）

苍穹利剑 · 发表于 2018-3-20 15:29

如果是工作日是一组人员值班，每天一个夜班工作日和节假日是二组值班白天夜间两个班怎么修改呢

yyyxuxu · 发表于 2018-3-26 22:28

正好需要一个考勤版的排班表，谢谢大神的分享。我需要1天6个人每个人排一种班，但是我修改了班次名称后总是提示“下标越界”，调试中标出If ID(i, 1) = tmp(l, 1) Then这行代码变黄色，应该怎么修改呢？我是菜鸟，不懂VBA，希望大神回复

hsjzr · 发表于 2018-3-28 20:02

hnsportboy 发表于 2013-12-14 14:36
查了一下，确实有你说的问题，原因是设计的时候只考虑了最多20天的一个班循环（一般情况够用了，呵），这 ...

这个表的循环天数能改成一年一循环吗

hsjzr · 发表于 2018-3-29 01:01

hnsportboy 发表于 2013-12-14 14:36
查了一下，确实有你说的问题，原因是设计的时候只考虑了最多20天的一个班循环（一般情况够用了，呵），这 ...

这个排班表很好用，能改成一年一循环？？

		自动登录	找回密码
密码			免费注册

[原创] 一劳永逸--------全自动万能排班表!