excel蛇(s)形分班函数

最新推荐文章于 2024-11-29 13:03:02 发布

文少

最新推荐文章于 2024-11-29 13:03:02 发布

阅读量5.3k

点赞数 1

CC 4.0 BY-SA版权

文章标签： excel integer function

本文链接：https://blog.csdn.net/wyw308/article/details/7903752

本文介绍了一种基于名次的蛇形分班算法实现方法，通过VBA代码展示了如何将学生按照名次蛇形分配到不同班级中，确保各班级实力均衡。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一班	二班	三班	四班	五班	六班
1	2	3	4	5	6
12	11	10	9	8	7
13	14	15	16	17	18
19

按名次蛇形分班，，其中1~19代表名次

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