- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 3Adobe Illustrator CS5 序列號大全
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8最新的Adobe Illustrator CS4序列號大全
- 9Intel i7-9700K性能跑分曝光：同代提升約12%
- 10Intel Z390主板有望10月8日公布：8核9代酷睿隨后登場
- 11XP系統怎么清除緩存？
- 12ACDSee與2345看圖王哪一個好用？區別比較
[摘要]在學校的教學活動中，通過統計分析學生的考試成績，了解教學情況，為改進以后的教學工作提供依據，是整個教學工作中非常重要一環。但經常按各種不同的指標統計分析成績，又是一件很枯燥，很繁瑣的事。哪么，能否對...
在學校的教學活動中，通過統計分析學生的考試成績，了解教學情況，為改進以后的教學工作提供依據，是整個教學工作中非常重要一環。但經常按各種不同的指標統計分析成績，又是一件很枯燥，很繁瑣的事。哪么，能否對需統計的各種指標，無需人工干預，讓計算機自動完成呢？答案是肯定的，筆者通過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
[next]
② 利用Excel的統計函數“RANK”將理科表中學生的各科成績排名次；目的是讓每位學生了解自己在全年級學生中的排名的位置。 程序代碼如下： Sub 理名次() Range("D2").Select ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R2C3:R246C3,0)" Selection.Au
Office辦公軟件是辦公的第一選擇，這個地球人都知道。除了微軟Office，市面上也存在很多其他Office類軟件。
推薦資訊 總人氣榜
最新教程 本月人氣
- 1新版emoji表情含義大全
- 2用app怎么轉化emoji表情組成的圖片?
- 3怎么制作emoji表情?emoji表情制作圖文詳細教程
- 4emoji表情加2根辮子的制作圖文詳細教程
- 5拼立得PC版怎么用？拼立得PC版使用圖文詳細教程
- 6painter圖文詳細教程：painter手繪漫畫圖文詳細教程
- 7ps怎么添加emoji表情？ps添加emoji表情圖文詳細教程
- 8autocad2008破解版怎么用？cad2008破解安裝圖文詳細教程
- 9faceu拍視頻分享了只有聲音沒有畫面怎么回事？
- 10得圖相機怎么使用?得圖相機使用方法
- 11AutoCAD2008序列號及及注冊碼是多少
- 12美圖秀秀與美顏相機哪一個好?美圖秀秀與美顏相機比較
- 1紅米3什么時候上市 紅米3上市時間
- 2晃臉怎么刪除作品|晃臉刪除視頻方法介紹
- 3QQ群紅包怎么指定成員領取
- 4手機QQ朋友力MAX勛章怎么點亮 QQ勛章朋友力max怎么點亮
- 5騰訊大王卡真實的使用感受
- 6QQ金豆有什么用?
- 7XP系統怎么安裝無線網卡驅動？
- 8芒果tv會員賬號共享2017.5.27芒果tv最新共享vip會員賬號更新
- 9vivo x5pro與魅族mx4哪一個好 魅族mx4與vivo x5pro比較
- 10vivo x5pro與魅族mx4pro哪一個好 魅族mx4pro與vivo x5pro比較
- 11vivo x5pro與魅藍metal哪一個好 魅藍metal與vivo x5pro比較
- 12紅米note3什么時候公布 紅米note3公布時間
