例如一所学校一个级要分成6个班级,
1.学校可以先分出男女同学
2.男同学分班:
把成绩第1名的男学生分在1班,第2名男学生分到2班;第3名男学生分到3班.....第6名男学生分到6班,第7名男学生分到1班。第8名男学生分到2班......第12名男学生分到1班,第13名男学生分到1班.....
3.女学生也同理操作
如图
这是以前做过的一个函数,今天有问起,解析一下吧
【代码】函数如下
'S蛇形分班函数,返回该生的班级
Public Function fenban(mc, bjNum)
'mc 学生顺序名次,bjNum 共分多少个班
mc = mc - 1
'奇偶轮
Dim jo As Integer
'要返回所在班级号
Dim jg As Integer
Dim cs As Integer
Dim ys As Integer
cs = Int((mc / bjNum))
ys = mc Mod bjNum
jo = cs Mod 2
If jo = 0 Then
jg = ys + 1
Else
jg = bjNum - ys
End If
fenban = jg
End Function
【使用方法】
1、先放在此处
2、返回工作表如此输入
3、再用班别进行排列就可分出班来了
【代码解析】
看图