摘要：
Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 On Error GoTo ErrHandle... 阅读全文
posted @ 2017-07-07 19:54
wangway
阅读(179)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 On Error GoTo ErrHandl... 阅读全文
posted @ 2017-07-07 19:49
wangway
阅读(190)
评论(0)
推荐(0)
摘要：
Const ModelText As String = "机构名称" Const ModelName As String = "测试文件.pptx" Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Appl... 阅读全文
posted @ 2017-07-07 19:46
wangway
阅读(198)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 'On Error GoTo ErrHandl... 阅读全文
posted @ 2017-07-07 19:42
wangway
阅读(194)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 On Error GoTo ErrHandle... 阅读全文
posted @ 2017-07-07 19:39
wangway
阅读(340)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 On Error GoTo ErrHandle... 阅读全文
posted @ 2017-07-07 19:35
wangway
阅读(227)
评论(0)
推荐(0)
摘要：
Sub InsertToDataBase() Dim DataPath As String Dim SQL As String Const DataName As String = "yunying.mdb" Const TableName As String = "关键词效果分析" DataPath = ThisWorkbook.Path & "\"... 阅读全文
posted @ 2017-07-07 19:31
wangway
阅读(340)
评论(0)
推荐(0)
摘要：
Public Sub 多个区域拆分到多表() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Workbook Dim sht As Workshe... 阅读全文
posted @ 2017-07-07 09:32
wangway
阅读(277)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>... 阅读全文
posted @ 2017-07-07 00:28
wangway
阅读(295)
评论(0)
推荐(0)
摘要：
Dim Rng As Range Dim Arr As Variant Dim LastCell As Range Dim FindText As String Dim ItemCount As Long Dim Dic As Object Private Sub CbOption_Change() FindText = CbOption.Text If Len(FindText... 阅读全文
posted @ 2017-07-07 00:26
wangway
阅读(225)
评论(0)
推荐(0)
摘要：
Public Sub Basic_CodeFrame() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Call SubTotalData UsedTime = ... 阅读全文
posted @ 2017-07-07 00:23
wangway
阅读(415)
评论(0)
推荐(0)
摘要：
Sub RegExpSubtotal() '声明变量 Dim Regex As Object '正则对象 Dim Dic As Object '字典对象 Dim Key As String '关键字 Dim Item As Double '项内容 Dim Index As Long '序号 Dim Text As String '文本 ... 阅读全文
posted @ 2017-07-07 00:21
wangway
阅读(353)
评论(0)
推荐(0)
摘要：
Public Sub QqYunContactTransferCsvFile() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 'On Erro... 阅读全文
posted @ 2017-07-07 00:19
wangway
阅读(209)
评论(0)
推荐(0)
摘要：
Public Sub GetFirst() GetDataFromWord "初检" End Sub Public Sub GetDataFromWord(ByVal SheetName As String) AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant ... 阅读全文
posted @ 2017-07-07 00:18
wangway
阅读(216)
评论(0)
推荐(0)
摘要：
Public Sub MakeUp() Dim Sht As Worksheet Set Sht = ThisWorkbook.Worksheets("设置") Dim Total As Double Dim iMin As Double, iMax As Double Dim RndNum As Long Dim RndRow As Long... 阅读全文
posted @ 2017-07-07 00:13
wangway
阅读(756)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>... 阅读全文
posted @ 2017-07-07 00:07
wangway
阅读(164)
评论(0)
推荐(0)
摘要：
Sub NextSeven_CodeFrame4() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>... 阅读全文
posted @ 2017-07-07 00:04
wangway
阅读(129)
评论(0)
推荐(0)
摘要：
Sub AddPovitTable() 'Constance Const DATA_SHEET As String = "Advanced Filter" Const DATA_ADDRESS As String = "R7C1:R107C11" Const PIVOT_SHEET As String = "PivotSheet" ' Sheet Name ... 阅读全文
posted @ 2017-07-07 00:02
wangway
阅读(250)
评论(0)
推荐(0)
浙公网安备 33010602011771号