Excel VBA 小天地

摘要： Public Sub ImportPicturesBaseOnExcel() Dim shp As Object Dim xlApp As Object Dim Wb As Object Dim Rng As Object Dim FolderPath As String Dim ImgFolder As String Dim Excel... 阅读全文

摘要： Dim Dic As Object Sub GetFileName() Dim FolderPath As String Set Dic = CreateObject("Scripting.Dictionary") FolderPath = ThisWorkbook.Path & Application.PathSeparator & "2011年报表" Recu... 阅读全文

摘要： Public Sub GatherDataInSameWorkbook() AppSettings ' On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>... 阅读全文

摘要： Public Sub GetDataFromWord() AppSettings 'On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim Wb As Workbook Dim Sh... 阅读全文

摘要： Private Sub GetClientAccountList() Dim EndRow As Long Dim i As Long, j As Long Dim m As Long, n As Long Dim TakeSum As Double, PaySum As Double Dim NotTake As Double, NotPay As Do... 阅读全文

摘要： Public Sub GetCellPhone() Dim CellPhone As String Dim Arr As Variant Dim Brr As Variant Dim n As Long Dim FolderPath As String Dim FileName As String Dim FilePath As Strin... 阅读全文

摘要： Const ADDIN_NAME As String = "AddInFunction" Const SETTING_ITEM As String = "AddInSetting" Const KEY_NAME As String = "RegisterCpu" Sub TestRegister() Debug.Print IsRegistered End Sub Public Func... 阅读全文

摘要： f 阅读全文

摘要： Public Sub CopyModelHideBlankRows() AppSettings Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Dim RngAddress As String, Rng As Range, Sht As Workshee... 阅读全文

摘要： Sub HideBlankRowsBetweenUsedRange() Dim URows As Range, i As Long, EndRow As Long With ActiveSheet EndRow = .Cells.Find("*", .Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row... 阅读全文