一段简单的VBA代码,让你自如操作Excel!
抛砖引玉的场景需求: 批量创建名称为1到12月的工作表。
![92478c45c70af7197ef8d260eeeeeed1.gif](https://i-blog.csdnimg.cn/blog_migrate/cee5a3eb9ca182643cc1caa90f329b63.gif)
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 批量创建1至12月份的工作表()Dim sht As WorksheetFor x = 1 To 12 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellowNextSet sht = NothingEnd Sub
运行结果显示月份的顺序倒叙了, 怎么样按照1~12顺序显示呢?
![22bae26154d770acb0bcdbf9889620f6.gif](https://i-blog.csdnimg.cn/blog_migrate/a3de2cbd980a71dcb2c6f551601ac380.gif)
脑中立马想出两种方法:
第一种是:
将
Set sht = Worksheets.Add
更改为
Set sht = Worksheets.Add(After:=Sheets(Sheets.Count))
Sub 批量创建1至12月份的工作表()Dim sht As WorksheetFor x = 1 To 12 Set sht = Worksheets.Add(After:=Sheets(Sheets.Count)) sht.Name = x & "月份" sht.Tab.Color = vbYellowNextSet sht = NothingEnd Sub
第二种是:
将
For x = 1 To 12
更改为
For x = 12 To 1 Step -1
Sub 批量创建1至12月份的工作表()Dim sht As WorksheetFor x = 12 To 1 Step -1 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellowNextSet sht = NothingEnd Sub
动手试一试,屏幕前的你, 复制代码运行下吧~~!
更多Excel VBA编程知识(职场牛人的必备秘技),可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件,一款嵌入进Excel Ribbon界面,打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址可私信注明邮箱或通过如下链接查询:
Excel 插件:神奇的VBA-升级
![b1836181bd231e6d06d855f0171d79bf.png](https://i-blog.csdnimg.cn/blog_migrate/8b2f70eb3ad112646ecf6f5fc493dbdc.jpeg)
《神奇的VBA》选项卡样式
![c1e0a5d20ffde40728d4492d92e3a513.gif](https://i-blog.csdnimg.cn/blog_migrate/0cae74306c8e39fd0c9bc8b83f8ca91f.gif)