学生座位表设计

用VBA编排学生座位表

用VBA编排学生座位表 (2011-09-10 23:10:47) 转载▼ 分类：技术交流 标签： it 在每学年的新生开学前，班主任老师要做大量的准备工作，其中必做的一件事就是收集本班学生的报名信息，编排上课的座位表。以往班主任老师都是通过手工来编排座位表的，消耗的时间和精力相当大，一旦有学生进行了调整又不得不重复之前的劳动。下面我们就来看看如何用VBA轻轻松松实现座位表的编排。 通常情况下，编排座位表需要考虑以下三个因素，即学生的视力、身高、性别等，根据学生在报名表中填写的信息，我们采集了相关的数据（如图1）。 利用“控件工具箱”中的“命令按钮”控件在工作表中添加一个命令按钮，修改其“Caption”属性为“排座位”，双击该按钮，在其Click事件中编写下面的代码： Private Sub CommandButton1_Click() On Error GoTo err Dim fenzu As Integer Dim irow As Integer Range("D2").Select '对信息表进行排序,关键字分别为视力、身高、性别

Range("A3:E48").Sort Key1:=Range("E3"), Order1:=xlAscending, Key2:=Range( _ "D3"), Order2:=xlAscending, Key3:=Range("C3"), Order3:=xlAscending '删除原有的座位表 For Each sh In Worksheets If https://www.360docs.net/doc/6018071952.html, = "座位表" Then Application.DisplayAlerts = False Sheets("座位表").Delete End If Next sh '添加名为座位表的新工作表 Sheets.Add after:=Sheets("学生信息") https://www.360docs.net/doc/6018071952.html, = "座位表" '获取分组数 fenzu = InputBox("你想把学生分成几个小组?", "提示", 6) '获取学生总人数 icount = Worksheets(1).[a65536].End(xlUp).Row - 2 '获取每组最多学生人数 irow = Int(icount / fenzu) + 1 '按先行后列的顺序提取学生信息表中的学生名单 For n = 1 To irow For m = 1 To fenzu '生成第N组的文字(前面空2行用于显示标题) Worksheets(2).Cells(3, m) = "第" & m & "组" Worksheets(2).Cells(n + 3, m) = Worksheets(1).Cells(fenzu * (n - 1) + m + 2, 2) Next m Next n MsgBox "座位表编排成功,请根据实际情况手工微调!", vbOKOnly + vbInformation, "提示" err: Exit Sub End Sub 代码说明： （1）为了使编排的座位表更加合理，我们把视力低的同学尽量往前排，相同视力的同学按身高的高矮顺序排，如果身高又相同则女生排在前面，男生排在后面。

中小学学生座位编排方法大全(总有一款式适合你)

中小学学生座位编排方法大全（总有一款式适合你） 01排座位的7准则和换座位的3原则 自己想破脑袋排的座位，学生和家长却不满意？教室边角的几个位置，总是让学生避之不及？有限的空间遇上“滚动”的设备与学生，座次计划总是赶不上变化？ 调座位，在外人眼里不是什么大事，只有班主任知道这是个不大不小的难题，牵一发而动全身啊！有没有一种比较好的排座位解决方案，可以让班主任摆脱这些困扰？我以亲身的实践证明，这是完全可能的。 以规则规范行动 与其反复对申请调换座位的同学做思想工作，不如就排座位和调整座位问题和全班同学共同商议若干规则，在规则面前人人平等，大家参照规则执行即可。 排座位的7准则 1.排座位不考虑视力问题，因为现在大部分同学都近视； 2.身高是重要考虑因素，尽量不让前面的人挡住后面的人的视线； 3.需要和同座位上课讨论问题的理由也不予考虑，学习上的问题可以课后讨论； 4.男生和女生可以是同座位，不存在男女界限； 5.试着和不同性格的同学相处，一般一个学期可以调整一次； 6.不以成绩好坏作为排座位的依据； 7.好的位置和相对差的位置需要轮流坐，好座位不是终生的。 换座位的3原则 1.如果你坐在一个公认的好位置上，那么请你珍惜。如果你上课不专心听讲，对周围同学造成不良影响……违纪累计到一定次数，那么请你将你的座位让出来； 2.如果你认为你的座位不理想，想换一个好位置，那么请你在现有的座位上好好表现，调换座位时才会优先考虑； 3.在座位问题上表现出大度、谦让、顾全大局的同学在调整座位时将优先考虑，或在其他荣誉问题上补偿。 不包办代替，也能很好解决座位问题 有了基本规则，学生坐在教室的第几排，具体和谁坐，为什么一定要班主任定？让学生按照自己的意愿选择同座位如何？ 我让每个人拿出一张纸，写下自己最想和谁成为同桌，选择三个人作为备选。这三个人一定是自己中意的，根据意愿，也分成首选、次选、备选，就像填第一、第二、第三志愿一

