![用excel排考试座位表_第1页](http://file3.renrendoc.com/fileroot_temp3/2022-1/28/28c50da9-37af-4516-aef1-63f49a30875a/28c50da9-37af-4516-aef1-63f49a30875a1.gif)
![用excel排考试座位表_第2页](http://file3.renrendoc.com/fileroot_temp3/2022-1/28/28c50da9-37af-4516-aef1-63f49a30875a/28c50da9-37af-4516-aef1-63f49a30875a2.gif)
![用excel排考试座位表_第3页](http://file3.renrendoc.com/fileroot_temp3/2022-1/28/28c50da9-37af-4516-aef1-63f49a30875a/28c50da9-37af-4516-aef1-63f49a30875a3.gif)
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、对于一名班主任来说,给学生排座位是常常要做的事。但一个班三四十个学生,排位时得照顾到方方面面,如果按照常规手工编制排位表的方法,不但工作量大,而且缺乏科学性。其实利用Excel只要轻点鼠标就能完成学生的排位工作,下边笔者就给大家介绍一下如何来实现第一步 启动Excel 2003(其他版本操作类似),新建一个名为“排座位”的工作簿,在这个工作簿中主要包括两个工作表“学生名单”和“座位表”,先在“学生名单”工作表中输入学生的一些基本信息,最后再添加一个“排位”按钮(如图1)。(图1)第二步 “排座位”工作簿“学生名单”工作表中的学生数据输入完毕后,以“身高”或者“视力”为标准对输入的学生数据进行升
2、序排序。具体方法是:先选中“身高”或者“视力”所在的某列单元格,然后单击工具栏中的“升序排序”按钮,在弹出的“排序警告”窗口中单击“排序”按钮即可。第三步 按下“Alt+F11”快捷键,调出“Visual Basic 编辑器”,在“Visual Basic 编辑器”窗口中,右击“ThisWorkBook”,选择“插入模块”命令,插入一个模块,并在右边的代码窗口中输入以下代码:复制代码代码如下:Sub paizuo()Sheets("座位表").Select '激活“座位表”工作表Dim Group As Integer '定义表示组数的变量GroupGrou
3、p = Val(InputBox("本班学生分为几组?") '将输入的数字赋给变量GroupZuoci (Group) '调用Zuoci函数对学生进行排座Sheets("座位表").SelectEnd SubSub Zuoci(gro As Integer)Dim i As Integer, j As Integer ' 定义循环变量Sheets("学生名单").Select '激活“学生名单”工作表Dim Irows As Integer, Icols As Integer, Ixs As Integ
4、er '定义“座位表”行变量,列变量,及"学生名单"学生行变量Irows = 60 / gro '初始化行变量Icols = gro '初始化列变量Ixs = 1 '初始化“学生名单”学生行变量For i = 1 To Icols '第一位学生自第2行开始Ixs = i + 1For j = 2 To Irows + 2Sheets("座位表").Cells(j, i) = Sheets("学生名单").Cells(Ixs, 1) '给座位表赋值Ixs = Ixs + gro '
5、下一个学生为当前第gro个学生Next jNext iEnd Sub代码输入完毕后,退出Visual Basic 编辑器。第四步 右击图1窗口中的“排位”按钮,选择“指定宏”,打开“指定宏”窗口,选中“paizuo”宏,最后单击“确定”。完成了以上步骤的操作之后,退出、保存并重新打开“排座位”工作簿,单击“学生名单”工作表中的“排位”按钮,这时就会弹出一个询问全班学生要分为几组的窗口(如图2,A处所示的窗口),在该窗口的文本框中输入对应的数字(如“6”),再单击窗口中的“确定”按钮,这时就可以看到“座位表”工作表中的排位效果了,如图3,B处所示的窗口。(图2)在Excel中完成排位后,只需将“排座位”工作簿中的“座位表”工作表打印出来贴到讲台上,最后按照“座位表”中的学生座次安排给学生排位就可以了。利用Excel给学生排位是不是很方便呀,各位
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 12《故宫博物院》教学设计-2024-2025学年语文六年级上册统编版
- 2024秋七年级语文上册 第一单元 2《济南的冬天》说课稿 新人教版
- 八年级生物上册 第五单元 第二章 第三节 社会行为教案2 (新版)新人教版
- 洒水车管理制度
- ICD-10疾病编码完整版
- 2023年湖南长沙航天学校课时制教师招聘考试真题
- 2023年贵州贵景黔味文旅产业有限公司招聘考试真题
- 长沙宁乡市实验中学招聘笔试真题2023
- 2023年北京海淀区事业单位招聘考试真题
- 2023年鞍山市“三支一扶”计划招募工作考试真题
- 新人教版六年级上册数学(新插图)全册教学课件
- 高级评茶员复习题及答案
- 雷电知识、雷电灾害防御知识汇总-上(单选题库)
- 幼儿幼儿园保护视力教育课件PPT
- 初中足球运动教材教法与课例分析(修改)
- 2023年普通高中学业水平考试数学试题含答案
- 医院搬迁方案
- ABC法则教学讲解课件
- 传播学原理-张国良大纲
- 拆除爆破实例课件
- 社保(五险一金)课件
评论
0/150
提交评论