网站开发服务商,邯郸网站建设产品介绍,佛山做网站公司有哪些,石家庄网站服务在之前的一篇文章中#xff0c;分享过用数据透视表的方法批量新建工作表。https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com本次将用VBA的方式快速新建多张工作表并命名#xff0c;基于上篇文章中对插入工作表和计算工作表数的分析。https://zhuanlan.zhihu.com/…在之前的一篇文章中分享过用数据透视表的方法批量新建工作表。https://zhuanlan.zhihu.com/p/115191339zhuanlan.zhihu.com本次将用VBA的方式快速新建多张工作表并命名基于上篇文章中对插入工作表和计算工作表数的分析。https://zhuanlan.zhihu.com/p/335006699zhuanlan.zhihu.com一、先来看一下如何在VBA中给工作表命名用到的一个属性类型的动作就是Name。1. 打开Visual Basic添加一个新的模块和过程称之为“命名工作表”。Sub 命名工作表()End Sub2. 添加命名工作表的代码这里比如要修改Sheet1的名字为“表1”。Sub 命名工作表()Sheet1.Name 表1End Sub3. 执行以上代码后在Excel中可以看到当前工作表的名称已经改变了。二、新增多张工作表并为其命名1. 打开Visual Basic添加一个新的模块和过程称之为“新建工作表”。Sub 新建工作表()End Sub2. 如之前的案例创建2020年1至12月共12张工作表。这里在过程中添加一个for循环让新增工作表的执行动作重复12次即要新建12张工作表。Sub 新建工作表()Dim i As IntegerFor i 1 To 12NextEnd Sub3. 写入新建工作表的代码。Sub 新建工作表()Dim i As IntegerFor i 1 To 12Sheets.Add after:Sheets(Sheets.Count)Sheets(Sheets.Count).Name 2020年 i 月NextEnd Sub4. 分析一下带Sheets的这一段代码。1) Sheets.Add after:Sheets(Sheets.Count)每次在新增工作表时都在最后一张工作表的后面执行。2) Sheets(Sheets.Count).Name “2020年” i “月”这里的Sheets.Count返回的值和上一行代码中的不一样上一行中返回的值是当前工作表总数而这行返回的是新增工作表后的工作表总数在此例中即为上一行的Sheets.Count1.Name后面用“”符号赋值然后命名为如“2020年1月”、“2020年2月”等。5. 执行以上代码后即可在Excel文件中新增12张工作表。相比之前用数据透视表的方法VBA通过几行代码即可快速新建工作表效率提高了很多。参考视频知乎视频www.zhihu.com
