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

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-1-5 12:11 | 顯示全部帖子

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

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

樓主熱帖

開心學習,學習很開心

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

2^#

發表於 2012-1-5 13:45 | 顯示全部帖子

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

開心學習,學習很開心

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

3^#

發表於 2012-1-5 16:49 | 顯示全部帖子

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

開心學習,學習很開心

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

4^#

發表於 2012-1-5 18:56 | 顯示全部帖子

回復 7# GBKEE

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

更改工作表.rar (18.81 KB)

開心學習,學習很開心

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

5^#

發表於 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
看起來簡單不過前輩的邏輯好強
感謝有三

開心學習,學習很開心