返回上海时时乐
当前位置: 主页 > Excel教程 > Excel VBA教程 >

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

时间:2014-09-27 22:16来源:Office教程学习网 www.jjdlf.net编辑:麦田守望者

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


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

------分隔线----------------------------
标签(Tag):excel excel2007 excel2010 excel2013 excel2003 excel技巧 excel教程 excel实例教程
------分隔线----------------------------
推荐内容
猜你感兴趣
千禧彩票是真的吗 极速快乐十分 快乐赛车平台 pk10机器人 秒速时时彩 快乐赛车 秒速时时彩 吉林快3 易发彩注册 秒速时时彩