VBA_Excel年級成績表中自動分出各班成績.doc

VBA_Excel年級成績表中自動分出各班成績.doc

ID:57691178

大小:13.00 KB

頁數(shù):2頁

時間:2020-09-01

VBA_Excel年級成績表中自動分出各班成績.doc_第1頁
VBA_Excel年級成績表中自動分出各班成績.doc_第2頁
資源描述:

《VBA_Excel年級成績表中自動分出各班成績.doc》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、PublicclasAsIntegerSub統(tǒng)計年級成績的班級個數(shù)()'C列數(shù)據(jù)為班級DimClassAsNewCollectionOnErrorResumeNextFori=4ToCells(Rows.Count,1).End(xlUp).RowClass.AddCells(i,3),Cells(i,3)IfErr.Number<>0ThenErr.ClearNexti'循環(huán)遍歷出各班成績分薄Forj=1ToClass.Countclas=Class.Item(j)Call輸入班級把成績分班NextjEndSubSub輸入班級把成績分班()'sheet1為

2、成績表Sheets(1).ActivateRange("A2:M2").Select'按班級篩選Selection.AutoFilterSelection.AutoFilterField:=3,Criteria1:=clasSheets(1).UsedRange.SelectSelection.Copy'避免添加工作簿時因重名而產(chǎn)生錯誤OnErrorResumeNextApplication.DisplayAlerts=FalseWorksheets.AddCount:=1,after:=Worksheets(Worksheets.Count)Sheets(

3、Worksheets.Count).Name=clasIfErr.Number<>0ThenSheets(Worksheets.Count).DeleteEndIfApplication.DisplayAlerts=tureSheets(Worksheets.Count).Paste'讓sheet1取消自動篩選,否則下次將不能篩選Sheets(1).SelectSelection.AutoFilterEndSub

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動畫的文件,查看預(yù)覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負責(zé)整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時聯(lián)系客服。
3. 下載前請仔細閱讀文檔內(nèi)容,確認文檔內(nèi)容符合您的需求后進行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯誤,付費完成后未能成功下載的用戶請聯(lián)系客服處理。