- 博客(43)
- 资源 (14)
- 收藏
- 关注
RSS订阅原创 全民一起VBA实战篇 专题4 第七回 递归不怕检索难，万缕千层只等闲
相关知识点：Collection对象： 用于存放任意多个对象，不需要事先指定其长度，常用方法： Add方法：添加一个元素 Clear方法：清空所有元素 Count属性：返回元素的总数例1 递归遍历子文件夹，将找到的文件夹名字存放在数组里...
2019-10-13 12:15:35
810
原创 全民一起VBA实战篇 专题4 第六回 递归法检索初体验，DIR函数惹麻烦
相关知识点：“.”和”..”意思“.”代表所在文件夹本身”..”代表所在文件夹的上一级文件夹例1 接收一个参数（比如”d:\vbademo\”）,然后将该参数代表的文件夹中，所有子文件夹显示在工作表中（不必显示子文件夹的子文件夹）第一层的文件夹名字Option ExplicitDim i as longSub demo() i=1...
2019-10-13 12:14:13
485
原创 全民一起VBA实战篇 专题4 第四回 位运算处理零一变换，属性值识别文件类型
相关知识点：GetAttr 函数，文件或文件夹的名字，返回一个数字，代表该文件的各种属性。位运算（逻辑尺）：and（按位与，位乘），将判断的属性值与属性返回的数值and，计算结果为判断的属性值，则此文件夹具备此属性，否则不具备。例1得到子文件夹的名字(返回不仅是文件夹的名字还有文件的名字)Sub dirdemo() Dim fname as ...
2019-09-15 15:38:46
639
原创 全民一起VBA实战篇 专题4 第五回 递归算法流程独特 大事化小思路清奇
相关知识点：区别于循环在于，把大问题转换成小问题，总结递进的推导公式；知道最小问题的答案（递归的停止条件）。例1 阶乘(循环语句)Sub demo() Msgbox 阶乘(4)End SubFunction 阶乘(n as long) Dim s, i s=1 For i=1 To n...
2019-09-15 11:35:35
1583
原创 全民一起VBA实战篇 专题4 第三回 建目录做拷贝有求必应，VBA玩文件无所不能
相关知识点：文件操作函数有时无法成功情况，有可能是windows文件夹权限，不允许删除修改等。MkDir(“文件夹路径和名称”) 根据指定路径和名称新建一个文件夹，如果该文件夹已经存在，则会发生错误FileCopy(“源文件名”,”目标路径与文件名”) 如果不存在该源文件，则会出错。Name函数 重命名一个文件或文件夹RmDir函数 删除一个空文件夹（该文件夹不能有任何...
2019-08-01 12:28:02
459
原创 全民一起VBA实战篇 专题4 第二回 文件框对象一身多形，属性化操作更加直观
相关知识点：Application.FileDialog 窗体编程相似，此对象代表一个文件对话框，可以是打开、保存等多种形式 FileDialog(1) 代表文件打开对话框,即msoFileDialogOpen，直接调用Execute方法，直接执行打开 FileDialog(2) 代表文件保存对话框,即msoFileDialogSaveAs，直接调用Exe...
2019-07-30 13:23:11
272
原创 全民一起VBA实战篇 专题4 第一回 Get 方法弹出文件框，可选参数过滤目标名
相关知识点：Application.GetOpenFilename方法：显示“文件打开”对话框，并将用户选中的文件名，作为一个字符串返回。如果用户点击“取消”按钮，则返回一个逻辑值False。GetOpenFilename(FileFilter,FilterIndex,Title,ButtonText,MultiSelect) 打开对话框 FileFilter 文件过...
2019-07-26 16:34:59
611
原创 全明一起VBA实战篇 专题3 第四回 环视功能预判位置，边界问题轻松解决
相关知识点：环视（Look Around）或译为“零宽度断言”，代表的不是字符，代表文本中一个位置。比如（？=abc）代表字符串中一个位置，该位置右边必须是“abc”。 （？=北京|$）可匹配这样一个位置：其中右边或者是“北京”，或者是行尾，|代表或者，$代表在多行模式下代表一行末尾。环视的四种形式：例1 北京车站分别显示在一列中。 Sub lookroundd...
2019-07-21 14:20:45
425
原创 全民一起VBA实战篇 专题3 第三回 捕获组只按括号计数，正则式可以嵌套加强
相关知识点：正则表达式捕获组：使用圆括号，将匹配结果中的局部内容单独抽取出来。(\d+)(-(\d+))+:作为分组，圆括号外的+是有意义的代表一个或多个捕获组 作为捕获功能，圆括号外的+是被忽略的，捕获组只是数圆括号的数量非捕获组：功能：让某个圆括号只用于分组，不捕获其中的内容。方法：将（内容）改为（？：内容），例如：(\...
2019-07-21 12:34:55
559
原创 全民一起VBA实战篇 专题3 第二回 转换日期要注意起点，匹配字符应注意方向
相关知识点：Format（原文本，期望格式，firstDayOfweek，firstWeekOfYear）firstDayOfweek可取值，每周的开始，星期几开始计算；firstWeekOfYear可取值，全年的起始周（例如2019/1/1，起始周），其中VbfristFullWeek，VbfirstFourDays与一周起始的指定星期几（firstDayOfweek）有关联，例如周起...
2019-07-16 08:59:09
261
原创 全民一起VBA实战篇 专题3 第一回 格式化规定各人迥异，Format函数一招摆平
相关知识点：Format（原始内容，期望格式，每周起始日，每年起始周）将原始内容（数字、日期、文本等）转换成指定格式的字符串并返回。除了第一个参数（原始内容）外，其他参数均为可选。 #：代表一位数字，”.##”:小数点后保留两位“##.##”:前后都是保留两位数，523.12格式化以后变成523.12不会截断整数部分例1 将数字转换为货币格式...
2019-06-28 12:56:23
338
原创 全民一起VBA实战篇 专题2 第五回 多键排序无非多次循环，独特功能还需独自开发
相关知识点：多关键字排序原理：现对次要的列排序，再排序优先的倒序（从最次要开始）进行依次排序，就能实现Worksheets.Sort 工作表排序，自学例1 足球赛积分表排序，四个排序列 本来的优先级是总积分、获胜次数、净胜球、进球数 实现排序就得倒序进球数、净胜球、获胜次数、总积分按照这个顺序排序，最关键的最后排Sub demo2()...
2019-06-26 13:02:13
330
原创 全民一起VBA实战篇 专题2 第四回 排序规则能由自己决定 数组赋值可用Array化简
相关知识点：Range.Sort: VBA 内置的排序方法，15个参数。（缺点只有3个关键字排序）（Key1，Order1，Type，Key2，Order2，Key3，Order3，Header，OrderCustom，MatchCase，Orientation，SortMethod，DataOption1，DataOption2，DataOption3）OrderCustom ...
2019-06-24 15:46:59
595
原创 全民一起VBA实战篇 专题2 第三回 VBA已有Sort方法，欲排序何必再写循环
相关知识点：要知道轮子是怎么造出来的，不要重复造轮子。Range.Sort: VBA 内置的排序方法，15个参数。（Key1，Order1，Type，Key2，Order2，Key3，Order3，Header，OrderCustom，MatchCase，Orientation，SortMethod，DataOption1，DataOption2，DataOption3）Ke...
2019-06-19 13:53:10
1209
原创 全民一起VBA实战篇 专题2 第二回 选择法轻松上手，双循环巧妙排序
相关知识点：选择排序法：在剩余数字中找出一个最大的数字，填入第一个空白方格里，如此反复，直到没有剩余数字。缺点是运行效率太低其他方法：堆排序，基数排序，快速排序，希尔排序，桶排序，归并排序，二叉树排序application.ScreenUpdating=False：关闭屏幕刷新提高运行效率，恢复刷新=TrueRange.Sort: 内置的排序方法例1按照GDP对国家进行排...
2019-06-19 13:51:54
688
原创 全民一起VBA实战篇 专题2 第一回 同列匹配循环有术，起点唯君马首是瞻
相关知识点：跨列匹配同列匹配双循环，先按照手工的方法去模拟解决问题，然后画流程图，技巧如下：打标签 里层循环与外层循环是关联的，身后查找例1 审计超过限额交易就显示红色（跨列数据放在一起匹配）Sub demo1() Dim j as long, k as long, name as string, amount as long...
2019-06-16 15:57:43
381
1
原创 全民一起VBA实战篇 专题1 第二回 可选参数灵活搭配 格式内容一应俱全
相关知识点：Application.FindFormat属性：用于指定后面Find等方法中需要查找的格式,与Range的方法一致 Application.FindFormat.Font.Bold=TrueRange.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchC...
2019-06-16 13:07:01
476
原创 全民一起VBA实战篇 专题1 第一回 FIND方法实现快速查找 通配符号提供灵活选择
相关知识点：Range.Find 方法，在该Range类对象代表的单元格区域中，搜索含有指定内容的单元格。Find只返回第一个找到的结果，例找374这个数字：Range(“B2，G14”).Find(374)，返回Range（”C4”）Range.Find(What,After,LookIn,Lookat,SearchOrder,SeachDirection,MatchCase,Ma...
2019-06-16 10:13:17
2606
原创 全民一起VBA提高篇 第四回 日期类型穿梭岁月,时间函数算尽光阴
相关知识点一、获取当前系统时间 1、 date() 或date 获得当前系统日期 如2019/2/1精度到秒，从1900-1-1~9999-12-31 2、 time() 或time 获得当前系统时间 如 16:21:30 3、 now() 或now 获得完整的系统日期和时间如 2019/2/1 16:21:30二、时间数据解析(年，月，日，星期...
2019-06-12 16:26:28
576
原创 全民一起VBA提高篇 第三回 莫让电脑猜大小，巧用符号标类型
相关知识点a& =a as long 4字节 （-2147483648~+2147483647），&作为连接符加空格a%= a as integer 2字节（-32768~+32767）a$ =a as stringa@ =a as currency 8字节 货币类型 ±900万亿 精确四位小...
2019-06-11 15:16:13
334
原创 全民一起VBA提高篇 专题1 第二回 变体终非万全策，数字要分长短型
相关知识点变体类型还有一个缺点就是总是猜数据，有时数据类型是文本显示的是数字如第一堂所示VBA相加时“+”，如果两边都是字符串就等同于“&”，执行连接操作自动类型转换：Dim a As Integer a=”23”转换为数字23，a=”你好”无法转换，报错+不可以取代& 相同：“12”&”34”=”1234”， “12”+”34”=”...
2019-06-11 15:14:54
443
原创 全民一起VBA提高篇 专题1 第一回 变体能容 高矮胖瘦皆适用，数据细分 大小黑白各不同
相关知识点数据类型类型不一样，数据大小不一样，运算规则和处理方式不一样As 定义数据类型Integer 整数类型（只存放-326768~+32767之间的整数）String 字符串类型Variant 变体类型，没有指定数据类型，默认为此种类型，缺点：1. 效率低下，内存开销大，执行速度慢 2. 总是猜数据类型，会猜错 声明变量时，...
2019-06-11 11:36:19
535
原创 全民一起VBA提高篇 课时1 愿上层楼骋远目，勿在浮沙筑高台
相关知识点基础篇快速上手，速成法，基础不牢，注意数据类型更多的实用技术，处理技巧完善编程技巧例1 a+b两列相加结果出现字符串相加问题(个别单元格不是数字是字符串)Sub cal() Dim k,a,b, For k=3 to 10 a=cells(k,2) b=cells(k,3)...
2019-06-11 11:35:21
461
原创 全民一起VBA提高篇 第三十一回 字典对象简化统计汇总，键值匹配实现高效查询
相关知识点重复数据的统计每一个字典对象每一个元素都必须包含关键字（Key）和条目（Item，取值），一Key一值；容量无限Dictionary.add k,i方法: 添加一个新元素，其中关键字是k，条目iDictionary.Exists(k):判断该字典中是否已经存在一个关键字为K的元素，存在返回True，否则返回False。Dictionary.count: 当前字典...
2019-06-06 16:52:56
893
原创 全民一起VBA提高篇 第三十二回 Select 简化分枝结构，静态变量坐看沧海桑田
相关知识点静态变量：模块级的变量都是静态变量，无论是Pubic还是Private，execl关闭静态变量就消失了例1 运行多少次都是1，每次都要重新分配内存Sub a() dim x x=x+1 msgbox xEnd Sub 如果将dim x放在模块前面，每点击一次就会累加Option Explicitdi...
2019-06-06 16:51:34
782
原创 全民一起VBA提高篇 第三十回 外部正则对象友情客串，查找捕获替换样样精通
相关知识点Regexp 对象，专门处理正则表达式的对象，其属于外部对象，需要声明并使用CreatezObject函数创建Pattern: 属性，设定要执行的正则表达式Global:属性，设定为True，找到并返回要求结果；False只返回第一个符合要求的结果默认False。Execute(s):在字符串s中查找符合条件的文本Matches：查找到的对象集合,matche每...
2019-06-06 11:16:35
425
原创 全民一起VBA提高篇 第二十九回 贪婪搜索得陇望蜀，方圆括号拉帮结派
相关知识点+ 元字符需要转义，转义字符（\）例如：+→\+;\→\\. 所有字符，默认不能代表换行符正则表达式按照“贪婪”原则搜索，选择最长的结果 例如：\d.*\d实现懒惰搜索，符合条件的字符串，选择第一个也就是最短的一个作为结果，加？实现 a*? 可有任意个a，但尽可能少 a+? 一个或多个a，但尽可能少 a?? 零个或一个a，但尽可能...
2019-06-05 14:12:56
252
原创 全民一起VBA提高篇 第二十八回 任凭字符串千变万化，难逃正则式一定之规
相关知识点正则表达式：字符串或文本结构的表达式。练习网站：deerchao.net 或搜索正则表达式30分钟教程重复结构： 同一内容连续出现n次（n>=0） + 是元字符，前面的内容连续出现1次或更多次，只负责+前面的一个内容 *前面内容出现任意次，包含0次 ？前面内容出现0次或者1次 {n} 前面正好出现n次...
2019-06-05 14:11:45
242
原创 全民一起VBA提高篇 第二十七回 工作表随心使用各控件，VBA任意操作统计图
相关知识点数据的传递插入菜单里的ActiveX控件比表单控件更强大，可以设置其属性ChartObjects : 图表对象ChartObjects.count: 工作表中当前的图表总数ChartObjects(k):工作表中第k个图表对象ChartObjects.delete:该工作表中所有图表全部删除ChartObjects.add: 在该工作表中新建一个空白图表...
2019-06-02 14:44:52
708
原创 全民一起VBA提高篇 第二十六回 选项按钮轻松上手，附件控件琳琅满目
相关知识点OptionButton：单选按钮Caption属性就是提示文字，Value属性True或FalseCheckBox：复选框Caption属性就是提示文字，Value属性True或FalseFrame:框架控件，带有“xyz”符号的控件Image:图像控件，主要属性Picture：显示图片的对象，可在属性窗口中设置，也可用代码LoadPicture(“文件路径”)设...
2019-05-31 12:06:22
1057
原创 全民一起VBA提高篇 第二十五回 文本栏可以多行输入，列表框允许逐项选择
相关知识点Multiline：文本框多行输入，设置为True，手动换行是Ctrl+Enter;如果设置WordWrap属性设置为True为自动换行ScrollBars：是否显示滚动条ListBox：列表框Listbox.RowSource=”sheet1!D1:”D66”:列表框的条目,不可以与List属性同时使用Initialize：窗体初始化时AddItem：列表...
2019-05-31 11:38:28
1145
原创 全民一起VBA提高篇 第二十四回 文本框方便输入数据，Unload彻底清空内存
相关知识点文本框控件：“ab”光标控件文本框命名易记，不重复Lable：标签控件 Caption就是标签当按钮被按下时写入，Click，按照状语写入程序，双击按钮控件用Click方法Text属性:文本框的内容Form.Hide:窗体隐藏，在内存里Unload:窗体彻底消失或者点击窗体的“X”，效果一样fmInput.txtname.txt：窗体名.控件名.属性...
2019-05-31 11:37:32
843
原创 全民一起VBA提高篇 第二十三回 窗体对象初体验，人机交互更直观
相关知识点插入窗体，修改属性更改大小，颜色等Caption：标题栏文字BackColor:背景颜色添加控件，CommandButton:按钮Show:窗体显示……
2019-05-31 11:36:42
665
原创 全民一起VBA提高篇 第二十二回 巧用事件实现自动跳转，慎写代码谨防无限级联
相关知识点Change:工作表对象（worksheet）当一个单元格处于编辑状态或者发生变化时会触发包含双击也会触发，可以进行有效性验证；修改格式，合并单元格，排序，增减批注不会触发避免事件级联：a.使用静态变量加锁（暂不讲）；b.使用Application.EnableEvents属性，True，允许VBA响应Execl事件，False，禁止响应例1 按照关系图点击关键字，在第...
2019-05-31 11:35:34
901
原创 全民一起VBA提高篇 第二十一回 事件函数伺机而动，时机成熟一触即发
相关知识点事件处理程序 模块里写的宏，标准宏；事件处理程序必须写在程序发生地；工作簿事件写在Thisworkbook里workbook_open() 工作簿打开运行程序workbook_beforeclose(cancel as boolean) 括号内参数是执行完本程序，是否取消关闭工作簿的操作，cancel=Ture,就无法关闭workbook_newsheet 新建工作...
2019-05-30 14:08:38
288
原创 全民一起VBA提高篇 第二十回 随机数变幻莫测，模运算买椟还珠
相关知识点默认属性，range（3，2）默认属性是value，对象赋值要用setMod模运算:求余数，可以用于奇偶数判断或者周期性问题Rnd(): 随机数，返回0-1（包含0，不含1）之间的Double类型随机小数。可选参数为随机序列的生成方式。Int(Rnd()*n),n模运算的值得到0-（n-1）之间的随机数随机数万能公式：生成[a,b]之间的随机数Int(Rnd()*(...
2019-05-30 14:07:47
554
原创 全民一起VBA提高篇 第十九回 括号几时有把酒问青天，不知按值传递今夕怎实现
相关知识点决定是否写括号的三种情境：没有参数（函数或子过程不需要参数）：不写 有参数，调用语句处于一行代码的中间（If判断，赋值，嵌套语句）：写 有参数，调用语句独占一行代码（防止计算强迫症参照第4条）：不写 括号的特殊含义就是“Evaluation（求值运算）”，视作一个计算式，必须计算出结果；执行起来是先求值，再调用函数 如果函数或者子过程调用的时候，前面加Call，参数...
2019-05-30 14:06:51
435
原创 全民一起VBA提高篇 第十八回 传参数随心所欲不逾矩，消息框暗藏高招有神通
相关知识点可选参数Optional （参数）=False：参数默认值是FalseIsMissing（a）：判断一个可选参数a是否提供，没有提供就返回True，否则返回False，可选参数必须是变体类型，不能是默认值（没有默认值的变体类型）MsgBox“参数1”，参数2，参数3：参数2为0，只有确定按钮，默认；1，确定取消；是4，是否双按钮；是64，带有信息警告标志的对话框；参...
2019-05-30 08:08:24
380
原创 全民一起VBA提高篇 第十七回 三原则优化录制代码，一属性玩转合并表格
相关知识点Worksheet.rows(8):表格第8行全部Worksheet.Column(5):表格第5列全部Worksheet.rows(“2:3”):一次性返回多行Worksheet.Column(“B:E”): 一次性返回多列Range.Mergecells: 判断一个单元格是否是完全合并单元格，是返回Ture，否则False，部分合并的单元格则返回Null，表...
2019-05-30 08:07:04
271
原创 全民一起VBA提高篇 第十六回 多区域合纵连横身形变幻,单元格定位精准边界分明
相关知识点Range.cells(1,1): 代表range对象的cells，是重新定位的左上角单元格第一行第一列（相对位置），worksheet.cells（1,1）是工作表的第一行第一列（绝对位置）Application.Union: 多个range联合起来，作为一个新的range对象Application.intersect:多个range重叠的区域，作为一个新的range...
2019-05-29 08:31:50
471
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人