ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 达州张先生

[求助] 如何按成绩和性别分班

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2014-7-23 18:22 | 显示全部楼层
达州张先生 发表于 2014-7-23 18:10
真是各有所好,由于本人不懂程序,再次麻烦你了,请见附件。谢谢!
1、请修改一下,将合计栏放在第3行
...

那报名信息表中的“班级”列要不要?学校列、年级列已删除……
信息表中可以有表头,但生成各班的表头还是要插入的,如果用复制粘贴,则表头都一样了……

TA的精华主题

TA的得分主题

发表于 2014-7-23 18:35 | 显示全部楼层
达州张先生 发表于 2014-7-23 18:10
真是各有所好,由于本人不懂程序,再次麻烦你了,请见附件。谢谢!
1、请修改一下,将合计栏放在第3行
...

  按你要求改了,只是现在生成的表头中的信息,比如学校名,只能手动改了,或者是在代码中改了……
   性别总分分班(aoe1981 ).rar (40.36 KB, 下载次数: 28)

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-7-23 18:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
达州张先生 发表于 2014-7-23 18:10
真是各有所好,由于本人不懂程序,再次麻烦你了,请见附件。谢谢!
1、请修改一下,将合计栏放在第3行
...

建议您一般在作为数据源的表里头不要加所谓的表头,这样做,在代码的维护、灵活性、适应性上都会带来不便和问题,得不偿失……当然,我还是按您的要求给您改了……

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-7-23 19:32 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
aoe1981 发表于 2014-7-23 18:35
  按你要求改了,只是现在生成的表头中的信息,比如学校名,只能手动改了,或者是在代码中改了……
  ...


这样很好,在生成表中就差页面(横向页面、各列宽度,打印2行表头)设置了,多谢!

TA的精华主题

TA的得分主题

发表于 2014-7-23 20:31 | 显示全部楼层
  重大喜讯,传一组对比测试文件:
  2380名学生分10班:
  普通调用对象代码用时:60.1719秒,且进入假死状态,对于大规模学校,几乎不适用!
  优化内存数组代码用时:5.2891秒,数据越多,差距越大,请重视这次优化!
  附件如下:
   性别总分分班对比测试.rar (357.94 KB, 下载次数: 106)
  压缩包内有两个文件,大家在同样的环境中对比测试。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-7-23 21:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
aoe1981 发表于 2014-7-23 20:31
  重大喜讯,传一组对比测试文件:
  2380名学生分10班:
  普通调用对象代码用时:60.1719秒,且进 ...

能否写一段生成各班分表的各列距设置。(行距好办,我有)。各列宽度如下: 列宽= Array(4.25, 4.25, 6.38, 2.75, 4.13, 15.5, 6.75, 9.63, 15.75, 17.5, 10.8, 8.25, 4.8, 4.5, 4.5, 4.5, 6.13, 4.8)。其他“格式和宏语句”请不要改动,请见发来的附件。谢谢!

性别总分分班(aoe1981 ).rar

32.51 KB, 下载次数: 12

TA的精华主题

TA的得分主题

发表于 2014-7-23 23:01 | 显示全部楼层
达州张先生 发表于 2014-7-23 21:22
能否写一段生成各班分表的各列距设置。(行距好办,我有)。各列宽度如下: 列宽= Array(4.25, 4.25, 6.3 ...

明天研究下,您的意思我明白,要的是生成后直接可以打印的,其实用格式刷逐张工作表刷一下也不太费事,一般的学校平行不了几个班的……呵呵

TA的精华主题

TA的得分主题

发表于 2014-7-23 23:10 | 显示全部楼层
本帖最后由 hlly888 于 2014-7-23 23:18 编辑
达州张先生 发表于 2014-7-23 11:11
请指教一下有关运行“平均分”的宏语句,谢谢!


“平均分”的宏语句
krr(j, 6) = Round(krr(j, 5) / krr(j, 2), 1)


分班前  已把  原始数据表按“总分”降序排序。

2380人  
1 各班总人数均衡,
2 男女人数均衡,( 各班男不超过1人,各班女不超过1人)
3 各班成绩优劣生均衡
4 各班同名次学生分开
5(分表)男先女后排列

如此多的条件,分20个班 (分表)用时 2 秒。还想多快啊?

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2014-7-23 23:11 | 显示全部楼层
分班前  已把  原始数据表按“总分”降序排序。
2380人  分班


新生分班(多条件分班)E.zip (182.46 KB, 下载次数: 101)

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-7-23 23:57 | 显示全部楼层
hlly888 发表于 2014-7-23 23:11
分班前  已把  原始数据表按“总分”降序排序。
2380人  分班

多谢,多谢
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 17:29 , Processed in 0.043404 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表