今天介绍一个具体的VB钽吟篑瑜A应用案例:在Excel中利用VBA生成12个工作表,并依次命名为1月-12月,最后将12月这个Sheet移动瘌豚胛瑗到最前面。这里涉及到利用VBA编程实现新建工作表和移动工作表的经典应用。
工具/原料
Office2016
方法/步骤
1、在Excel中利用VBA生成12个工作表,并依次命名为1月-12月,并且12月的工作表放到最前面。
2、在Excel中按下Alt+F11,打开VBA编辑界面,如下图所示:
3、输入代码,如下图所示:Sub鱼木混猪()Fori=1To12掳姗浚瑙Worksheets.Addafter:=Worksheets(Worksheets.Count)Ac墉掠载牿tiveSheet.Name=i&"月"NextiWorksheets("12月").Movebefore:=Worksheets(1)EndSub
4、点击“运行代码”按钮,如下图所示:
5、关闭VBA编辑界面,返回Excel中,就可以看到结果如下图所示: