excel蛇(s)形分班函数

来源:互联网 发布:mac 通信检测声音变小 编辑:程序博客网 时间:2024/06/06 19:00
一班二班三班四班五班六班12345612111098713141516171819
按名次蛇形分班,,其中1~19代表名次

Public Function fenban(mc, bjnum)'mc 学生顺序名次,bjnum 共分多少个班,蛇形分班,返回该生的班级mc = mc - 1Dim jo As Integer '奇偶轮Dim jg As Integer '所在结果班级Dim cs As IntegerDim ys As Integercs = Int((mc / bjnum))ys = mc Mod bjnumjo = cs Mod 2If jo = 0 Thenjg = ys + 1Elsejg = bjnum - ysEnd Iffenban = jgEnd Function

原创粉丝点击