帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-6-4 17:35 | 只看該作者

[發問] 抓取參照頁面的 sheet 名稱

本帖最後由 Genie 於 2012-6-4 17:42 編輯

請問有沒有辦法在儲存格中顯示我是從哪個 sheet 抓取資料的 sheet 名稱？

因為我有一個檔案　每個 sheet 都長得很像
有時候會有點難判斷是從哪一個 sheet 抓取的資料
所以想要新增一欄來顯示我是從哪個 sheet 抓取的

附上簡單的範例
希望能幫幫忙
謝謝～

範例.zip (2.95 KB)

樓主熱帖

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-4 17:44 | 只看該作者

回復 1# Genie

C2=IF(ISERROR(VLOOKUP(A2,'T7'!$A:$B,2,0)),"P123","T7")

TOP

Genie

中學生 Rank: 2

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

3^#

發表於 2012-6-5 08:11 | 只看該作者

請問我若有六個 sheet 的話
這樣在 B 欄就要用五個 IF
在 C 欄又用五個 IF 去找出是對應到哪個 sheet
這樣當資料量一多時　整個 excel 跑起來的速度是很慢的
所以想問有沒有辦法在 C 欄不要用 IF 的情況下去找出所對應的 sheet？

TOP

chchang76

小學生 Rank: 1

帖子: 13
主題: 2
精華: 0
積分: 22
點名: 0
作業系統: window XP
軟體版本: XP
閱讀權限: 10
性別: 男
註冊時間: 2012-6-4
最後登錄: 2012-8-9

4^#

發表於 2012-6-5 08:40 | 只看該作者

可能需要使用VBA來撰寫回饋欄位資訊。這可能需要一點時間去撰寫。(小弟功力有限

)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 239
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-4

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-6-5 08:54 | 只看該作者

回復 3# Genie

自定義函數

Function LocationName(Fn As Range, Rng As Range, item_name As Integer) As String
Dim A As Range
For Each sh In Sheets
With sh
If sh.Name <> ActiveSheet.Name Then
Set A = .Range(Rng.Address(, , xlA1)).Find(Fn)
If Not A Is Nothing Then
Select Case item_name 'item_name=0傳回工作表名稱,item_name=1傳回儲存格位址
Case 0
LocationName = .Name
Case 1
LocationName = A.AddressLocal
End Select
Set A = Nothing
Exit For
End If
End If
End With
Next
End Function

複製代碼

SheetName.zip (10.27 KB)

學海無涯_不恥下問

TOP

Genie

中學生 Rank: 2

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

6^#

發表於 2012-6-5 10:57 | 只看該作者

不好意思　設定 A 的這裡我看不太懂　不知道可不可以解釋一下？
謝謝～
Set A = .Range(Rng.Address(, , xlA1)).Find(Fn)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 239
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-4

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2012-6-5 11:28 | 只看該作者

回復 6# Genie

找到a欄對應的儲存格

學海無涯_不恥下問

TOP

Genie

中學生 Rank: 2

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

8^#

發表於 2012-6-5 14:08 | 只看該作者

本帖最後由 Genie 於 2012-6-5 14:09 編輯

我套用到其它的 excel 檔案
但是只會帶出第一個 sheet 的 sheet 名稱
其它的 sheet 名稱都顯示為空白
這是否是因為每個 sheet 的欄位都不一樣的關係？
（有的 sheet 是從 A 欄開始執行 vlookup，有的是從 B 欄開始執行 vlookup）

另外
在 LocationName 函數的第二個欄位
若是選取整欄 $B：$B 顯示不會有問題
但若是有指定範圍 $B$2：$B$50　顯示出來的會是空白

請問這該如何調整呢？
謝謝～

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 239
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-4

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

9^#

發表於 2012-6-5 16:29 | 只看該作者

回復 8# Genie

此函數是在範圍中找到你要的資料後，傳回該資料的工作表名稱或是儲存格位址
所以，=LocationName(A2,$A$1:$A$100,0)
一樣可以傳回第一個找到資料的工作表
假如欄位不確定在A攔，可改為=LocationName(A2,$A$1:$B$100,0)
只要範圍內有出現該item就能傳回工作表名稱才對
如果仍然無法達到你的需求，請上傳你出錯的檔案並說明你的需求

學海無涯_不恥下問

TOP

Genie

中學生 Rank: 2

帖子: 113
主題: 31
精華: 0
積分: 149
點名: 0
作業系統: xp & vista
軟體版本: 2003 & 2007
閱讀權限: 20
註冊時間: 2010-12-29
最後登錄: 2020-5-22

10^#

發表於 2012-6-5 17:10 | 只看該作者

在這個 excel 檔會抓不到 sheet 的名稱

範例.zip (15.2 KB)

TOP