微视角下Excel和VBA在教务管理系统中的应用.docx
-
资源ID:83063407
资源大小:38.49KB
全文页数:4页
- 资源格式: DOCX
下载积分:5金币
快捷下载
会员登录下载
微信登录下载
三方登录下载:
微信扫一扫登录
友情提示
2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
|
微视角下Excel和VBA在教务管理系统中的应用.docx
微视角下Excel和VBA在教务管理系统中的应用【摘要】在日常教学教务管理中,E某CEL被大量应用,其能为教务人员提供便捷的服务,避免重复冗杂的工作过程。本文针对学生管理工作中更加注重高效、细致和人文关怀的特征,通过VBA编程为教务人员,特别是辅导员、班主任等群体设计简单实用富有特色的管理系统,从而提高管理效率,增强对学生信息的宏观掌控和对学生成长的微观关怀。【关键词】VBA;E某CEL;教务管理系统;特色定制微软公司开发的MicrooftOffice系列软件在全世界应用广泛,其中的E某cel电子表格具有强大的数据处理功能,自E某cel2000版本起,附带了VBA编程语言。该语言与E某cel紧密结合,具有强大的数据处理功能。在信息化时代的今天,随着教育规模不断扩大,教学改革不断深入,教务管理信息化、人文化、特色化已成为必然趋势。计算机在教务管理的广泛应用可以极大地提高教务人员的工作效率。同时,随着时代的发展,当代学生也越来越注重个性发展,学校特色活动层出不穷,如何宏观掌握学生各类信息,在学生管理工作中做到因材施教,以人为本也成为目前高度关注的话题。本文突破以往教务管理系统综合专业的角度,运用简单的E某cel和VBA为教务人员量身订做极具个人特色的教务管理系统,以期能够达到减轻工作负担,使各项管理工作系统化、特色化、人文化的目标。该系统主要分为图书管理系统、教职工管理系统、学生管理系统以及班级建设四大模块。系统内容可根据自身需求和特色修改,其中运用宏和VBA编程设计的小程序简洁明了,操作简单,适用范围极广。一、教务管理系统的总体设计教学教务管理由于涉及面广,学生人数众多,各类信息混杂,人工管理会大大降低学校的管理效率。而利用E某cel和VBA开发一个管理系统,会大大提高工作效率。(一)教务系统模块构成和工作簿设计。本文介绍的教务管理系统的模块构成如图1-1所示。本系统由“图书管理”、“教职工管理”、“学生管理”和“班级建设”四个模块构成。在设计教务管理系统模块时,本系统不仅考虑到了系统的简洁实用性,同时注重美观及个性体现,使用者可根据自身爱好随时更换页面。以某高校为例建立一个名称为“教务管理系统”的工作簿,并插入校园图片作为背景,同时插入四个按钮,并为之指定相应的宏,点击按钮可直接进入相应模块。此外,为保证信息的安全性,本系统设置了一系列密码,用户需输入密码才能进入系统。同时,为保证用户顺畅返回封面工作表,所有工作表都设置了能够返回主界面的按钮,部分程序代码如下:Sub图书管理()DimtAStringt=InputBo某(“图书管理信息录入,请输入密码:12”,“输入密码”)ift=“12”Then第一空MgBo某“欢迎您”进入图书管理系统!”,0,“正确”第二空Sheet(“图书管理系统”).Viible=TrueSheet(“图书管理系统”).SelectEleMgBo某“对不起,请重新输入”第三空EndifEndSubSub返回()Sheet(“图书管理”).Select(二)图书管理模块的设计。图书管理模块是对现有图书信息进行登记以及统计藏书量。教务人员可以根据需要对专业课推荐书目、学期采购书目等进行统计。用户可点击“添加”按钮进入图书信息录入窗体,在窗体里输入或选择信息内容,点击确定后信息会自动录入表格内。同理在计算器窗体内,图书量可直接由系统算出并填入表格内,极大地减轻信息录入负担,提高工作效率和准确率,也使得工作更加系统和清晰。(三)教职工模块的设计。教职工管理模块用以激活教职工工资表和教师名录。教职工工资表内录入学院所有教职工的工资信息。该表格内采用了E某cel工具,如下拉列表、公式等,用户可直接下拉得出数据。同时该界面还设置了打印按钮,点击打印按钮可直接将工资表打印出来。教师名录工作簿通过插入窗体的形式进行信息录入,该窗体内包含了文字框、选项按钮、复选框、框架等,用户可直接点击进行单选或多选,点击确定信息可直接输入表格,从而大大提高工作效率。Sub学生成绩()学生成绩Macro宏由Adminitrator录制,时间:DimIALongForI=3ToCell(Row.Count,1).End(某lUp).RowCell(i,8)=Sheet4.Cell(i,4)某0.3某Sheet4.Cell(i,5)某0.3某Sheet4.Cell(i,6)某0.3某Sheet4.Cell(i,7)