班级排座位的技巧

班级排座位的技巧 排座位的方法有很多，找到适合自己班级学生的才是最好的方法。从调整座位的小事中可以看出一个老师工作的艺术。不要按照学习成绩排座位，老师的这种做法动机固然是好的，但这种方法会让学生以为成绩代表一切，成绩差的学生会因此否定自己，认为自己是失败者;感觉自卑，伤害了自尊和自信;制造了班级的敌对气氛，甚至让成绩不好的成绩越来越差。 班级排座位的技巧 1.按照身高滚动法 按照身高排座位，是最为传统的方法，也是被大多数老师采用的方法。高个子坐在后面不至于挡住矮个子，也方便大家课堂学习。其实这种方法也是有不公平的地方，高个子为什么偏偏就要坐最后一排，矮个子就要坐前排，而不高不矮的反而坐中间。所以可以和滚动相结合在此身高基础上再实行每周一次的滚动式座位移动，横向每周每组由左至右滚动一组座位，纵向每周以两桌或三桌为单位从下至上滚动一个座位。每周一次的纵横变动，使学生有机会在学习中尝试坐到教室里上下左右前后侧位置，多少也从教室里体味到生存和发展的甜酸苦辣咸。 2.互补法+滚动法 互补法必须是建立在老师了解和熟悉学生的状态下进行的，如果班级是新组建的，老师可以过一段时间再按照此方法进行。互补法就是性格外向的学生和性格内向的学生坐一起，弱科学生和强科学生坐一起。每两周左中右列互换;同时第一

排的同学坐到第二排，第二排到第三排，依次类推，最后一排到第一排。这种方法优点就是将他们的优势互补，经常调换也不存在偏心。 班级排座位的技巧 一、遵循的原则 就目前大多数教室结构及设置而言，编排座位时考虑高矮顺序，视力因素等生理原则还是必要的，但只考虑这一原则远远不够，还必须遵循以下几个原则： 1、公平、全体原则 公平是班主任管理好班级的前提条件。我们的教育是面向全体学生，是让每一个学生得到全面健康的发展。我们中学教育不是精英性教育，更不是淘汰性教育。在安排位置时要本着对全体学生负责任的思想，不应该带有任何个人偏见和歧视。 2、和谐、宏观调控原则 安排位置时很有必要将先进和落后的合理搭配，组成有一对一的有效帮扶模式。有经验者总是费尽心机地对待每一位置，认真地考虑学生之间的相互配合，以期取得满意的效果。学生位置的安排宏观上要着眼于良好的班级风气的确立，尽可能地找到每一个学生的“最佳位置”。 3、自由组合原则 把选择座位的主动权交给学生，让学生自由选择位置，自由选择同桌同学，是建立在尊重个性化发展和良好的人际关系基础上的选择。当然，每个座位都要学生自愿申请、左邻右舍共同评议、教师视其理由充分与否加以裁夺。这样做了以后，不少学生通过最佳搭配达到了扬长抑短或相扶相长的学习效果。 4、互帮互助原则