用VBA编排学生座位表

1、用VBA编排学生座位表 )11 (W 10 23 转载 标签：分类： 技术交流 it 在每学年的新生开学前，班主任老师要做大量的准备工作，其中必做的一 件事就是收集本班学生的报名信息，编排上课的座位表。以往班主任老师都是通 过手工来编排座位表的，消耗的时间和精力相当大，一旦有学生进行了调整又不 得不重复之前的劳动。下面我们就来看看如何用VBA轻轻松松实现座位表的编 排。 通常情况下，编排座位表需要考虑以下三个因素，即学生的视力、身高、性 别等，根据学生在报名表中填写的信息，我们采集了相关的数据（如图1） O E Bicrosofl Excel 排座位.xls :辻文件世）编辑 视图辺 插入（X

2、）格式）工具（!） -数据）宙口帮助-S x F37 A A B C D E 2 学号 姓名 性别 身髙 视力 3 1 王英 女 1. 54 0. 7 4 2 李峯军 男 1.59 0.5 5 3 孙全鹏 男 1.61 1.3 6 4 钟华 男 1.65 0.3 7 5 朱小庆 男 1.57 L5 8 6 欧卩 日小荣 男 1.7 0.6 9 7 it 春梅 女 1.58 1.3 10 8 肖鹏举 男 1.6 1.2 11 9 男 1.61 1 12 一 7X4- / 1. 64 1.4 排座位 U ；绘團迅心I自选阂形 口轴占為 就绻 Dloci.siriei.G 利用“控件工具箱”中的“命

3、令按钮”控件在工作表中添加一个命令按钮, 修改其Caption属性为“排座位”，双击该按钮，在其Click事件中编写下 面的代码： Private Sub CommandButtonl_Click () Error GoTo err Dim fenzu As Integer Dim irow As Integer Rang4)2SectB 对信息表进行排序，关键字分别为视力、身髙、性别 Range(A3：E48) Sort Key1:=Range(E3). Orderl：=xlAscending, K(y2： -Runge ( D3). Order2： -xlAscending, Key3：-

4、Range(，rC3F), Order3： -xlAscending 删除原有的座位表 For Each sh In Worksheets If 二”座位表ThenJ End I Next sh 添加名为座位表的新工作表I af ter:二 Sheet s (学生信息) 二”座位表” 获取分组数 fenzu二InputBoxC你想把学生分成几个小组，提示，6) 获取学生总人数 icount 二 Worksheets(1). a65536. End(xlUp). Row - 2 获取每组最多学生人数 irow 二 Int(icount / fenzu) + 1 按先行后列的顺序提取学生信息表中的学生名单 For n - 1 To irow For m = 1 To fenzu 生成第$组的文字(前面空2行用于显示标题) Worksheets (2). Cel Is (3, m)二第 !丄？ rI亠一 -r?炎熬 台第江王宋陆田沈丁 且婷媛力伟鹏庆 必婷媛伟力少全小 第段马唐张唐孙朱 - - 一 一 - - -一 且秋璞伟举宜 脛剑鹏小小鹏静进 第徐蒋黄陶肖郑刘 就绻 绘團迅心自选阂形QH X bloq.sifia.GOfn.cfi/riEilfZ7 需要说明的是，笔者的座位表是根据自己的编排理念来设计代码的， 的顺序上要进行调