麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請教~工作表命名 [打印本頁]

作者: linsurvey2005 時間: 2012-1-5 12:11 標題: 請教~工作表命名

請問前輩
工作表有"N"個,要讓每個工作表命名為"A1"的名稱,怎麼使用,有巨集嗎?

作者: jarodz 時間: 2012-1-5 12:20

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

作者: GBKEE 時間: 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

複製代碼

作者: linsurvey2005 時間: 2012-1-5 13:45

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

作者: GBKEE 時間: 2012-1-5 14:47

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

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

作者: linsurvey2005 時間: 2012-1-5 16:49

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

作者: GBKEE 時間: 2012-1-5 16:55

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

作者: linsurvey2005 時間: 2012-1-5 18:56

回復 7# GBKEE

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

作者: GBKEE 時間: 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

複製代碼

作者: linsurvey2005 時間: 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
看起來簡單不過前輩的邏輯好強
感謝有三

作者: jarodz 時間: 2012-1-6 01:26

<> 是不等於

作者: GBKEE 時間: 2012-1-6 07:53

回復 10# linsurvey2005
For Each Sh In Sheets '依序裡每一個工作表
If Sh.Name <> "整理表" Then '當工作表名稱不是"整理表" 才執行的

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)