您现在的位置是： 软件 > 行业软件应用 > Office应用 > Excel > 正文


T O P 排 行
-Win xp中的多种网络
-试验试验试验试验
-用Freehand实现位图矢量化
-网络电话面面观

在Excel2000中用宏和VBa使成绩统计自动化
2001-11-30· ·唐秋明··Yesky

上一页  1 2 3 4 5 6 7  下一页

　　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

上一页  1 2 3 4 5 6 7  下一页

■ 相关内容
　用Excel建立科学严谨的工资系统
　不用编程--Excel公式也能计算个人所得税
　修复Excel文件数据解决一法
感谢 访问天极网，如果您觉得该文章涉及版权问题，请看这里！