wangway - 博客园

2019年5月8日

摘要： (function($){ $.easyui={indexOfArray:function(a,o,id){ for(var i=0,_1=a.length;i=0;i--){ _9.unshift(_a.children[i]); } } } }}; $.parser={auto:true,onComplete:function(_b){ },plugins:["draggable","dro... 阅读全文

posted @ 2019-05-08 21:40 wangway 阅读(1346) 评论(0) 推荐(0)

修改的一段递归文件代码

摘要： Sub ListFilesTest() With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then FolderPath$ = .SelectedItems(1) Else Exit Sub End With If Rig 阅读全文

posted @ 2019-05-08 21:30 wangway 阅读(213) 评论(0) 推荐(0)

checkWeb

摘要： var ctx = '/zxpx'; function IEVersion() { var userAgent = navigator.userAgent; //取得浏览器的userAgent字符串 var isOpera = userAgent.indexOf("Opera") > -1; var isIE = userAgent.indexOf('compati... 阅读全文

posted @ 2019-05-08 21:27 wangway 阅读(356) 评论(0) 推荐(0)

showtimu

摘要： var showTimu = []; function pushTimu(second,map){ showTimu = []; $.each(map,function(i,ele){ var index=parseInt(i); if(0index){ showTimu.push(ele); } }); return; } }); } functi... 阅读全文

posted @ 2019-05-08 21:25 wangway 阅读(317) 评论(0) 推荐(0)

2019年4月26日

如何保持格式拆分工作表？

摘要：在拆分的时候如何保持单元格的格式不变呢？我能想到的办法就是复制和移动工作表，然后再把不符合条件的行删除。窗体代码模块代码阅读全文

posted @ 2019-04-26 23:04 wangway 阅读(1072) 评论(0) 推荐(0)

2019年4月24日

python多线程采集

摘要： import requests import json import threading Default_Header = { #具体请求头自己去弄 } _session=requests.session() _session.headers.update(Default_Header) #多线程下载 class myThread(threading.Thread): def... 阅读全文

posted @ 2019-04-24 16:46 wangway 阅读(806) 评论(0) 推荐(0)

2019年4月12日

学习笔记412

摘要： Sub LayoutForExamPaper() '其他想法： '1自动顺题号，修改引言中完成下列各题的题号 '2综合题每一问空白处理 Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = Fal... 阅读全文

posted @ 2019-04-12 16:01 wangway 阅读(620) 评论(0) 推荐(0)

20190412wdVBA 排版

摘要： Sub LayoutForExamPaper() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range C... 阅读全文

posted @ 2019-04-12 12:28 wangway 阅读(829) 评论(0) 推荐(0)

2019年4月11日

20190411wdVBA_排版

摘要： Sub LayoutForExamPaper() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range C... 阅读全文

posted @ 2019-04-11 23:32 wangway 阅读(391) 评论(0) 推荐(0)

学习笔记411

摘要： Sub ClearBlankBeforeParagraph() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Rang... 阅读全文

posted @ 2019-04-11 11:44 wangway 阅读(311) 评论(0) 推荐(0)

Excel VBA 小天地

公告