摘要：
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 '文本 ... 阅读全文
摘要：
Public Sub QqYunContactTransferCsvFile() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 'On Erro... 阅读全文
摘要：
Public Sub GetFirst() GetDataFromWord "初检" End Sub Public Sub GetDataFromWord(ByVal SheetName As String) AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant ... 阅读全文
摘要：
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... 阅读全文
摘要：
Sub NextSeven_CodeFrame() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>>... 阅读全文
摘要：
Sub NextSeven_CodeFrame4() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运行>>... 阅读全文
摘要：
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 ... 阅读全文