怎么用Excel给学生轻松排座位
第一步 启动Excel2003(其他版本操作类似),新建一个名为“排座位”的工作簿,在这个工作簿中主要包括两个工作表——“学生名单”和“座位表”,先在“学生名单”工作表中输入学生的一些基本信息,最后再添加一个“排位”按钮(如图1)。
(图1)
第二步“排座位”工作簿“学生名单”工作表中的学生数据输入完毕后,以“身高”或者“视力”为标准对输入的学生数据进行升序排序。具体方法是:先选中“身高”或者“视力”所在的某列单元格,然后单击工具栏中的“升序排序”按钮,在弹出的“排序警告”窗口中单击“排序”按钮即可。
第三步 按下“Alt+F11”快捷键,调出“Visual Basic 编辑器”,在“Visual Basic编辑器”窗口中,右击“ThisWorkBook”,选择“插入→模块”命令,插入一个模块,并在右边的代码窗口中输入以下代码:
复制代码
代码如下:
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
代码输入完毕后,退出Visual Basic 编辑器。
第四步 右击图1窗口中的“排位”按钮,选择“指定宏”,打开“指定宏”窗口,选中“paizuo”宏,最后单击“确定”。
完成了以上步骤的操作之后,退出、保存并重新打开“排座位”工作簿,单击“学生名单”工作表中的“排位”按钮,这时就会弹出一个询问全班学生要分为几组的窗口(如图2,A处所示的窗口),在该窗口的文本框中输入对应的数字(如“6”),再单击窗口中的“确定”按钮,这时就可以看到“座位表”工作表中的排位效果了,如图3,B处所示的窗口。
(图2)
在Excel中完成排位后,只需将“排座位”工作簿中的“座位表”工作表打印出来贴到讲台上,最后按照“座位表”中的学生座次安排给学生排位就可以了。利用Excel给学生排位是不是很方便呀,各位班主任朋友们不妨一试。
小提示
在“排座位”工作簿中,“学生名单”工作表主要包括每学生的基本信息,如身高、性别、视力等等,这也是我们在给学生排座位时所要着重考虑的因素。
推荐系统
雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载
系统大小:0MB系统类型:WinXP雨林木风在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业知名品牌,雨林木风WindowsXP其系统口碑得到许多人认可,积累了广大的用户群体,是一款稳定流畅的系统,雨林木风 winxp下载 纯净版 永久激活 winxp ghost系统 sp3 系统下载,有需要的朋友速度下载吧。
系统等级:进入下载 >萝卜家园win7纯净版 ghost系统下载 x64 联想电脑专用
系统大小:0MB系统类型:Win7萝卜家园win7纯净版是款非常纯净的win7系统,此版本优化更新了大量的驱动,帮助用户们进行舒适的使用,更加的适合家庭办公的使用,方便用户,有需要的用户们快来下载安装吧。
系统等级:进入下载 >雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载
系统大小:1.01GB系统类型:WinXP雨林木风xp系统 xp系统纯净版 winXP ghost xp sp3 纯净版系统下载,雨林木风WinXP系统技术积累雄厚深耕多年,采用了新的系统功能和硬件驱动,可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,加固了系统安全策略,运行环境安全可靠稳定。
系统等级:进入下载 >萝卜家园win10企业版 免激活密钥 激活工具 V2023 X64位系统下载
系统大小:0MB系统类型:Win10萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,(win10企业版,win10 ghost,win10镜像),萝卜家园win10企业版 免激活密钥 激活工具 ghost镜像 X64位系统下载,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园
系统等级:进入下载 >萝卜家园windows10游戏版 win10游戏专业版 V2023 X64位系统下载
系统大小:0MB系统类型:Win10萝卜家园windows10游戏版 win10游戏专业版 ghost X64位 系统下载,萝卜家园在系统方面技术积累雄厚深耕多年,打造了国内重装系统行业的萝卜家园品牌,其系统口碑得到许多人认可,积累了广大的用户群体,萝卜家园win10纯净版是一款稳定流畅的系统,一直以来都以用户为中心,是由萝卜家园win10团队推出的萝卜家园win10国内镜像版,基于国内用户的习惯,做
系统等级:进入下载 >windows11下载 萝卜家园win11专业版 X64位 V2023官网下载
系统大小:0MB系统类型:Win11萝卜家园在系统方面技术积累雄厚深耕多年,windows11下载 萝卜家园win11专业版 X64位 官网正式版可以更好的发挥系统的性能,优化了系统、驱动对硬件的加速,使得软件在WINDOWS11系统中运行得更加流畅,加固了系统安全策略,WINDOWS11系统在家用办公上跑分表现都是非常优秀,完美的兼容各种硬件和软件,运行环境安全可靠稳定。
系统等级:进入下载 >
热门系统
推荐软件
推荐应用
推荐游戏
热门文章
常用系统
- 1微软Windows12下载 专业版 品牌机专用 Ghost系统 ISO镜像 X64位系统
- 2系统之家win11纯净版 X64位精简版 V2023官网下载 GHOST镜像
- 3风林火山win11 23H2专业版 x64绿色版下载 ghost系统 免激活工具
- 4番茄花园win10企业版纯净系统 ghost x64 v2022.06 免激活
- 5大地系统 Ghost Win7 64位 纯净旗舰版
- 6风林火山 GHOST WIN10 X64 装机专业版
- 7系统之家win7旗舰版 x64位中文版下载 ghost镜像 联想电脑专用下载
- 8win11 23H2专业版下载 系统之家ghost系统 x64位经典版下载 笔记本专用
- 9萝卜家园Windows7专业版 64位最佳优化装机版 笔记本专用 免密钥