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

aoe1981

jxndwxs 发表于 2014-7-31 12:32
程序修改好了吗？

您说得是哪儿的改动?

jxndwxs

aoe1981 发表于 2014-7-31 12:36
您说得是哪儿的改动?

查找重姓名学生。

jxndwxs

aoe1981 发表于 2014-7-31 12:36
您说得是哪儿的改动?

还有就是择班调整用总分。

jxndwxs

jxndwxs 发表于 2014-7-31 12:40
还有就是择班调整用总分。

如果别人不要，你给我单独修改一个，发给我。谢谢了。

jxndwxs

aoe1981 发表于 2014-7-31 12:36
您说得是哪儿的改动?

我要求修改的是：
1、查重名学生：姓名排序，同姓名学生，在“学生信息表”中“姓名”用红色字。
2、择班调整，按性别、总分最相近的交换。
只要修改这两样就行了。
谢谢了。

wxnxl

Sub 分班准备()
Dim xx, i&, h&, l&, minci%, arr
Application.ScreenUpdating = False
Call px1   '先按总分排序
报名信息表.Select
With 报名信息表
xx = .UsedRange
minci = .Rows(3).Find(what:="名次").Column
h = UBound(xx) '报名信息表行数
l = UBound(xx, 2) '报名信息表列数
arr = Range(Cells(1, minci), Cells(h, minci))
For i = 4 To h
    arr(i, 1) = i - 3
Next
.Cells(1, minci).Resize(h, 1) = arr
End With
Call px2
分班信息.Select
Application.ScreenUpdating = True
End Sub

达州张先生

aoe1981 发表于 2014-7-31 12:24
部分修改代码如下（择班模块）：

请问，将以下这两句加进去咋不行呢
     wsh.[A2] = "总人数：" & [b4].End(xlDown).Row - 3 & "人"   '本期总人数计算  'b3单元格向下最后一个非空单元格的行数减去表头2行即学生人数,加上单位“人”
      wsh.[E2] = "女：" & Application.CountIf(Range("D3", "D" & [C3].End(xlDown).Row), "女") & "人" '本期人数女计算
谢谢！

aoe1981

达州张先生 发表于 2014-7-31 13:09
请问，将以下这两句加进去咋不行呢
     wsh.[A2] = "总人数：" & .End(xlDown).Row - 3 & "人"   '本期 ...

1.         wsh.[A2] = "总人数：" & wsh.[b4].End(xlDown).Row - 3 & "人"   '本期总人数计算  'b3单元格向下最后一个非空单元格的行数减去表头2行即学生人数,加上单位“人”
   
2.         wsh.[E2] = "女：" & Application.CountIf(wsh.Range("D3", "D" & wsh.[C3].End(xlDown).Row), "女") & "人" '本期人数女计算
   

复制代码

aoe1981

jxndwxs 发表于 2014-7-31 12:46
我要求修改的是：
1、查重名学生：姓名排序，同姓名学生，在“学生信息表”中“姓名”用红色字。
2、择 ...

　　定位重名填充色；按总分调换择班生；排序主要总分成绩，不依靠单科成绩：
　　 5七年级分班(1234523451或1234554321分班及解决重名与择班).rar (49.72 KB, 下载次数: 55)

2014-7-31 13:40 上传

点击文件名下载附件

　　该附件即使删除单科也可以运行，只是报表格式会有所偏差……

jxndwxs

aoe1981 发表于 2014-7-31 13:40
　　定位重名填充色；按总分调换择班生；排序主要总分成绩，不依靠单科成绩：
　　

谢谢老师

请再帮忙修改一下：
1、在“分班信息”表中，年级用选择的方法，即：一  二  三  四  五  六  七  八  九
2、将分班的各表中单元格格式都设置为“文本”格式，便于增加字段后能正常显示（如增加 学校代码、学生学籍号等位数超过11位的数字）。