excelvba循环代码大全(一小段ExcelVBA代码005快速创建多个指定名称的工作表)
一段简单的VBA代码,让你自如操作Excel!
抛砖引玉的场景需求: 批量创建名称为1到12月的工作表。
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 批量创建1至12月份的工作表() Dim sht As Worksheet For x = 1 To 12 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub
运行结果显示月份的顺序倒叙了, 怎么样按照1~12顺序显示呢?
脑中立马想出两种方法:
第一种是:
将
Set sht = Worksheets.Add
更改为
Set sht = Worksheets.Add(After:=Sheets(Sheets.Count))
Sub 批量创建1至12月份的工作表() Dim sht As Worksheet For x = 1 To 12 Set sht = Worksheets.Add(After:=Sheets(Sheets.Count)) sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub
第二种是:
将
For x = 1 To 12
更改为
For x = 12 To 1 Step -1
Sub 批量创建1至12月份的工作表() Dim sht As Worksheet For x = 12 To 1 Step -1 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub
动手试一试,屏幕前的你, 复制代码运行下吧~~!
更多Excel VBA编程知识(职场牛人的必备秘技),可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件,一款嵌入进Excel Ribbon界面,打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。
插件下载地址可私信注明邮箱或通过如下链接查询:
Excel 插件:神奇的VBA-升级
《神奇的VBA》选项卡样式
,
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com