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

Genie

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

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

附上簡單的範例
希望能幫幫忙
謝謝～
範例.zip (2.95 KB)

下載次數: 6

2012-6-4 17:35

Genie

不好意思　我今天在使用上又出現了一些問題
就是 excel 檔案中的 P12/ P3/ WT 是從網頁上下載的資料
為什麼當我更新完 P12/ P3/ WT 的資料後
LocationName 的這個函數會顯示 #value!
然後必須再重新計算儲存格後才會顯示出值呢？

Genie

謝謝 register313 的解說
是我誤會 Hsieh 超級板主的意思了
我一直以為第二個引數的範圍是 status 裡 ID 的範圍
沒想到是要尋找的 sheet 裡的 ID 範圍
謝謝解說！
也謝謝 Hsieh 超級板主！

register313

回復 10# Genie

C3=LocationName($B3,$A:$D,0)

Hsieh超版前面已說明過自定義函數LocationName的用法
關鍵在於第2個引數 除了Status工作表之外其餘工作表之儲存格範圍(欲尋找ID名稱之儲存格範圍)
=>P12,P3,WT工作表之ID欄位不一定位置,列數也不一定
   故可設定P12,P3,WT工作表之尋找之儲存格範圍為$A:$D
    只要在P12,P3,WT工作表$A:$D儲存格範圍內找到ID名稱,就傳回該工作表名稱

Genie

在這個 excel 檔會抓不到 sheet 的名稱
範例.zip (15.2 KB)

下載次數: 5

2012-6-5 17:10

Hsieh

回復 8# Genie

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

Genie

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

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

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

Hsieh

回復 6# Genie

找到a欄對應的儲存格

Genie

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

Hsieh

回復 3# Genie

自定義函數

1. Function LocationName(Fn As Range, Rng As Range, item_name As Integer) As String
   
2. Dim A As Range
   
3. For Each sh In Sheets
   
4.   With sh
   
5.   If sh.Name <> ActiveSheet.Name Then
   
6.   Set A = .Range(Rng.Address(, , xlA1)).Find(Fn)
   
7.   If Not A Is Nothing Then
   
8.     Select Case item_name 'item_name=0傳回工作表名稱,item_name=1傳回儲存格位址
   
9.     Case 0
   
10.     LocationName = .Name
    
11.     Case 1
    
12.     LocationName = A.AddressLocal
    
13.     End Select
    
14.     Set A = Nothing
    
15.     Exit For
    
16.   End If
    
17.   End If
    
18. End With
    
19. Next
    
20. End Function

複製代碼

SheetName.zip (10.27 KB)

下載次數: 9

2012-6-5 08:54