wangway - 博客园

2018年10月13日

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)

2018年10月11日

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)

2018年10月6日

多工作簿合并计算

摘要： 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)

2018年8月31日

20180831xlVBA_WorkbooksCosolidate

摘要： Sub WorkbooksConsolidate() Rem 设置求和区域为 sheet名称/单元格区域;sheet名称/单元格区域 Const Setting As String = "Sheet1/A1:G6;Sheet1/A8:E8;Sheet1/F8:G8;Sheet2/A1:G3;Sheet2/A5:G5" Const FOLDER_NAME As String... 阅读全文

posted @ 2018-08-31 11:03 wangway 阅读(229) 评论(0) 推荐(0)

20180831xlVBA_WorksheetsCosolidate

摘要： Sub WorkSheetsConsolidate() Rem 设置求和区域为单元格区域;单元格区域 Const Setting As String = "A1;B2:C4" Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer AppSetting... 阅读全文

posted @ 2018-08-31 11:00 wangway 阅读(261) 评论(0) 推荐(0)

Excel VBA 小天地

公告