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

gyzgsjh · 发表于 2017-6-26 11:46

好用好用好用好用好用

hnsportboy · 发表于 2017-6-27 12:24

hhhang 发表于 2017-6-23 20:59
楼主看看我这种有办法排吗，25个人25种班次。好像是很乱，谢谢

先看205楼.

db2017 · 发表于 2017-6-28 22:20

考勤版排班表那个生成排班表插件点击怎么没反应？

db2017 · 发表于 2017-6-28 22:37

考勤版排班表按说明怎么搞不了，"生成排班表和统计"插件没反应，求大神指点！

hnsportboy · 发表于 2017-6-28 23:01

db2017 发表于 2017-6-28 22:37
考勤版排班表按说明怎么搞不了，"生成排班表和统计"插件没反应，求大神指点！

不明白，大家都用得好好的，你下的哪个版本？可以发上来看看

教父01 · 发表于 2017-8-29 14:50

老师您好，想请您帮我解决一下自动排序的问题，就是随着数据改变而数据列自动排序调整！！！本人尝试了很多办法，总是不得要领，表内数据变化后，所在列根据排序自动调整位置，始终按照排名1.2.3.....顺序排列！！！现在就是自动调整无法实现，还请各位大侠多多帮助！！！
http://club.excelhome.net/thread-1365815-1-1.html

hnsportboy · 发表于 2017-8-30 12:19

教父01 发表于 2017-8-29 14:50
老师您好，想请您帮我解决一下自动排序的问题，就是随着数据改变而数据列自动排序调整！！！本人尝试了很多 ...

你的问题前提不对，名次排序是动态的，各列的数据也是动态的，不能实现全自动排序，
实际上是两个步骤完成：
1、各列的数据输完后，产生名次
2、根据名次对各列进行排序
这实际上是一个VB批处理方式，分两步进行，修改了一下，录完数据后，按ctrl-q实现半自动各列排序，可以满足你的要求。

教父01 · 发表于 2017-8-30 14:13

hnsportboy 发表于 2017-8-30 12:19
你的问题前提不对，名次排序是动态的，各列的数据也是动态的，不能实现全自动排序，
实际上是两个步骤完 ...

谢谢老师，非常感谢帮助我解决了这个问题，但是还是没有能够自动完成，这是另外一位grf1973大侠帮助做的代码，已基本实现了这个功能！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 4 Or Target.Row > 25 Then Exit Sub
If Target.Column < 4 Or Target.Column > 11 Then Exit Sub
Application.EnableEvents = False
Range("D3:K27").Sort Key1:=Range("D27:K27"), Orientation:=xlLeftToRight
Application.EnableEvents = True
End Sub

[color=rgb(51, 102, 153) !important]复制代码

不过就是再插入行的话，就得手动更改代码，grf1973大侠说：可以把作用范围全部改成变量的，您看你能帮我改一下吗？万分感谢！！！

hnsportboy · 发表于 2017-8-30 20:19

教父01 发表于 2017-8-30 14:13
谢谢老师，非常感谢帮助我解决了这个问题，但是还是没有能够自动完成，这是另外一位grf1973 ...

其实大家已经做得不错，EXECL论坛最大的乐趣并不是解决问题，而是你学习吸收了多少，建议你自己消化修改，这样有助于你的EXECL水平提高。

教父01 · 发表于 2017-8-31 09:13

hnsportboy 发表于 2017-8-30 20:19
其实大家已经做得不错，EXECL论坛最大的乐趣并不是解决问题，而是你学习吸收了多少，建议你自己消化修改 ...

谢谢！已经按照自己的想法改好了！

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

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