2017年8月1日
20170801xlVBA含有公式出现弹窗合并
摘要： Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub GatherDataPicker() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Cal... 阅读全文
posted @ 2017-08-01 23:03 wangway 阅读(267) 评论(0) 推荐(0)
20170731xlVba根据数据表和模板表生成新表
摘要： Public Sub SplitData() Dim Wb As Workbook Dim Sht As Worksheet Dim NewSht As Worksheet Dim arr As Variant Dim Brr() Set Wb = Application.ThisWorkbook Set Sht = Wb.Works... 阅读全文
posted @ 2017-08-01 20:44 wangway 阅读(627) 评论(0) 推荐(0)
2017年7月29日
20170729xlVba SSC_RECENT100
摘要： Public Sub Recent100() Dim WebText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long, j As Long, Nums As String Set Reg = CreateObject("Vbscript.Regexp") ... 阅读全文
posted @ 2017-07-29 17:34 wangway 阅读(211) 评论(0) 推荐(0)
2017年7月28日
20170728xlVba SSC_LastTwoDays
摘要： Public Sub SSCLastTwoDays() Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long Set Reg = CreateObject("Vbscript.Regexp") With Reg .Mult... 阅读全文
posted @ 2017-07-28 22:05 wangway 阅读(378) 评论(0) 推荐(0)
20170728xlVba SSC_TODAY
摘要： Public Sub SSC_TODAY() Dim strText As String Dim Reg As Object, Mh As Object, OneMh As Object Dim i As Long With CreateObject("MSXML2.XMLHTTP") .Open "GET", "http://cp.360.c... 阅读全文
posted @ 2017-07-28 22:04 wangway 阅读(328) 评论(0) 推荐(0)
20170728xlVba简单的匹配
摘要： Sub MatchData() Dim i As Long, EndRow As Long, Key As String Dim Rng As Range Dim Dic As Object Set Dic = CreateObject("Scripting.Dictionary") '获取数据来源 With Sheets("数据来源") ... 阅读全文
posted @ 2017-07-28 17:12 wangway 阅读(211) 评论(0) 推荐(0)
20170728xlVBA改转置一例
摘要： Sub 导出() Dim Sht As Worksheet, ShtName As String Dim NextRow As Long, NextRow2 As Long Dim iRow As Long, Index As Long Dim mySum As Double iRow = 2 Sheets("地块表").Activat... 阅读全文
posted @ 2017-07-28 09:35 wangway 阅读(514) 评论(0) 推荐(0)
2017年7月27日
20170727xlVBA根据总名单和模板生成多页名单
摘要： Sub CountingDown() Dim Dic As Object '用于分类统计 Dim i As Long Dim CountDown As Long '每页最多几条信息 Dim x As Long, y As Long Dim Page As Long '页数 Dim Index As Long '每页的序号 ... 阅读全文
posted @ 2017-07-27 22:51 wangway 阅读(355) 评论(0) 推荐(0)
20170727xlVBA根据数据表和模板工作簿生成个人明细表工作簿
摘要： Sub CreateTables() Dim Wb As Workbook Dim OpenWb As Workbook Dim Sht As Worksheet Dim Rng As Range Dim Arr As Variant Dim i As Long Const HEAD_ROW As Long = 2 Dim EndR... 阅读全文
posted @ 2017-07-27 17:36 wangway 阅读(753) 评论(0) 推荐(0)
2017年7月24日
20170724wdVBA正则表达式提取答案到Excel
摘要： Public Sub RegExtractData() Dim StartTime, UsedTime StartTime = VBA.Timer Dim FilePath$ Dim FileName$ Dim doc As Document Dim Arr() As String Dim ExamNo As String Dim... 阅读全文
posted @ 2017-07-24 10:43 wangway 阅读(278) 评论(0) 推荐(0)