Excel中用宏和VBa自动统计成绩
日期:2007年5月19日 作者: 查看:[大字体 中字体 小字体]-
在学校的教学活动中,通过统计分析学生的考试成绩,了解教学情况,为改进以后的教学工作提供依据,是整个教学工作中非常重要一环。但经常按各种不同的指标统计分析成绩,又是一件很枯燥,很繁琐的事。哪么,能否对需统计的各种指标,无需人工干预,让计算机自动完成呢?答案是肯定的,笔者通过Excel中自带的Vba,实现了这个设想。为能给被统计成绩困扰的朋友提供一些帮助,下面以我校高中三年级理科成绩统计为例,介绍其作法,供大家参考。
1. 设计流程,编制程序源代码:为便于说明做法,同时代码简短一点,这里以我校高三理科1-4班成绩统计为例,说明其做法。另外为使编写代码效率高一些,这里采用先录制一部分为宏,再在vba中打开编辑相结合的办法编写。
① 从外部的“考试成绩.XLS”工作簿中将1-4班的成绩拷贝,依次粘贴到“成绩统计表.XLS”工作簿中的“理科”表中;
程序源代码:
Sub 拷外部理科0()
ActiveWindow.WindowState = xlMinimized
Windows("考试成绩.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("1班").Select
Range("A1:S60").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Windows("成绩统计表.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("理科").Select
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveSheet.Paste
拷贝“考试成绩簿”中的1班成绩表中数据,粘贴到到成绩统计表工作簿的理科表A1
Range("S22").Select
ActiveWindow.LargeScroll Down:=1
Range("S44").Select
ActiveWindow.LargeScroll Down:=1
Range("S66").Select
Windows("考试成绩.xls").Activate
ActiveWindow.WindowState = xlNormal
Sheets("2班").Select
Range("A2").Select
ActiveWindow.SmallScroll Down:=43
Range("A2:S58").Select
Application.CutCopyMode = False
Selection.CopyWindows("成绩统计表.xls").Activate
ActiveWindow.WindowState = xlNormal
Range("A61").Select
ActiveSheet.Paste
拷贝考试成绩簿中的2班成绩表中数据,粘贴到“成绩统计”工作簿的理科表A61
Windows("考试成绩.xls").Activate
ActiveWindow.WindowState = xlNormal - [1] [2] [3] [4] [5] [6] 下一页
-
- Excel中用宏和VBa自动统计成绩 相关文章:
- ·巧用宏随意提取Excel单元格的批注内容
- ·李彦宏:三分之一时间用在寻找人才
- ·李彦宏教你创业实用的七大招
- ·个人学术网站之发展:案例分析、宏观分析与政策建议
- ·李彦宏:走向国际化 百度没有其他选择
- ·完全攻略如何防治Access数据库的宏病毒
- ·分析宏病毒原理解决其对系统造成的侵害
- ·亲身实践编制Word病毒理解恶意宏作用
- ·深入理解恶意宏!教你亲手编制Word病毒
- ·亲手编制Word病毒 深入理解恶意宏
- Excel中用宏和VBa自动统计成绩 相关软件
- ·华宏MBA管理练习简述题内部资料
- ·MBA全套教材之宏观经济学课件
- ·华宏2005年MBA联考综合能力模拟题及答案
- ·考试辅导填空_梁宏才(09)
- ·考试辅导填空_梁宏才(14)
- ·考试辅导填空_梁宏才(13)
- ·考试辅导填空_梁宏才(12)
- ·考试辅导填空_梁宏才(11)
- ·考试辅导填空_梁宏才(10)
- ·考试辅导填空_梁宏才(08)
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
上一篇:EXCEL进行学生成绩管理
下一篇:用EXCEL轻松的准备考前工作
精品推荐
热点TOP10
- ·Excel密码保护的解除方法与解除原理
- ·跟我学做Excel XP斜线表头
- ·在Excel中将文本转换为数字的七种方法
- ·Excel中分类设置录入数据的下拉列表
- ·改改小细节 Excel表格立刻变得更漂亮
- ·第一课 VBA是什么
- ·用EXCEL搭建企业信息系统(一)
- ·Excel中自定义函数实例剖析
- ·第三课 学习控件
- ·关于EXCEL数据上传到SQL SERVER中的简单方法!
- ·工资表巧转工资条
- ·比较常用的25条Excel技巧整理放送
- ·筛选Excel 2007单元格区域或表中的数据
- ·利用高级筛选功能巧妙删除Excel的重复记录
- ·Excel排序技巧两则
- ·如何在AutoCAD中导入excel表格
- ·为什么EXCEL身份证号码都科学计数法?
- ·用好Excel筛选功能 查询数据更加方便
- ·把Excel里的一列数据快速转成多列数据
- ·巧用Excel发送电子邮件
特别推荐
- ·Excel 2007表格行和列的移动或复制
- ·Excel旧表翻新技巧
- ·Excel中快速定位的技巧实例
- ·Excel密码保护的解除方法与解除原理
- ·用Excel函数快速统计学生期中考试成绩
- ·八种常见Excel错误提示及问题解决方法
- ·在Excel中将文本转换为数字的七种方法
- ·更改多个Excel工作表的数据合并计算
- ·解决Excel数值进位问题
- ·巧用Excel发送电子邮件
- ·跟我学做Excel XP斜线表头
- ·Excel 2007单元格内容的编辑与控制
- ·快速查找具有条件格式的Excel单元格
- ·Excel 2003数据隐藏小技巧
- ·办公软件 Excel真正的实现四舍五入
- ·改改小细节 Excel表格立刻变得更漂亮
- ·用Excel做数据分析——相关系数与协方差
- ·用EXCEL搭建企业信息系统(一)
- ·筛选Excel 2007单元格区域或表中的数据
- ·Excel电子表格也能做成EXE可执行文件
