Excel for VBA：对象枚举循环For each
发布时间：2022-01-28 16:41:30
标签：工作,按钮,改名,童鞋,Excel函数
分享下所学的VBA。下面代码很适合财务童鞋做报表。
首先假定你的工作簿打开就是3个工作表的打开Excel，按alt+F11，进入编辑器，然后插入模块。
框里输入
Sub addchange() ‘添加9个然后统一改名为1-12月
Worksheets.Add Count:=9 ‘添加12-3个工作表，对象.方法（setting）
For Each tsheet In ActiveWorkbook.Worksheets’tsheet代表this sheet
i = i + 1’i从0开始
tsheet.Name = i & "月"’改名工作表的名称。
Next
End Sub
最后效果
点绿色按钮运行的。
是不是很神奇，一点按钮就实现了3个表变成12个，还改名1-12月。
肯定很多财务童鞋说大爱呀，哈哈。
0
投稿猜你喜欢
- WPS表格怎么改变表格线颜色，我们在设置WPS表格的时候，为了上表格更加清楚，通常会修改他们的表格线的颜色，来区分表格之间的不同。下面就让我
在WPS表格中为了方便规范数据的录入，我们经常会在相应的单元格中提供下拉列表以便选择录入。但如果需要建立多级下拉列表，那又该如何处理呢?在某- 有时候系统经常会更新一些不好用的驱动，很多小伙伴在升级到Win11系统在之后还不清楚如何禁止更新驱动，那么要遇到这种问题应该怎么办呢？下面就
- Win7以后的版本都可以直接升级Win10。Win7、Win8、Win8.1升级Win10的过程是差不多的，主要的区别在于Win7、Win8
- 对于已经共享给团队外其他人的团队文档，如何取消文档的共享呢？（1）打开文档后，点击文档右上角的「分享」按钮，在弹窗里点击文档权限设置图标，再
- Excel中经常需要使用到true函数判断对错，true函数具体该如何使用呢?下面是小编带来的关于excel中的true函数使用教程，希望阅
- PPT中怎么让一个字的偏旁部首改颜色？有用户想要给幻灯片里的主题文字的偏旁换个颜色，那么应该如何操作呢？其实方法很简单，下面小编就为大家演示
- 由于Win8应用只能默认安装在系统盘，所以日积月累的数据量也会越来越大，加上安装的应用也越来越多，系统盘的空间也就会越来越小。这时候我们就会
- wps2019表格中怎么插入附件？这篇文章主要介绍了wps2019表格中插入附件教程,需要的朋友可以参考下wps2019表格中如何插入一个附
- 欢迎观看 Photoshop 入门教程，您将通过这些教程学习 Photoshop 的基本工具和使用技巧。小编将为您介绍 Photoshop
- 幻灯片制作过程中免不了一些重复的步骤，遇到此类问题时，你是如何解决的呢？其实啊，工具还是蛮重要的，一把“刷子”和一块“板子”，对提高制作效率
- 在PPT幻灯片中，我们会遇到需要把局部一张图片放大，但是实现图片局部放大效果，但靠ppt技巧比较难，这个时候，如果我们借助Articulat
- 用户在电脑中玩传送门2游戏的时候，在联机游戏的时候，却遇到了闪退的情况，影响了正常游戏，该如何处理呢，一起看看吧可能大家也会遇到这种问题，在
- 学习Excel的时候大家在表格里面输入文字时，由于单元格太小不能全部将文字显示出来，这下怎么办呢？下面小编就为大家介绍excel中文字如何换
- 对于一个办公族来说经常对文档中的文字进行整理和排版是家常便饭，几乎每天都在做这些事情，而这些办公族最需要的就是将手头的工作更加智能化，更加简
- 360浏览器不能播放视频怎么办？有一些朋友会遇到这个问题，大家想知道自己为什么浏览视频网站不能播放视频，今天系统之家小编给朋友们讲讲这个问题
- 在使用电脑的过程中，不少朋友都遇到过蓝屏的现象，像小编就遇到了systemserviceexception蓝屏终止代码，那么遇到这种蓝屏代码
- Win7系统无法识别unknown device驱动怎么办？一位用户在使用Win7系统的过程中，遇到设备驱动无法正常安装的情况，然后打开设备
- 微软公司面向Windows10用户发布了最新的KB5014023更新补丁。KB5014023补丁适用于21H2、21H1和Windows S
- 有限元分析是solidworks软件中非常强大的一个功能，如果要使用好这个功能必须结合自身的很多知识才能运用好，有限元分析不同于绘图，它需要
