请大神帮忙修改一个抽签的代码。

moto1717

源代码是一位老大在群里发的一个抽奖的程序，正好符合我的需求，但是改了好几天，还是达不到要求，头都大了，请各位朋友帮忙。
抽签思路：
1、有四类人员，甲为检查人员，乙类为组长，丙类为组员，丁类为后补组员（要临时更改）。在姓名数据里面，但是d列以后会每次清空？可能是临时数据存放区。
2、需要满足条件，检查人员在甲类人员抽，组长在乙类人员抽，未中签的乙类人员和丙类以及丁类为组员范围，但每次保证有两个丁类人员中签。
3、最好有姓名滚动的效果，就像现在。

改了好几天了，从0入手，把所有的代码都翻译了，但还是找不到门路，着急用，先谢谢大家。

renkangjizhen

每类人员一次抽几个？没有附件和具体要求很难设计

moto1717

renkangjizhen 发表于 2020-3-8 15:39
每类人员一次抽几个？没有附件和具体要求很难设计

有附件的，我已经传上来了啊。人员抽签数量在程序里面设置。

renkangjizhen

删除单元格，下面的单元格向上用：Range("A1").Delete Shift:=xlUp

renkangjizhen

每次随机抽取还是公平分配机会？附件数据名单中只有两类人员吗？但是你的说明中却是有三类人！

renkangjizhen

看看能否满足要求

moto1717

renkangjizhen 发表于 2020-3-9 04:37
看看能否满足要求

老大，显示错误啊。帮忙看一下

moto1717

renkangjizhen 发表于 2020-3-9 04:37
看看能否满足要求

这个地方显示有问题

moto1717

renkangjizhen 发表于 2020-3-9 03:29
每次随机抽取还是公平分配机会？附件数据名单中只有两类人员吗？但是你的说明中却是有三类人！

是参与抽签的有四类人员，只不过D列和E列我在没法输入姓名，有一段代码是给清空的，这块区域应该是临时数据存放区。抽签思路是这样的：甲类人员对应的监督检查，乙类人员对应的是组长，未中签的乙类人员和丙类和丁类是组员，但每次组员要求保证有2个丁类人员，都是随机抽取的。

moto1717

哪位可以帮我看看啊？