Excel VBA 小天地

摘要： Sub AbsorbThisProcedure() If Application.VBE.MainWindow.Visible = False Then MsgBox "请先激活VBE编辑窗口再执行!" Exit Sub End If On Error Resume Next Set VbCodePane = Applicati... 阅读全文

摘要： Public Sub SmartIndenterProcedure() Dim OneComp As VBComponent Dim StartLine As Long, EndLine As Long Dim LineIndex As Long, LineNo As Long, LineCount Dim StartCol As Long, EndCol As ... 阅读全文

摘要： Sub CreateSaleList() AppSettings On Error GoTo ErrHandler Dim StartTime As Variant '开始时间 Dim UsedTime As Variant '使用时间 StartTime = VBA.Timer '记录开始时间 Dim Wb As Work... 阅读全文

摘要： Public Sub SameFolderGather() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>程序正在转化，请... 阅读全文

摘要： Public Sub GatherDataPicker() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual Application.StatusBar = ">>>>>>>>程序正在运... 阅读全文

摘要： 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... 阅读全文

摘要： 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 ... 阅读全文

摘要： 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 = Applicati... 阅读全文

摘要： Sub ControlInsertProduct() Dim Wb As Workbook Dim OneSht As Worksheet Dim Arr As Variant Dim i As Long Arr = Array("农家香菜籽油（20L）", "万家炊大豆油（20L）", "万家炊原香菜籽油（20L）", "压榨菜籽油（20L）") ... 阅读全文

摘要： Sub NextSeven_CodeFrame() '应用程序设置 Application.ScreenUpdating = False Application.DisplayAlerts = False Application.Calculation = xlCalculationManual '错误处理 On Error GoTo ErrHandle... 阅读全文