超级强大1：七年级新生分班，解决了重名与择班问题

达州张先生

aoe1981 发表于 2014-8-3 22:47
　　这是作您的数据做的测试：
　　http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&p ...

麻烦你请将这段加色代码加进去，使同名的单元格和字体改变颜色。请见下面附件。谢谢！
Cells(j, rng.Column).Interior.ColorIndex = 4 'Interior.ColorIndex = 4底色为蓝
Cells(j, rng.Column).Font.ColorIndex = 3 'Font.ColorIndex = 3为黄色

aoe1981

达州张先生 发表于 2014-8-4 10:02
麻烦你请将这段加色代码加进去，使同名的单元格和字体改变颜色。请见下面附件。谢谢！
Cells(j, rng.C ...

　　附件如下：
　　 7、▲▲▲七年级分班(解决重名与择班，三行表头有考号aoe1981)3.rar (64.05 KB, 下载次数: 38)

2014-8-4 12:36 上传

点击文件名下载附件

　　说明：
　　1.重名只填充了底色，没有加字体颜色，希望能用；
　　2.统计错误不是说代码出错了，而是您在“模块1分班”中任意加指定的格式设置语句造成的，出错语句如下：

1. '        Rows("4:120").RowHeight = 15 '第3-120行行高14大小可调
   

复制代码

　　我已注释掉，该设置使得每张分班表的前120行为已使用行，因而导致后面统计错误！

aoe1981

达州张先生 发表于 2014-8-4 10:02
麻烦你请将这段加色代码加进去，使同名的单元格和字体改变颜色。请见下面附件。谢谢！
Cells(j, rng.C ...

　　保留您的格式设置的变通方法如下：
　　 7、▲▲▲七年级分班(解决重名与择班，三行表头有考号aoe1981)3.rar (60.54 KB, 下载次数: 53)

2014-8-4 12:43 上传

点击文件名下载附件

　　改变了“模块4择班”中的判断语句为：

1.         If fbxx(i)(j, xbl) = "男" Then tj(i, 1) = tj(i, 1) + 1 Else If fbxx(i)(j, xbl) = "女" Then tj(i, 2) = tj(i, 2) + 1 '计算男、女错
   

复制代码

　　　这样统计结果正确了，您的格式设置也保留了！

aoe1981

达州张先生 发表于 2014-8-4 10:02
麻烦你请将这段加色代码加进去，使同名的单元格和字体改变颜色。请见下面附件。谢谢！
Cells(j, rng.C ...

　　还有就是，您的“同名检测”两个按钮我替您调用同一个模块，移除了一个模块……
　　希望能使用……

达州张先生

aoe1981 发表于 2014-8-4 12:46
　　还有就是，您的“同名检测”两个按钮我替您调用同一个模块，移除了一个模块……
　　希望能使用……

多谢，很完美

达州张先生

aoe1981 发表于 2014-8-4 12:44
　　保留您的格式设置的变通方法如下：
　　
　　改变了“模块4择班”中的判断语句为：

你好，由于考虑不周，请将243楼附件中的择班按钮中增加一段将生成的各班分表按“总分降序排序”，以便查看分班后名册中的总分情况，我录制不行，谢谢！

aoe1981

达州张先生 发表于 2014-8-4 17:32
你好，由于考虑不周，请将243楼附件中的择班按钮中增加一段将生成的各班分表按“总分降序排序”，以便查 ...

　　请看下面的附件：
　　 7、▲▲▲七年级分班(解决重名与择班，三行表头有考号aoe1981)3.rar (59.16 KB, 下载次数: 123)

2014-8-4 20:57 上传

点击文件名下载附件

EXCEL江湖

楼主厉害！在源数据表中发现一个问题，就是分班后平均分好象有些距离，能否做到更平均些！
能否帮忙看下这个分组贴：http://club.excelhome.net/thread-1095774-1-1.html

jiangdong110

收藏一下，顶一下！好帖！

张祥荣

楼主能不帮忙做这样一个分班系统呢？