新学期开始，如何按成绩名次进行S形分班，一个自定义函数帮到你

哆哆Excel

发布于 2023-09-09 10:52:21

5090

发布于 2023-09-09 10:52:21

文章被收录于专栏：哆哆Excel

新学期开始，如何按成绩名次进行S形分班，一个自定义函数帮到你

什么叫S型分班？

例如一所学校一个级要分成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、先放在此处