10 2018 档案

20181014xlVBA获取小题零分名单
摘要：Sub GetZeroName() Dim Dic As Object Const SUBJECT = "科目名称" Dim Key As String Dim OneKey Dim Wb As Workbook Dim Sht As Worksheet Dim FolderPath As String Dim FileName A... 阅读全文
posted @ 2018-10-14 10:48 wangway 阅读(137) 评论(0) 推荐(0)
20181013xlVba导入成绩
摘要：Sub 导入成绩() Const TargetSheet = "年级_原始成绩汇总" Const DesSheet = "年级_本次成绩总表" Application.ScreenUpdating = False Application.DisplayAlerts = False Dim Wb As Workbook, Sht... 阅读全文
posted @ 2018-10-13 20:50 wangway 阅读(601) 评论(0) 推荐(0)
20181013xlVba成绩报表优化
摘要：Public Sub 成绩报表优化() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>>... 阅读全文
posted @ 2018-10-13 20:49 wangway 阅读(318) 评论(0) 推荐(0)
20181013xlVba计算优秀率及合格率
摘要：Sub 计算高一优秀合格率() Dim Wb As Workbook Dim Sht As Worksheet Dim oSht As Worksheet Dim dOs As Object 'OutStanding Const SUBJECTS = "语文数学英语物理化学生物政治历史地理" Set dOs = CreateObject("Scri... 阅读全文
posted @ 2018-10-13 20:48 wangway 阅读(502) 评论(0) 推荐(0)
20181013xlVba年级报表拆分为班级报表
摘要：'年级报表拆分为班级报表 Public Sub CreateClassReport() Application.DisplayAlerts = False Dim Wb As Workbook Dim OneSht As Worksheet Dim NewWb As Workbook Dim FolderPath As String Di... 阅读全文
posted @ 2018-10-13 19:52 wangway 阅读(378) 评论(0) 推荐(0)
20181013xlVba年级成绩报表
摘要：Public Sub 高一成绩报表() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>>... 阅读全文
posted @ 2018-10-13 13:11 wangway 阅读(334) 评论(0) 推荐(0)
20181013xlVba据成绩条生成图片文件
摘要：Sub CreateGoalPictures() '声明变量 Dim Wb As Workbook Dim Sht As Worksheet Dim Shp As Shape Dim Pic, EndRow Dim FilePath, StudentName '设置变量 Set Wb = Application.ThisWorkbo... 阅读全文
posted @ 2018-10-13 12:45 wangway 阅读(336) 评论(0) 推荐(0)
20181011xlVba提取邮箱手机号码
摘要：Sub TransferData() AppSettings Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer On Error GoTo ErrHandler Dim dHas As Object Dim dNew A... 阅读全文
posted @ 2018-10-11 23:30 wangway 阅读(353) 评论(0) 推荐(0)
多工作簿合并计算
摘要：Public Sub QuickConsolidateMethod() '声明变量 Dim Wb As Workbook, OpenWb As Workbook Dim Sht As Worksheet, OneSht As Worksheet Dim Rng As Range, OneRng As Range, RangeAddress As Strin... 阅读全文
posted @ 2018-10-06 11:10 wangway 阅读(671) 评论(0) 推荐(0)
数据格式转置
摘要：方案一：数据少时省事 Private Sub CustomTransform1() Dim Wb As Workbook, Sht As Worksheet Dim NewSht As Worksheet, Dic As Object Dim EndRow As Long, iRow Set Dic = CreateObject("Scrip... 阅读全文
posted @ 2018-10-06 11:05 wangway 阅读(367) 评论(0) 推荐(0)
套打适应行高
摘要：Sub AdjustRowHeight0() Dim ModelSheet As Worksheet, PrintSheet As Worksheet Dim ModelRng As Range '模板单元格 Dim modelRowHeight() As Double '模板行高数据 Dim modelRowCount As Long '模板行数 Dim... 阅读全文
posted @ 2018-10-06 10:50 wangway 阅读(244) 评论(0) 推荐(0)