08 2017 档案

20170824xlVBA出车对账单
摘要：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... 阅读全文
posted @ 2017-08-24 22:44 wangway 阅读(249) 评论(0) 推荐(0)
20170822xlVBA ExportCellPhone
摘要：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... 阅读全文
posted @ 2017-08-22 16:30 wangway 阅读(188) 评论(0) 推荐(0)
2017-08-22校验
摘要：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... 阅读全文
posted @ 2017-08-22 14:36 wangway 阅读(117) 评论(0) 推荐(0)
2017-08-21xlVBASplitSheetsSameTime
摘要：f 阅读全文
posted @ 2017-08-21 14:14 wangway 阅读(123) 评论(0) 推荐(0)
20170821xlVBA跨表公式套用
摘要：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... 阅读全文
posted @ 2017-08-21 09:05 wangway 阅读(470) 评论(0) 推荐(0)
20170821xlVBA隐藏空行
摘要：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... 阅读全文
posted @ 2017-08-21 09:03 wangway 阅读(380) 评论(0) 推荐(0)
20170814xlVBA限定日期按客户分类汇总
摘要：原始数据表： 汇总格式： 阅读全文
posted @ 2017-08-15 08:44 wangway 阅读(459) 评论(0) 推荐(0)
20170814xlVBA部分代号收盘价转置
摘要：原始数据： 转置效果： 阅读全文
posted @ 2017-08-15 08:40 wangway 阅读(189) 评论(0) 推荐(0)
20170814xlVBA PowerPoint分类插图加说明
摘要：Public Sub AddPictures() Dim ppApp As PowerPoint.Application Set ppApp = New PowerPoint.Application Dim Pre As PowerPoint.Presentation Dim NewSld As PowerPoint.Slide Dim tShp As P... 阅读全文
posted @ 2017-08-14 11:05 wangway 阅读(493) 评论(0) 推荐(0)
20170813pptVBA批量插入图片
摘要：Sub AddSldIn() Dim Pre As Presentation Dim NewSld As Slide Set Pre = Application.ActivePresentation Set NewSld = Pre.Slides.Add(Pre.Slides.Count + 1, ppLayoutBlank) Set Pre = No... 阅读全文
posted @ 2017-08-13 23:32 wangway 阅读(1807) 评论(0) 推荐(0)
20170813xlVBA跨表筛选数据
摘要：一、数组方案 二、SQL方案 阅读全文
posted @ 2017-08-13 17:24 wangway 阅读(600) 评论(0) 推荐(0)
GetTextAndImageCreateExamPaper
摘要：Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As... 阅读全文
posted @ 2017-08-06 18:56 wangway 阅读(212) 评论(0) 推荐(0)
GetContent
摘要：Sub GetContent(ByVal URL As String, ByVal SheetName As String) Dim strText As String Dim i As Long Dim OneSpan Dim IsContent As Boolean With CreateObject("MSXML2.XMLHTTP") ... 阅读全文
posted @ 2017-08-05 22:27 wangway 阅读(1065) 评论(0) 推荐(0)
GetTitleAndUrl
摘要：Sub GetTitleAndUrl() Dim strText As String Dim i As Long Dim OneA Dim IsContent As Boolean Dim PageIndex As Long Dim URL As String For PageIndex = 1 To 10 URL = "h... 阅读全文
posted @ 2017-08-05 22:25 wangway 阅读(311) 评论(0) 推荐(0)
DownLoadImage
摘要：Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As... 阅读全文
posted @ 2017-08-05 22:24 wangway 阅读(511) 评论(0) 推荐(0)
GetImageURL
摘要：Sub GetImageUrl(ByVal URL As String) Dim strText As String Dim i As Long Dim OneImg With CreateObject("MSXML2.XMLHTTP") .Open "GET", URL, False .Send strT... 阅读全文
posted @ 2017-08-05 22:23 wangway 阅读(690) 评论(0) 推荐(0)
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 阅读(266) 评论(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)