Excel for VBA：对象枚举循环For each

Excel for VBA：对象枚举循环For each

分享下所学的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月。

肯定很多财务童鞋说大爱呀，哈哈。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。