![](https://img-blog.csdnimg.cn/20201014180756757.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
excel
文章平均质量分 81
SampsonZhang_
编程界的小学生,请多多指教!
展开
-
VBA学习笔记六(异常处理)
VBA异常处理异常处理综述异常处理方法分类默认方法三级目录参考文章异常处理综述在vba代码中并没有 try catch异常处理语句,但有 on error 语句和try catch语句的功能类似;其形式如:on error +处理方式异常处理方法分类语法功能on error GoTo 0默认报错 ,和不使用该语句报错情况相同on error Resume Next出现异常后忽略异常,继续执行下一条语句on error goto [标志语句]出现异常后,跳转到标原创 2021-01-11 13:44:19 · 5311 阅读 · 0 评论 -
VBA学习笔记六(数组)
数组引言介绍数组数组声明计算数组的上下界语句重定义数组实战---查找销售冠军引言让我们先看两个时间对比图,左侧图片为未使用数组,右侧使用数组代码对比图:由上面的图可以看出,1、使用数组之后,程序的运行时间会有大幅度的提升,该功劳应该归于内存的优点,即读写速度快。2、在for循环里面使用Range语句时,程序会先找表格,然后取里面的值,因此会消耗一些时间。介绍数组数组声明类型代码语句静态数组Dim arr(1 to 4)动态数组Dim arr()注:原创 2020-08-07 17:38:40 · 410 阅读 · 0 评论 -
VBA学习笔记五---如何将宏代码进行共享(加载宏)
如何设置加载宏思考1、 写好需要普遍使用的代码(这里假设1.xlsx为开发文件,代码比较简单)2、 新建一个excel文件夹,将其命名为“sampson的代码库”,将上述代码复制到该文件的模块内。3、 点击 文件>>另存为>>保存类型中选择xlam类型4、 将上述代码加入加载宏中,点击开发工具>>excel加载项>>选择“sampson的代码库”>>点击确定;此时d在打开本电脑中任意的excel表后,均可以看到上述代码。d5、 为原创 2020-08-04 16:12:46 · 4954 阅读 · 1 评论 -
VBA学习笔记四(使用Dir函数合并多文件数据)
使用Dir函数合并多文件数据基础知识介绍Dir函数运用Dir函数实践-合并某一文件夹内多个文件的数据代码实现效果图FYI基础知识excel表中对象声明对象名声明代码单元格对象Dim rng As Range工作表对象Dim sht As Worksheet工作簿对象Dim wb As Workbook注:将上述对象赋值给变量时,需要在赋值前加Set 如:Set wb = Workbooks.Open("c:\data\city\" & str)原创 2020-08-03 15:22:12 · 1144 阅读 · 0 评论 -
VBA学习笔记一(控制语句+工作表)
VBA学习笔记一欢迎使用Markdown编辑器新的改变功能快捷键合理的创建标题,有助于目录的生成如何改变文本的样式插入链接与图片如何插入一段漂亮的代码片生成一个适合你的列表创建一个表格设定内容居中、居左、居右SmartyPants创建一个自定义列表如何创建一个注脚注释也是必不可少的KaTeX数学公式新的甘特图功能,丰富你的文章UML 图表FLowchart流程图导出与导入导出导入欢迎使用Markdown编辑器你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markd原创 2020-06-17 12:13:56 · 435 阅读 · 0 评论 -
VBA实战一---处理考生成绩
处理考生成绩问题需要处理的文件未处理的文件图片处理之后文件图片VBA代码链接: https://www.bilibili.com/video/BV1L4411Q7Ni?p=4.问题文件中包含多个表格,数目不确定,每张表格是一个地区的考生成绩,请计算称呼和专业代号,删除成绩表中名字为空的数据,最后将每张表格拆分到一个excel文件中,文件名根据表名命名需要处理的文件待更新未处理的文件图片处理之后文件图片VBA代码Sub demo()Dim i As IntegerDim sht原创 2020-06-19 10:17:35 · 717 阅读 · 0 评论 -
VBA学习笔记三(VBA事件)
VBA学习笔记三VBA事件执行宏的方法工作表事件事件操作示例根据表格中的内容自动筛选数据参考VBA事件执行宏的方法执行宏的方法:1、在写好的代码处点击一下,然后点击执行2、点击宏,选中代码名后执行3、将宏与表格中的按钮绑定,点击按钮便执行宏4、双击选中待操作的表格,在上面选中worksheet,此时后面的事件发生时,执行下面代码,截图如下工作表事件事件说明Activate激活工作表时Deactivete工作表从活动状态转化为非活动状态时BeforeDo原创 2020-07-28 17:17:16 · 1691 阅读 · 0 评论 -
VBA实战四---根据自定义的某一列创建工作表
根据自定义的某一列创建工作表项目分析需求分析解决思路及代码最终效果图知识点总结整体代码项目分析项目所在地址位置:王佩丰 VBA 课件\第七课需求分析在处理财务数据时,可能需要根据某一行中的数据对整个工作表进行分类创建各自的工作表待处理的表格解决思路及代码1、对整个excel进行分析,判断是否存在一些无意义的工作表(这里只是为了让最终生成的工作表只有我们需要的),若有,则删除If Sheets.Count > 1 Then Excel.Application.Displ原创 2020-07-09 13:29:13 · 1784 阅读 · 1 评论 -
VBA实战三---将表格进行合并并按照时间进行排序
将表格进行合并并按照时间进行排序问题思路代码展示运行结果截图该实战与实战二的思路相反问题将每个表格中的数据进行汇总到一个表格内并按照时间的顺序进行排序思路1、本次项目打算使用折半查找的方法进行插入,注意折半查找使用时必须保证带查找的内容时有序的。2、首先将Sheet2即一车间中的数据按照时间顺序进行排列(这里可以尝试采用代码将Sheet2中乱序的数据按照折半查找方法直接插入至总表格内,本人直接在excel中直接排序,后期更新方法),然后读取每个表格中每行数据中的月与日,按照折半查找的思路找到原创 2020-07-07 17:23:43 · 1005 阅读 · 0 评论 -
VBA实战二---将总数据表进行拆分至多个工作表
将总数据表进行拆分至多个工作表问题使用For循环拆分工作表使用筛选拆分工作表结果图问题将数据表中数据根据所属部门分配至对应部门的工作表内,如下图所示:使用For循环拆分工作表Sub shishi()Dim sht As WorksheetDim rng As RangeCall qk'循环每个表For Each sht In Sheets '循环第一张表中每一行 For Each rng In Sheet1.Range("d2:d" & S原创 2020-07-07 14:35:50 · 2494 阅读 · 0 评论 -
VBA学习笔记二(操作表格)
VBA学习笔记二表格选取表格偏移表格重选区表格复制表格选取选表格选择区域[a1].select[a1:a10].selectcells(10,1).select\Range(“a1”).selectRange(“a1:a10”).select当使用某个单元格的值时,需要在其后面加上其属性Value,如Range("a1").Value表格偏移方法解释range(“a1”).offset(10,1)用于移动位置,offset(行,列原创 2020-07-07 14:00:42 · 270 阅读 · 0 评论