最近公司的电脑把系统从win7切换到了win10，发现之前写的网页自动化程序无法运行， 调试后发现关键原因是InternetExplorer对象无法创建 不管是使用Creat...
IP属地：四川
最近公司的电脑把系统从win7切换到了win10，发现之前写的网页自动化程序无法运行， 调试后发现关键原因是InternetExplorer对象无法创建 不管是使用Creat...
函数可以应用于数组，不需要进行循环。 一 函数在数组中的应用 1.1 数组的最值 Sub s() Dim arr1() arr1 = Array(1, 12, 4, 5, 1...
VBA数组 1.在内存中读取 在内存中读取后用于继续运算，直接用下面的格式。表示编号是5的数字，并不是行数。如编号从-1开始，数组变量（5）是第七个数据。 数组变量（5） 数...
end 语句与exit语句，end语句强制退出所有正在运行的程序。exit是退出指定的语句 exit sub exit function exit for例子 Sub de1...
javasript(简写：JS)属于轻量型的脚本语言，常运用于网页源码上。我刚开始接触JS的时候，以为JS就是异步(ajax)。后来查询资料才知道，ajax指的是基于JS语言...
此次破解的背景是：一个朋友希望定期同步某个公司的工商信息，评估和测试了下。相对比较可能的就是启*宝的接口了。通过一天的努力，终于有了点底了。特做记录，以备以后回顾！ 参考：h...
【引用地址】http://club.excelhome.net/blog-238368-1693.html 一个高手的代码：遍历文件夹下的文件夹 Public Fso As ...
按部门拆分为工作簿 操作步骤 1、提取部门名称，循环遍历部门新建工作簿。 2、筛选数据，获取可见行，复制到新建的工作簿。 3、关闭新建的工作簿，重命名，并保存数据。 4、重复...
练习：入库单信息存储为数据表。 在这个VBA过程中,使用了工作表函数CountA计算入库单据的条数,CountIf函数检测入库单据是否有重复。 适当使用工作表函数,能够很方便...
按部门列拆分工作表数据,生成新的工作表。 思路： 1.删除除数据源工作表外的所有工作表。 2.提取部门名称，也就是要新建的工作表名称。 3.循环新建工作表,写入对应的数据。 ...
删除存在的工作表。如果工作表不存在，则会返回错误。 将工作表放进对象变量，判断工作表是否存在(有时候需要判断工作表是否存在，然后再进行删除操作) 如果不存在‘小强’工作表，则...
下面代码遍历所有工作表,并给其单元格A1赋值100 下面代码同样效果,用的是工作表索引的方法。Worksheets.Count返回的是工作表的个数。 练习:多工作表汇总,将结...
上面代码由录制宏得出，其中包含with...end with结构。 又如，假设我们要对某个工作表A1单元格进行操作：值为100，背景颜色为黄色，行高为30。代码如下 这样需要...
Intersect方法用来表示两个或两个以上单元格区域的交集,它返回一个[Range]对象，此对象代表两个或多个范围重叠的矩形区域。 代码运行结果如下图,如果没有交集，ise...
‘定位’对话中的操作都能够用VBA代码（SpecialCells方法）来实现。 SpecialCells方法官方文档说明。返回一个Range对象，该对象代表与指定类型及值相匹...
