活頁簿多個分頁更名 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 活頁簿多個分頁更名

返回列表下一主題上一主題發帖

[發問] 活頁簿多個分頁更名

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

1^# 跳轉到 »

發表於 2012-7-12 10:53 | 顯示全部帖子

回復 1# gracyei

下述程式碼在執行時~ 可避免重覆執行時產生錯誤~
供你參考~

Sub EX()
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name <> "分頁名稱" Then
Sh.Name = Sheet1.Range("A" & I + 1)
I = I + 1
End If
Next
End Sub

複製代碼

學習才能提升自己

靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。

返回列表下一主題上一主題