Subauto_open()Callruntimer'打开文档时自动运行EndSubSubruntimer()Application.OnTimeNow+TimeValue("00:00:05"),"saveit"'Now+TimeValue("00:00:55")指定在当前时间过05秒钟后调用Saveit这个过程。E...

'======================================================='1、循环单元格取数,效率最低，不可取，初学者易犯'2、区域相等取数'3、复制粘贴取数'4、借助数组取数'————以上4种都需要打开外部工作簿'5、宏表函数取数（不打开工作簿）'===============...

SubQuery()DimConnAsObject,RstAsObjectDimstrConnAsString,strSQLAsStringDimiAsInteger,PathStrAsStringSetConn=CreateObject("ADODB.Connection")SetRst=CreateObject("...

SubDataType()Fori=0To100t1=t1+0.1t2=t2+CDec(0.1)Debug.Print"Double="&t1&"Decimal="&t2NextEndSub结果：Double=.1Decimal=.1Double=.2Decimal=.2Double=.3Dec...

 1.情景展示　　VBA编程，如何对数组进行遍历？2.解决方案　　方式一：使用for循环Sub遍历数组1()'声明一个变量DimArrAsVariant'声明一个数字变量DimiAsInteger'变量类型指定为数组并赋值Arr=Array(1,2,3,4,5)'使用For...To...进行遍历Fori=0...

今天，有同事提出想批量修改文件名，规则比较简单，在第五位后加“-”即可，上网没找到相关工具，就自己做了个excel，用宏代码修改。代码如下：PrivateSubCommandButton1_Click()DimvarFileListAsVariantMsgBox"选择要重命名文件所在的文件夹,点...

Sub宏1()''宏1宏''Range("E3:E33").SelectSelection.Copytyear=2010tmonth=1ForstartIndex=3To2701Step31'2436Range("E"&startIndex).SelectActiveSheet.PasteFori=0To30R...

先说下背景环境　　1.公司需要问卷调查，有两份问卷，1）是spss问卷，2）是excel问卷。spss问卷数据不全，但有各种标签，excel呢，生成的数据直接把选项变成了值　　2.现在需要把excel的选项值变成1，2这种数字{1：“满意”}　　3.妹子已经把vba写好了。（不忍直视！）&nbs...

1.浅谈Excel开发：一Excel开发概述3.以ExcelVBA的脉络为主线学习VBA编程4.ExcelHome5.excel快速入门6.完美excel的资源链接7.vbamsdn参考8.VisualBasiclanguagereference9.excleeasy(exceltutorial) -----...

OnTime 方法参阅应用于示例特性安排一个过程在将来的特定时间运行（既可以是具体指定的某个时间，也可以是指定的一段时间之后）。expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule)expression&n...

1.学学基础的VB语法https://www.yiibai.com/vba/vba_programming_charts.html2.找一个样例看看VBA编程实现自动回复邮件https://blog.csdn.net/tclxspy/article/details/507147833.改造样例取msdn上看看开发文档h...

处理Selection对象和Range对象——WordVBA中重要的两个对象Word开发人员参考Selection对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个Selection对象，并且在整个应用...