在工作生活中,我们常由一个工作表复制生成多个工作表,并改变工作表上面标签名称、颜色水貔藻疽,以及工作表上面相应的内容。如果复制的工辑湃形傥作表较多,工作量也是相当大,费时费力,使用VBA程序可以将重复复杂的工作进行简化。
工具/原料
电脑
Excel2010
方法/步骤
1、打开工作表,点击【开发工具】,【VisualBasic】。
2、打开VBA工程窗口后,在左侧的“ThisWorkbook”上面单击右键,选择“插入”,“模块”。
3、在“模块1”的代码窗口里面输入以下VBA代码:SubAutoCopySheets猾诮沓靥()Dimi,jAsIntegeri=1j=1Fori=1To30媪青怍牙'循环30次,相当于复制30个工作表j=j+1Sheets("8.1").CopyAfter:=Sheets(Sheets.Count)'复制工作表《8.1》Sheets(Sheets.Count).Name="8"&"."&j'重命名工作表Sheets(Sheets.Count).Range("G4")="2017年8月"&j&"日"'单元格G4自动填写相应的日期IfjMod7=5OrjMod7=6Then'判断表格的日期是否是星期六或星期天,如果是,则改变工作表标签颜色WithActiveWorkbook.Sheets(Sheets.Count).Tab.Color=255'工作表标签改成红色.TintAndShade=0EndWithEndIfNextEndSub
4、按下F5件,或者点击VBA工程窗口上面的“运行”图标运行VBA程序,之后就会自动复制工作表,改变工作表名称,改变工作表标签颜色等。
5、VBA程序执行完成之后,将该模块移除,以免再次运行时已经存在该工作表名称而报错。(在移除之前,将VBA程序模块导出,或者将VBA程序复制到记事本、Word文档等,以便以后使用。)