摘要：
Sub 导入成绩() Const TargetSheet = "年级_原始成绩汇总" Const DesSheet = "年级_本次成绩总表" Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Wb As Workbook, Sht... 阅读全文
摘要：
Public Sub 成绩报表优化() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>>... 阅读全文
摘要：
Sub 计算高一优秀合格率() Dim Wb As Workbook Dim Sht As Worksheet Dim oSht As Worksheet Dim dOs As Object 'OutStanding Const SUBJECTS = "语文数学英语物理化学生物政治历史地理" Set dOs = CreateObject("Scri... 阅读全文
摘要：
'年级报表拆分为班级报表 Public Sub CreateClassReport() Application.DisplayAlerts = False Dim Wb As Workbook Dim OneSht As Worksheet Dim NewWb As Workbook Dim FolderPath As String Di... 阅读全文
摘要：
Public Sub 高一成绩报表() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>>... 阅读全文
摘要：
Sub CreateGoalPictures() '声明变量 Dim Wb As Workbook Dim Sht As Worksheet Dim Shp As Shape Dim Pic, EndRow Dim FilePath, StudentName '设置变量 Set Wb = Application.ThisWorkbo... 阅读全文