tft每日頭條

 > 職場

 > excelvba循環代碼大全

excelvba循環代碼大全

職場 更新时间:2024-06-16 10:42:01

一段簡單的VBA代碼,讓你自如操作Excel!

抛磚引玉的場景需求: 批量創建名稱為1到12月的工作表。

excelvba循環代碼大全(一小段ExcelVBA代碼005快速創建多個指定名稱的工作表)1

代碼示例

在标準模塊中加入如下代碼即可實現上面的演示功能。

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順序顯示呢?

excelvba循環代碼大全(一小段ExcelVBA代碼005快速創建多個指定名稱的工作表)2

腦中立馬想出兩種方法:

第一種是:

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-升級

excelvba循環代碼大全(一小段ExcelVBA代碼005快速創建多個指定名稱的工作表)3

《神奇的VBA》選項卡樣式

excelvba循環代碼大全(一小段ExcelVBA代碼005快速創建多個指定名稱的工作表)4

,

更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!

查看全部

相关職場资讯推荐

热门職場资讯推荐

网友关注

Copyright 2023-2024 - www.tftnews.com All Rights Reserved