2017年7月6日
20170612xlVBA多文件多类别分类求和匹配
摘要： Public Sub Basic_CodeFrame() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Workbook Dim Sht As... 阅读全文
posted @ 2017-07-06 23:46 wangway 阅读(355) 评论(0) 推荐(0)
20170617xlVBA调查问卷基础数据分类计数
摘要： Public Sub GatherDataPicker() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运... 阅读全文
posted @ 2017-07-06 23:42 wangway 阅读(169) 评论(0) 推荐(0)
20170706wdVBA保存图片到本地API
摘要： Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type GdiplusStartupInput GdiplusVersion As Long DebugEventCallback As ... 阅读全文
posted @ 2017-07-06 23:34 wangway 阅读(374) 评论(0) 推荐(0)
20170706wdVBA正则表达式提取题目
摘要： Public Sub GetContents() Dim Reg As Object Dim Matches As Object Dim OneMatch As Object Dim Index As Long Dim TimeStart As Variant TimeStart = VBA.Timer Set Reg = CreateOb... 阅读全文
posted @ 2017-07-06 23:32 wangway 阅读(797) 评论(0) 推荐(0)
20170228VBA提取邮件部分信息
摘要： Sub 获取OutLook收件箱主题和正文() On Error Resume Next Dim sht As Worksheet Dim olApp As Outlook.Application Dim olMail As Outlook.MailItem Dim olNameSpace As Outlook.Namespace Dim OneF... 阅读全文
posted @ 2017-07-06 20:47 wangway 阅读(1583) 评论(0) 推荐(0)
20170523xlVBA多条件分类求和一例
摘要： Public Sub NextSeven_CodeFrame() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序... 阅读全文
posted @ 2017-07-06 20:33 wangway 阅读(1415) 评论(0) 推荐(0)
20170609批量生成WORD合同
摘要： Sub NextSeven_CodeFrame() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>... 阅读全文
posted @ 2017-07-06 20:24 wangway 阅读(574) 评论(0) 推荐(0)
20170706xlVBA城中村改造汇总
摘要： Public Sub GatherDataPicker() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运... 阅读全文
posted @ 2017-07-06 20:14 wangway 阅读(104) 评论(0) 推荐(0)
20170706pptVBA演示文稿批量删除图片
摘要： Public Sub StartRecursionFolder() Dim Pre As Presentation Dim FolderPath As String Dim pp As String Dim id As String Dim oFileDialog As FileDialog Set oFileDialog = Applicatio... 阅读全文
posted @ 2017-07-06 15:36 wangway 阅读(1572) 评论(0) 推荐(0)
20170706xlVBA根据工资汇总表生成个人工资条
摘要： Sub NextSeven20170706001() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>... 阅读全文
posted @ 2017-07-06 14:09 wangway 阅读(207) 评论(0) 推荐(0)