2017年7月11日
20170711xlVBA自定义分类汇总一例
摘要： Public Sub CustomSubTotal() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim i As Long, j As Long, k Dim... 阅读全文
posted @ 2017-07-11 17:41 wangway 阅读(196) 评论(0) 推荐(0)
20170711筛选OutLook主题并转发
摘要： Sub 筛选OutLook主题并转发() On Error Resume Next Dim OutApp As Application Set OutApp = Application Dim OutMail As MailItem Dim OneAccount As Account Dim UsingAccount As Account ... 阅读全文
posted @ 2017-07-11 09:02 wangway 阅读(261) 评论(0) 推荐(0)