设为首页收藏本站

免费资源

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2055|回复: 22

Excel中用宏和VBa自动统计成绩

[复制链接]

该用户从未签到

发表于 2015-5-14 08:27:55 | 显示全部楼层 |阅读模式
Excel中用宏和VBa自动统计成绩
在学校的教学活动中,通过统计分析学生的考试成绩,了解教学情况,为改进以后的教学工作提供依据,是整个教学工作中非常重要一环。但经常按各种不同的指标统计分析成绩,又是一件很枯燥,很繁琐的事。哪么,能否对需统计的各种指标,无需人工干预,让计算机自动完成呢?答案是肯定的,笔者通过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.Copy      Windows("成绩统计表.xls").Activate

  ActiveWindow.WindowState = xlNormal

  Range("A61").Select

  ActiveSheet.Paste

  拷贝考试成绩簿中的2班成绩表中数据,粘贴到“成绩统计”工作簿的理科表A61

  Windows("考试成绩.xls").Activate

  ActiveWindow.WindowState = xlNormal

  Sheets("3班").Select

  Range("A1:S59").Select

  Application.CutCopyMode = False

  Selection.Copy

  Windows("成绩统计表.xls").Activate

  ActiveWindow.WindowState = xlNormal

  Range("S58").Select

  ActiveWindow.LargeScroll Down:=1

  Range("S80").Select

  ActiveWindow.LargeScroll Down:=1

  Range("S102").Select

  ActiveWindow.LargeScroll Down:=1

  Range("A118").Select

  ActiveSheet.Paste

  拷贝成绩簿中的3班成绩表中数据,粘贴到成绩统计表工作簿的理科表A118

  Rows("118:118").Select

  Application.CutCopyMode = False

  Selection.Delete Shift:=xlUp

  Range("D122").Select

  Windows("考试成绩.xls").Activate

  ActiveWindow.WindowState = xlNormal

  Sheets("4班").Select

  Range("A2:S71").Select

  Selection.Copy

  Windows("成绩统计表.xls").Activate

  ActiveWindow.WindowState = xlNormal

  ActiveWindow.LargeScroll Down:=1

  Range("D144").Select

  ActiveWindow.LargeScroll Down:=1

  Range("D166").Select

  ActiveWindow.LargeScroll Down:=1

  Range("D188").Select

  ActiveWindow.LargeScroll Down:=-1

  Range("A176").Select
    ActiveSheet.Paste‘拷贝四班成绩

  End Sub





上一篇:2015年5月14日签到记录贴
下一篇:项目管理操作实务销售收入,成本,费用,税金分析表excel...
回复

使用道具 举报

该用户从未签到

发表于 2015-5-25 04:47:50 | 显示全部楼层
难得一见的好帖
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2015-5-25 04:52:22 | 显示全部楼层
楼主是超人
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2015-5-25 05:07:02 | 显示全部楼层
很好哦
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2015-5-25 07:03:06 | 显示全部楼层
真心顶
回复 支持 反对

使用道具 举报

该用户从未签到

发表于 2015-5-25 09:46:59 | 显示全部楼层
说的非常好
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-10-15 22:57
  • 签到天数: 38 天

    [LV.5]常住居民I

    发表于 2015-6-7 05:02:27 | 显示全部楼层
    很好哦
    回复 支持 反对

    使用道具 举报

  • TA的每日心情

    1476543453
  • 签到天数: 38 天

    发表于 2015-6-7 05:19:48 | 显示全部楼层
    楼主是超人
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2015-6-7 05:44:10 | 显示全部楼层
    不错不错
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2015-6-7 08:40:16 | 显示全部楼层
    LZ真是人才
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则


    小黑屋|手机版|Archiver| 免费资源 ( 苏ICP备14019365号-1 )     

    GMT+8, 2018-5-21 01:45 , Processed in 0.267452 second(s), 31 queries .

    © 2001-2016 www.ybeizi.cn

    快速回复 返回顶部 返回列表