08 2018 档案

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 阅读(230) 评论(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 阅读(264) 评论(0) 推荐(0)
20180830xlVBA_合并计算
摘要：Sub WorkbooksSheetsConsolidate() 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 ... 阅读全文
posted @ 2018-08-30 20:02 wangway 阅读(427) 评论(0) 推荐(0)
20180821ImportContactFromExcel
摘要：Excel创建vcf文件，借助百度云助手导入Iphone6PlusSub CreateContractList() Set Wb = Application.ThisWorkbook FilePath = Wb.Path & "\班级通讯录.txt" Set Sht = Wb.Worksheets("处理") With Sht EndRow = .... 阅读全文
posted @ 2018-08-21 21:49 wangway 阅读(198) 评论(0) 推荐(0)