OFFICE学习资料 | OFFICE资源下载 | OFFICE知识问答      
设为首页
加入收藏
联系站长
  当前位置:Office学院 >> Excel >> Excel实例学习 >> 正文
Excel2000中用宏和VBA做成绩统计
[2007年01月13日]  点击数: 【字体: 】【双击滚屏
 
  在学校的教学活动中,通过统计分析学生的考试成绩,了解教学情况,为改进以后的教学工作提供依据,是鼋萄Чぷ髦蟹浅V匾换贰50锤髦植煌闹副晖臣品治龀杉ǎ质且患芸菰铮芊彼龅氖隆D拿矗芊穸孕柰臣频母髦种副辏扌枞斯じ稍ぃ眉扑慊远瓿赡兀看鸢甘强隙ǖ模收咄ü鼸xcel中自带的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.Copy

下一页
本文共 7 页,第  [1]  [2]  [3]  [4]  [5]  [6]  [7]  页


我要提问
上一篇:利用EXCEL进行学生成绩管理--快速转换学生考试成绩等级
下一篇:Excel帮你填写报名信息卡
最新文章
Excel帮你填写报名信息卡03/07
Excel2000中用宏和VBA做成绩统计01/13
利用EXCEL进行学生成绩管理--快速转换学生考01/13
用EXCEL轻松的处理学生成绩01/08
用EXCEL轻松的准备考前工作01/08
Excel中用VBA宏自动统计成绩01/08
巧用excel为学生考试成绩排名01/08
利用EXCEL进行学生成绩管理01/08
热门文章
相关文章
VB两种操作Access数据库方法的比
Office2004让我们管理信息更方便
在Word 2003中更新输入法
学用Office 2003的翻译服务
在Word 2003中实现“自动求和”
Word2000中上下标的四种输入方法
利用Excel 的宏功能来做学生成绩
利用EXCEL进行学生成绩管理--快速
office知识问答 | office资源下载
备案许可证号: 津ICP备06003561号
版权所有:Office学院 www.officeXY.com
OFFICE学院致力于成就华人社区最受欢迎的office办公软件学习园地;为大家提供word、excel、access、FrontPage、PowerPoint等Office各个系列产品的最全的教程、用法、技巧、方案;并竭力打造最方便的问题解答系统