Excel VBA 小天地

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

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

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

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

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

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

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

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

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

摘要： 很长一段时间没处理word合并单元格，又忘记了采取忽略错误的方式测试出相应单元格的行列坐标这种方式。真是浪费时间。以后再也不想为此在深夜熬命。 今晚算是和它杠上了，很想弄清楚合并单元格之后行列坐标重新分配的机制。于是做了一点测试。插入一个11行10列的表格，然后合并其中的部分，利用代码插入新的坐标。 阅读全文