返回列表 上一主題 發帖

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

gracyei

帖子
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)
收藏 分享

chen_cook

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

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

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
3#
發表於 2012-7-12 10:53 | 只看該作者
回復 1# gracyei

下述程式碼在執行時~ 可避免重覆執行時產生錯誤~
供你參考~
  1. Sub EX()

  3. Dim Sh As Worksheet

  5. For Each Sh In Sheets
  6.     If Sh.Name <> "分頁名稱" Then
  7.     Sh.Name = Sheet1.Range("A" & I + 1)
  8.     I = I + 1
  9.     End If
  10. Next
  11. End Sub
複製代碼
學習才能提升自己

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題