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