資源描述：
《在excel2000中用宏和vba使成績(jī)統(tǒng)計(jì)自動(dòng)化》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。
1、在Excel2000中用宏和VBa使成績(jī)統(tǒng)計(jì)自動(dòng)化2001-11-3012:59作者：唐秋明出處：Yesky責(zé)任編輯： 在學(xué)校的教學(xué)活動(dòng)中，通過(guò)統(tǒng)計(jì)分析學(xué)生的考試成績(jī)，了解教學(xué)情況，為改進(jìn)以后的教學(xué)工作提供依據(jù)，是整個(gè)教學(xué)工作中非常重要一環(huán)。但經(jīng)常按各種不同的指標(biāo)統(tǒng)計(jì)分析成績(jī)，又是一件很枯燥，很繁瑣的事。哪么，能否對(duì)需統(tǒng)計(jì)的各種指標(biāo)，無(wú)需人工干預(yù)，讓計(jì)算機(jī)自動(dòng)完成呢？答案是肯定的，筆者通過(guò)Excel中自帶的Vba，實(shí)現(xiàn)了這個(gè)設(shè)想。為能給被統(tǒng)計(jì)成績(jī)困擾的朋友提供一些幫助，下面以我校高中三年級(jí)理科成績(jī)統(tǒng)計(jì)為例，介紹其作法，
2、供大家參考。 1．設(shè)計(jì)流程,編制程序源代碼：為便于說(shuō)明做法，同時(shí)代碼簡(jiǎn)短一點(diǎn)，這里以我校高三理科1-4班成績(jī)統(tǒng)計(jì)為例，說(shuō)明其做法。另外為使編寫代碼效率高一些，這里采用先錄制一部分為宏，再在vba中打開編輯相結(jié)合的辦法編寫?！ 、?gòu)耐獠康摹翱荚嚦煽?jī).XLS”工作簿中將1-4班的成績(jī)拷貝，依次粘貼到“成績(jī)統(tǒng)計(jì)表.XLS”工作簿中的“理科”表中； 程序源代碼： Sub拷外部理科0() ActiveWindow.WindowState=xlMinimized Windows("考試成績(jī).xls").Activate
3、ActiveWindow.WindowState=xlMaximized Sheets("1班").Select Range("A1:S60").Select Selection.Copy ActiveWindow.WindowState=xlMinimized Windows("成績(jī)統(tǒng)計(jì)表.xls").Activate ActiveWindow.WindowState=xlMaximized Sheets("理科").Select ActiveWindow.ScrollRow=1 Range("A1"
4、).Select ActiveSheet.Paste 拷貝“考試成績(jī)簿”中的1班成績(jī)表中數(shù)據(jù)，粘貼到到成績(jī)統(tǒng)計(jì)表工作簿的理科表A1 Range("S22").Select ActiveWindow.LargeScrollDown:=1 Range("S44").Select ActiveWindow.LargeScrollDown:=1 Range("S66").Select Windows("考試成績(jī).xls").Activate ActiveWindow.WindowState=xlNormal
5、Sheets("2班").Select Range("A2").Select ActiveWindow.SmallScrollDown:=43 Range("A2:S58").Select Application.CutCopyMode=False Selection.CopyWindows("成績(jī)統(tǒng)計(jì)表.xls").Activate ActiveWindow.WindowState=xlNormal Range("A61").Select ActiveSheet.Paste 拷貝考試成績(jī)簿中的2班成績(jī)
6、表中數(shù)據(jù)，粘貼到“成績(jī)統(tǒng)計(jì)”工作簿的理科表A61 Windows("考試成績(jī).xls").Activate ActiveWindow.WindowState=xlNormal Sheets("3班").Select Range("A1:S59").Select Application.CutCopyMode=False Selection.Copy Windows("成績(jī)統(tǒng)計(jì)表.xls").Activate ActiveWindow.WindowState=xlNormal Range("S58").S
7、elect ActiveWindow.LargeScrollDown:=1 Range("S80").Select ActiveWindow.LargeScrollDown:=1 Range("S102").Select ActiveWindow.LargeScrollDown:=1 Range("A118").Select ActiveSheet.Paste 拷貝成績(jī)簿中的3班成績(jī)表中數(shù)據(jù)，粘貼到成績(jī)統(tǒng)計(jì)表工作簿的理科表A118 Rows("118:118").Select Application.
8、CutCopyMode=False Selection.DeleteShift:=xlUp Range("D122").Select Windows("考試成績(jī).xls").Activate ActiveWindow.WindowState=xlNormal Sheets("4班").Select Ran
