Excel for VBA:对象枚举循环For each
时间:2022-01-28 16:41:30
分享下所学的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月。
肯定很多财务童鞋说大爱呀,哈哈。
标签:工作,按钮,改名,童鞋,Excel函数
0
投稿
猜你喜欢
Excel指定位置的单元格引用的OFFSET函数使用基础教程
2023-09-07 04:10:11
excel表格内的数字如何设定数值范围
2023-04-18 21:40:40
excel表格单元格保护设置方法
2023-01-11 18:11:10
在Word文档中如何插入脚注呢?
2022-01-17 20:29:35
Excel使用TEXT函数将数值转换为文本
2022-08-01 19:23:00
Excel怎么合并相同项并累加?
2022-10-06 07:48:06
PPT2007将Excel图表转为图片
2023-08-01 14:15:21
用快捷键在Excel工作表中横向翻页
2022-12-21 20:32:26
Word 2016中可用的自动功能!
2022-09-04 06:20:43
Win10电脑开机转圈圈时间很久怎么办?教你一招Win10电脑快速开机
2023-11-23 14:26:16
doc格式怎么转换成word?
2023-11-07 00:34:12
Excel高级下拉菜单,具有关联性
2023-11-10 00:07:55
辛辛苦苦做的word文档,怎样防止别人剽窃?
2023-01-10 10:27:56
CTRL+G(定位)在Excel中的用法大全
2023-08-18 11:28:47
win10系统如何启用相机?win10笔记本打开摄像头拍照的方法
2023-08-04 07:15:18
Excel常见问题以及解决方法
2023-06-14 02:45:38
Excel快速访问工具栏中怎么添加求和?
2022-10-14 14:34:12
Lookup函数使用介绍
2022-02-22 20:04:41
Word中组织结构图模板怎么做
2022-03-19 19:04:04
Word怎样输入数学公式
2023-08-23 13:30:51