时间:2016-01-22 06:55 来源: 我爱IT技术网 作者:佚名
本文所分享的知识点是【用Excel给学生轻松排座位的方法介绍】，欢迎您喜欢我爱IT技术网所分享的教程、知识、经验或攻略，下面是详细的讲解。
用Excel给学生轻松排座位的方法介绍
Sub paizuo()
Sheets("座位表").Select '激活“座位表”工作表
Dim Group As Integer '定义表示组数的变量Group
Group=Val(InputBox("本班学生分为几组?")) '将输入的数字赋给变量Group
Zuoci (Group) '调用Zuoci函数对学生进行排座
Sheets("座位表").Select
End Sub
Sub Zuoci(gro As Integer)
Dim i As Integer, j As Integer ' 定义循环变量
Sheets("学生名单").Select '激活“学生名单”工作表
Dim Irows As Integer, Icols As Integer, Ixs As Integer '定义“座位表”行变量，列变量，及"学生名单"学生行变量
Irows=60 / gro '初始化行变量
Icols=gro '初始化列变量
Ixs=1 '初始化“学生名单”学生行变量
For i=1 To Icols '第一位学生自第2行开始
Ixs=i + 1
For j=2 To Irows + 2
Sheets("座位表").Cells(j, i)=Sheets("学生名单").Cells(Ixs, 1) '给座位表赋值
Ixs=Ixs + gro '下一个学生为当前第gro个学生
Next j
Next i
End Sub
关于用Excel给学生轻松排座位的方法介绍的相关讨论如下：
相关问题：如何有效排座位
答：杨广存我们老师们都知道，每当新学期开始，每个班主任都面临一个即急需解决又令我们头疼的问题，就是排座位。班主任排座位的过程也是一个“排兵布阵”的过程，班主任排座位应该把每个同学都“分派”在合适的位置，让每个同学都可以发挥出最大的潜力... >>详细
相关问题：怎样用excel制作学生座位表 要求要尽量详细的过程
答：请告知具体的要求，看我的帐号资料，或者发百度私信给我， >>详细
相关问题：如何才能快速的安排考试座位表，用excel电子表格？
答：将所有姓名输入到A列，在B1输入公式： =ROUND(RAND()*1000,2) 将公式向下复制到相应行。 选中AB列，按B列升序排序。 在C列加上顺序号。 删除B列。 这样就是随机排出的顺序号了。 再按人数分到各教室即可。 >>详细
- 评论列表（网友评论仅供网友表达个人看法，并不表明本站同意其观点或证实其描述）
-