



下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
本文格式为Word版,下载可任意编辑——用ExcelVBA轻松编制学生座位表用ExcelVBA轻松编制学生座位表
座位表的编制,是班主任在学年初必需要做的工作,传统的做法是先在草稿纸上编好学生的座位之后,再依照草稿的格式在电脑中输入学生姓名,最终制表。这种做法很麻烦,每编排一次,都需要重复同样的工作。下面介绍使用Excel的VBA编制一个学生座位表编排系统,能使您一劳永逸。基本思路
1.录入本班的学生姓名,作为原始数据。
2.在Excel中直接利用鼠标拖动单元格数据的功能,编好学生的位置,然后使用VBA自动制好座位表格。
3.将文件保存为模板。制作过程
下面以一个班40个学生为例制作一个座位表编排系统。1.界面设置
将学生分为4个组,每组10人,选定A1∶H5,并设置其外边框作为座位表的范围。在D7∶E9画一个梯形,并在梯形上输入“讲台〞二字。在框线外部的区域例如G7∶K14内输入本班学生的姓名。2.座位编排过程
根据学生的身高、视力等实际状况,使用鼠标拖动单元格数据的功能,将学生的姓名移动到A1∶H5的范围内,编好座位(所谓鼠标拖动单元格数据的功能,实际就是将鼠标指针移到要移动的单元格的边框位置,当鼠标指针变成箭头时,按住鼠标左键不放,直接移到目的地后再释放鼠标左键)。3.VBA编程(1)代码编制
点击Excel的VisualBasic编辑器,进入VBA开发环境,在工程资源管理器中双击Sheet1,然后在出现的代码窗口输入如下代码:Subzwb()
Application.ScreenUpdating=False
'关闭执行程序时发生的屏幕更新现象,加快运行速度。With[A1:B5]
.Borders(xlEdgeLeft).LineStyle=xlDouble.Borders(xlEdgeTop).LineStyle=xlDouble.Borders(xlEdgeBottom).LineStyle=xlDouble.Borders(xlEdgeRight).LineStyle=xlDouble.Borders(xlInsideVertical).LineStyle=xlDot.Borders(xlInsideHorizontal).Line-Style=xlContinuousEndWith
'设置[A1:B5]的边框格式[A1∶B5].Copy
[C1].PasteSpecialPaste:=xlFormats[E1].PasteSpecialPaste:=xlFormats[g1].PasteSpecialPaste:=xlFormats
'将[A1∶B5]的边框格式选择性粘贴到C1、E1、G1
With[A1:H5]
.HorizontalAlignment=xlCenter.VerticalAlignment=xlCenter.Orientation=xlVertical.RowHeight=125.ColumnWidth=9
.Fon.FontStyle=\加粗\.Fon.Size=25EndWith
'设置A1∶H5的单元格格式Fori=1To5Fora=1To8
IfLen(Cells(i,a))=2Then
Cells(i,a)=Left(Cells(i,a),1)&&Space(1)&&Right(Cells(i,a),1)EndIfNextNext
'假使单元格内有两个字符,就在两字符之间参与一个空格Application.ScreenUpdating=TrueEndSub
(2)按钮控件的制作
在“视图→工具栏→窗体〞上选取按钮控件,将控件放在I3位置,最终在指定宏对话框中选择Sheet1.zwb,点击[确定],再将按钮控件命名为“OK〞。4.模板的制作
用鼠标点击“文件→另存为〞,在出现的另存为对话框的保存类型下拉列表框中选择模板,接着输入模板的名称“zwb〞,最终点击[保存]按钮。使用方法
每次
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学生自我管理能力对学习动机的影响
- 医疗培训中激发学习动力的方法论
- 创新教育模式以教育心理学为基础的课程设计
- 创新教育政策塑造未来人才的关键
- 从神经科学的角度探讨提升学生参与度的方法
- 潜能激发教育心理学的实践路径
- 抖音商户直播前预热活动规划制度
- 22-富深木工胶!一文带你看懂手工贴木皮开裂原因及解决办法
- 公交优先政策与城市交通拥堵治理:2025年交通拥堵治理技术装备发展报告
- 江西中医药大学《细胞生物学与医学遗传学》2023-2024学年第一学期期末试卷
- 广东省广州市2024年中考道德与法治试卷(含答案)
- 2025年中国陪诊服务行业现状、发展环境及投资前景分析报告
- 新疆2024年小升初语文模拟考试试卷(含答案)
- 项目经理入职培训
- 汽车驾驶员(技师)考试题及答案
- 南昌市产业投资集团有限公司招聘笔试题库2024
- 三化一稳定严进严出专案报告
- TYNZYC 0095-2022 绿色药材 金果榄(青牛胆)栽培技术规程
- 诊断学考试重点笔记
- 2024高考数学专项复习:均值不等式及不等式综合(含答案)
- 高二下学期7月期末教学质量检测语文试题(含答案)
评论
0/150
提交评论