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

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

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

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-7-12 00:25 | 只看該作者

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

請教各位高手大大,
小弟有一個活頁簿內有數十個分頁,列出一個名稱列表後,要如何依名稱列表將分頁名稱更改成列表上的名稱??

分頁更名.rar (1.57 KB)

收藏

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

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

3^#

發表於 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

複製代碼

學習才能提升自己

中學生 Rank: 2

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 332
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

2^#

發表於 2012-7-12 04:53 | 只看該作者

回復 1# gracyei

大概的作法,看的懂吧!!!

For i= 1 To Worksheets("分頁名稱").[A65535].End(xlUp).Row
Sheets("Sheet" & i).Name = Worksheets("分頁名稱").Cells(i, 1).Value
Next i

靜思自在 : 受人點水之恩，須當湧泉以報。

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