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

xukunpeng88888 · 发表于 2024-8-26 14:53

上级要求从今年开始实行阳光分班，即不根据成绩进行优劣搭配，而是直接随机分配，只要男女搭配平均即可。
具体要求：
1.在sheet1中的F1单元格输入班级数量，然后单击按钮即可完成分班。
2.各班人数要平均（班级之间人数差不超过1人）
3.各班男女生人数要平均（班级之间男女生人数差不超过1人）
4.自动生成新的各班级名单sheet表，名称分别为班级名称（1,2,3,4,5,等），格式与总表一致（三列：学号、姓名、性别）。
QQ截图20240826144522.jpg

请各位大神指导。谢谢。

阳光分班.rar (24.04 KB, 下载次数: 12)

Again123456 · 发表于 2024-8-26 17:41

本帖最后由 Again123456 于 2024-8-27 09:22 编辑

阳光分班.rar (34.49 KB, 下载次数: 4)

sunya_0529 · 发表于 2024-8-26 21:07

JSA练习一下——

rysxing · 发表于 2024-8-26 22:40

试试，jsa。。。。。。

xukunpeng88888 · 发表于 2024-8-27 09:21

本帖最后由 xukunpeng88888 于 2024-8-27 09:36 编辑

sunya_0529 发表于 2024-8-26 21:07
JSA练习一下——

感谢大佬，可能我没说明白，不是要班内男女生差距不能大于1，是各班级之间的男生差不能大于1，女生差也不能大于1，也就是只要男生平均分配到各班，女生也平均分配到各班就可以了，你这个方案很好。

但是运行时出现如下错误对话框：
QQ截图20240827093434.jpg

xukunpeng88888 · 发表于 2024-8-27 09:22

本帖最后由 xukunpeng88888 于 2024-8-27 09:56 编辑

rysxing 发表于 2024-8-26 22:40
试试，jsa。。。。。。

非常非常感谢！

但是没看到分班按钮在哪里，如何使用呢？

xukunpeng88888 · 发表于 2024-8-27 09:24

本帖最后由 xukunpeng88888 于 2024-8-27 09:55 编辑

Again123456 发表于 2024-8-26 17:41

感谢大佬帮助，非常好使，谢谢！！！

xukunpeng88888 · 发表于 2024-8-27 09:35

sunya_0529 发表于 2024-8-26 21:07
JSA练习一下——

运行时显示错误：

_VeryWell · 发表于 2024-8-27 09:51

xukunpeng88888 发表于 2024-8-27 09:35
运行时显示错误：

试一下:工具→选项→编译中取消 "禁止全局作用域表达式"

Again123456 · 发表于 2024-8-27 09:51

本帖最后由 Again123456 于 2024-8-27 15:36 编辑

我想多了，我是班级随机，人加班也随机。可能人随机排一次，最后班级再排一次就行了

阳光分班.rar (43.43 KB, 下载次数: 1)

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

[求助] 请大神帮写一个平均分班的VBA