请大神帮写一个平均分班的VBA

rysxing

试试，jsa。。。。。。

spaghetti8

Ramda的写法.

Again123456

spaghetti8 发表于 2024-8-27 16:53
Ramda的写法.

尾数分别正倒了赋值，好方法

sunya_0529

xukunpeng88888 发表于 2024-8-27 09:21
感谢大佬，可能我没说明白，不是要班内男女生差距不能大于1，是各班级之间的男生差不能大于1，女生差也不 ...

换个简单的逻辑重写一下——

NBCBA123

JSA练习一下

NBCBA123

1. function spp(){
   
2.         Application.DisplayAlerts=false;
   
3.         Application.ScreenUpdating=false;
   
4.         for(shtt of Sheets){
   
5.                 if(shtt.Name !=Sheets(1).Name) shtt.Delete()
   
6.         }
   
7.         date=Range(`a1`).CurrentRegion();
   
8.         arr=date.slice(1);
   
9.         bj=Range(`f1`).Value2;
   
10.         var boy=[],girl=[];
    
11. //按性别分组并分配随机数
    
12.         arr.map(v=>{
    
13.                 num=Math.random()*10000;
    
14.                 v[2]==`男` ? boy.push([...v,num]) :girl.push([...v,num]);
    
15.         });
    
16. //计算每个班男女平均人数及余数
    
17.         boy_avr=Math.floor(boy.length/bj);
    
18.         mod_boy=boy.length % boy_avr;
    
19.         girl_avr=Math.floor(girl.length/bj);
    
20.         mod_girl=girl.length % girl_avr;
    
21.         brr=[];
    
22. //生成班级序号及每班男女人数
    
23.         for(i=1;i<=bj;i++){
    
24.                 brr.push([i,boy_avr,girl_avr]);
    
25.         };
    
26. //分配男生剩余人数
    
27.         i2=0;
    
28.         do {
    
29.                 brr[i2][1]++;
    
30.                 i2++;
    
31.                 mod_boy--;
    
32.         } while(mod_boy>0);
    
33. //分配女生剩余人数
    
34.         i2=brr.length-1;
    
35.         do {
    
36.                 brr[i2][2]++;
    
37.                 i2--;
    
38.                 mod_girl--;
    
39.         } while(mod_girl>0);
    
40. //男女分组排序
    
41.         boy.sort((a,b)=>a[3]-b[3]);
    
42.         girl.sort((a,b)=>a[3]-b[3]);
    
43. //按班级男女人数表分配学生
    
44.         brr.map(v=>{
    
45.                 var [bj,boy_count,girl_count]=v;
    
46.                 stu=boy.splice(0,boy_count).concat(girl.splice(0,girl_count));
    
47.                 stu.map(vv2=>vv2.pop());
    
48.                 stu.sort((a,b)=>a[0]-b[0]).unshift(...date.slice(0,1));
    
49.                 sht=Worksheets.Add(undefined,Sheets(Sheets.Count));
    
50.                 sht.Name=`${bj}班`;
    
51.                 sht.Range(`a1`).Resize(stu.length,stu[0].length).Value2=stu;
    
52.                 sht.UsedRange.Borders.LineStyle=1;
    
53.                 sht.Columns.AutoFit();
    
54.         });
    
55.         Application.ScreenUpdating=true;
    
56.         Application.DisplayAlerts=true;
    
57.         alert(`分班完毕！！！`);
    
58. };

复制代码

xd3210

NBCBA123 发表于 2024-8-28 08:47

stu.map(vv2=>vv2.pop());这句的作用是什么？

NBCBA123

xd3210 发表于 2024-8-29 14:25
stu.map(vv2=>vv2.pop());这句的作用是什么？

把分配的随机数删除

xd3210

NBCBA123 发表于 2024-8-29 16:30
把分配的随机数删除

感谢您的耐心讲解！