求助：分组抽签

odyssey166

求助VBA方案： 1、体育比赛预赛分组，来自9个省的共25名队员分7个小组（第1-5组各4名队员，第6、7组为3名队员），但有7省各有3名队员，2个省各有2名队员。请设计一个抽签方案，尽量让同省的队员不在同1小组。 2、希望做一个随机抽签的系统，点“100米抽签”的按钮，将绿色处的25支队按上述的要求随机地填入黄色处100米的分组处，点“200米抽签”和“300米抽签”按键，也分别将队名填入到相应的分组表中去。 3、原则就是同一个项目的分组尽量将同一个省份的队伍分开，即使有，也最多是两人，而且让有同一省份的组数达到最少。 4、不知道VBA是否可以实现？ 具体见附件 谢谢了。

LIUZHU

这个抽签不是要现场派代表抽吗，或者像重大足球国际赛事那样，直播抽签的全部过程，直接用抽签程序来抽签，别人怕不是怀疑有猫腻

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1694607&extra=&mobile=

grf1973

请用wps测试。。。。。。

micch

实用性很强的需求，不错

lss001

同城分开抽签.zip (21.26 KB, 下载次数: 9)

2024-6-12 18:03 上传

点击文件名下载附件

office测试版参考

wang-way

LIUZHU 发表于 2024-6-12 14:44
这个抽签不是要现场派代表抽吗，或者像重大足球国际赛事那样，直播抽签的全部过程，直接用抽签程序来抽签， ...

是的，一般都是手动，越原始越可信

LIUZHU

25名队员，分成7个组，怎么是4+4+4+4+4+3+3的组合，这就有26人了啊，应该是4+4+4+4+3+3+3的组合

LIUZHU

参与下，效果演示

LIUZHU

JS代码，供参考

1. function 抽签100米(){
   
2.         let rng=Cells.Find("100米");
   
3.         比赛抽签(rng);
   
4. }
   
5. function 抽签200米(){
   
6.         let rng=Cells.Find("200米");
   
7.         比赛抽签(rng);
   
8. }
   
9. function 抽签300米(){
   
10.         let rng=Cells.Find("300米");
    
11.         比赛抽签(rng);
    
12. }
    
13. function 比赛抽签(rng){
    
14.         let sf=Range("k7").CurrentRegion.Value2.slice(1 ).reduce((sf,x,i,ar)=>{
    
15.                 if (x[2]==null) x[2]=ar[i-1][2];
    
16.                 return sf[x[1]]=x[2], sf;
    
17.         },{});
    
18.         let n=Math.ceil(Object.keys(sf).length/7), obj={}, dic={};
    
19.         for (let i=0;i<=n-1;i++){
    
20.                 let count=Math.min(7,Object.keys(sf).length);                        //剩余未分组的队员数量
    
21.                 for (j=1;j<=count;j++){
    
22.                         let temp1=obj[j]=obj[j] || Array(n).fill([""]);                //二维数组
    
23.                         let temp2=dic[j]=dic[j] || [];                //记录本组参赛队所属省分
    
24.                         let dy=Object.entries(sf).filter(([a,b])=>!temp2.includes(b));
    
25.                         if (dy.length==0) dy=Object.entries(sf);
    
26.                         let k=Math.floor(Math.random()*dy.length);                //随机号码
    
27.                         temp1[i]=[dy[k][0]], temp2.push(dy[k][1]);
    
28.                         delete sf[dy[k][0]];                                                        //删除已被抽中参赛队
    
29.                 }
    
30.         }
    
31.         let res=Object.values(obj).flat();
    
32.         rng.Offset(1,0).Resize(res.length,res[0].length).Value2=res;
    
33. }

复制代码