VBA
UP Lee
这个作者很懒,什么都没留下…
展开
-
VBA程序打开文件时被强制删除,无法使用模块
1 环境第二天开机打开含有VBA程序的excel,突然弹出一个修复窗口,必须点击确定,否则退出。修复之后见下图: 泪崩:所有的VAB程序一次开机之间啥也没有了,工作。。。。2 下面说一下解决方法01 按alt+F11 可以调出VBA窗口,以及程序删除解决方法: 1、系统更换为中文系统 2、模块名字改为英文即可 ps:若有已经写了代码的文件可通过...原创 2018-12-13 14:05:27 · 5565 阅读 · 0 评论 -
7、正则表达式贪婪搜索和懒惰搜索原则
1 贪婪搜索原则以某个字符为起始(比如3),\d.*\d如果同时多个符合要求的字符串(比如 3+5 ,3+5 2+7),则选择最长的一个作为最终结果2 懒惰搜索当有多个以同一字符未开始、并且符合查询条件的字符串时,选择第一个也就是最短的一个作为结果在表示次数的元字符后面加上问好,即执行懒惰搜索a*? 可有任意个a,但尽可能少a+? 一个或者多个a,但尽可能少a...原创 2018-12-10 14:57:56 · 2686 阅读 · 0 评论 -
6、正则表达式基础知识
目录1 重复结构2、指代特定内容的元字符3、转义字符4、分列显示1 重复结构同一个内容连续出现n次(你>=0)+ 前面的内容连续出现1次或更多次元字符“ a+b+ ”详细:+ 前面的内容连续出现1次或更多次* 前面的内容出现任意次,包括0次? 前面的内容出现0次或者1次{n} 正好出现n次{n,m} 出现 n 到 m 次2...原创 2018-12-10 14:55:55 · 156 阅读 · 0 评论 -
5 VBA实现自动在所用数据列后边添加新数据
操作环境;VB编辑器,在N1所在列后边添加数据 ### 特别注意r是对象 sub demo() dim r as range If Cells(i, 58) = 0 Then Set r = Sheets("改动表").Range("N1", Sheets("改动表").Range("N1").End(xlDown)) ...原创 2018-12-10 14:50:18 · 3212 阅读 · 0 评论 -
4 VBA range对象和range属性的常见使用方法整理
1 与range对象位置有关的属性(1)range.row : 该Range左上角单元格的行号(2)range.column:该range左上角单元格的列号(3)range.address : 该range各个对角顶点的绝对引用地址$注意:当range包含多个矩形区域的时候,row和column只返回其中某一个矩形的左上角位置,并不一定是整个range的左上角!比如:rang...原创 2018-12-10 14:45:00 · 49265 阅读 · 1 评论 -
3 VBA读取word到excel中
案例:option explicitsub importfromword()dim w as object,i As Long,doc as Object'创建一个word的Application对象,由w代表set w=CreateObject("word.application") '循环打开使用数字命名的各个word文档,由doc代表for i=1 to 8 ...原创 2018-12-10 14:27:15 · 5497 阅读 · 0 评论 -
2 批量读取text文本到excel中
一、步骤:1 01 使用VBA程序打开文本文件2 读取一行内容3 判断是否已经到末尾4 关闭文本文件二、案例f=dir(“d:\demo2\”)以反斜杠“\”结尾代表文件夹,否则会被当做一个文件,即demo2文件### 成功案例Option ExplicitSub dirdemo()Application.ScreenUpdating = False ...原创 2018-12-10 12:12:40 · 2405 阅读 · 0 评论 -
2 VBA链接mysql数据库步骤和代码示例
连接前的准备工作1、VBA连接MySql前的准备 Tools--->References..---->引用 勾选Microsoft ActiveX Data Objects 2.8 Librarys 和Microsoft ActiveX Data Objects Recordset 2.8 Librarys2 安...原创 2018-12-10 11:12:40 · 3157 阅读 · 0 评论 -
1、VBA的常用功能1
目录1 cells(行,列)2 range 选择含有变量的多个单元格3 count 函数4 for ....next...5 if....else....多条件6. array() 返回一个数组7 Trim() 只会删除字符串两边的空格1 cells(行,列)是一种找到单元格对象的方法,而不是单元格本身(经纬度工具)2 range 选...原创 2018-12-07 16:21:07 · 1688 阅读 · 0 评论 -
8、VBA使用正则表达式拆分内容
1 重点内容01 正则表达式文本myreg.pattern=".*[^学历规划师]:\s+.*"02 执行语句regexp.execute(s)使用regexp对象那个已经设置好的表达式(pattern属性)在字符窜s中查找符合t条件的文本03 替换regexp.replace(s,r)并未修改原文本是,而是将替换后的节骨作为一个新的字符窜cells(i,2)=...原创 2018-12-10 15:05:01 · 2494 阅读 · 0 评论