[發問] 請教~工作表命名

帖子: 32
主題: 7
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: 2011
閱讀權限: 20
性別: 男
註冊時間: 2011-12-13
最後登錄: 2014-7-8

2^#

發表於 2012-1-5 12:20 | 只看該作者

同一個workbook下的sheet應該是不能取一樣的名字，
用worksheets(1).name = XXXX 就可以改sheet 的名字了。

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-1-5 12:32 | 只看該作者

回復 2# jarodz
同一個workbook下的sheet應該是不能取一樣的名字，這是對的

Sub Ex()
Dim E
For Each E In Sheets
E.Name = E.Cells(1).Text
Next
End Sub

複製代碼

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

4^#

發表於 2012-1-5 13:45 | 只看該作者

同一個workbook下的sheet應該是不能取一樣的名字(多謝前輩指正)
我更正一下,一個workbook裡面已經有多個sheets,想把每個sheets的名稱,命為"B25"的儲存格
要每個sheets更改名稱快昏倒了~拜託前輩了
GBKEE 前輩好妳的方法會卡在E.Name = E.Cells(1).Text
我使用的是Execl 2002版

開心學習,學習很開心

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-1-5 14:47 | 只看該作者

本帖最後由 GBKEE 於 2012-1-5 14:49 編輯

回復 4# linsurvey2005
Cells(1)就是 A1 如有一個A1 沒有資料在那裏就會有錯誤
Cells(1) 可成 RANGE("B25")

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

6^#

發表於 2012-1-5 16:49 | 只看該作者

GBKEE 前輩好感激你
另外想把每個sheets裡面的"I20"儲存格的資料
放在目前工作表裡面A1 A2 A3..... 一直排序可以嗎?

開心學習,學習很開心

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2012-1-5 16:55 | 只看該作者

回復 6# linsurvey2005
不太懂,上傳檔案看看

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

8^#

發表於 2012-1-5 18:56 | 只看該作者

回復 7# GBKEE

前輩好,檔案裡面有一個工作表名稱:"整理表"
想把資料排序在一起~可以嗎?

更改工作表.rar (18.81 KB)

開心學習,學習很開心

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2012-1-5 20:30 | 只看該作者

回復 8# linsurvey2005

Option Explicit
Sub Ex()
Dim Sh As Worksheet
For Each Sh In Sheets
If Sh.Name <> "整理表" Then
With Sheets("整理表").Cells(Rows.Count, "a").End(xlUp).Offset(1)
.Cells(1) = Sh.Name
.Cells(1, 2) = Sh.[i38] ' 6# 是I20 附檔是I38 自己選
End With
End If
Next
End Sub

複製代碼

帖子: 84
主題: 15
精華: 0
積分: 123
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 台南市
註冊時間: 2011-5-16
最後登錄: 2022-9-17

10^#

發表於 2012-1-5 22:50 | 只看該作者

Option Explicit
Sub Ex()
Dim Sh As Worksheet
For Each Sh In Sheets
      If Sh.Name <> "整理表" Then '這行是說找到sheets整理表才執行嗎?
         With Sheets("整理表").Cells(Rows.Count, "a").End(xlUp).Offset(1)
            .Cells(1) = Sh.Name
            .Cells(1, 2) = Sh.[i38]  ' 6# 是I20  附檔是I38  自己選直接中跨號也可以喔
         End With
      End If
Next
End Sub
看起來簡單不過前輩的邏輯好強
感謝有三

開心學習,學習很開心