[發問] 如何知道activecell所在pivotetable的名稱?

mhl9mhl9

我activesheet上有幾個 pivotetable,activecell選在某個pivotetable里,如何可以知道這個pivotetable的名稱?
另外,我看到application下面有個 pivoteselection供選擇,是不是有用呢?

mhl9mhl9

回復 5# Hsieh

你的方法可行的,雖然不太明白tablerang1的意義,但還是學到有這樣東西可使用,thanks.

mhl9mhl9

回復 3# stillfish00


    thank you
我第一時間用你講的方法,但把它寫成 pivotetable(多了個e),失敗了就誤認為不行.
謝謝

Hsieh

回復 1# mhl9mhl9

1. Sub ex()
   
2. Dim Pt As PivotTable
   
3. For Each Pt In ActiveSheet.PivotTables
   
4. Set Rng = Pt.TableRange1
   
5.    If Not Intersect(ActiveCell, Rng) Is Nothing Then MsgBox Pt.Name
   
6. Next
   
7. End Sub

複製代碼

mhl9mhl9

回復 2# zxcxz

問題是我無發確定某個pivottable是第幾個,不知道排位就無法在集合里取出你所要的table,因為想用vb對不同的表做設定,就有困難.

stillfish00

回復 1# mhl9mhl9
ActiveCell.PivotTable.Name

zxcxz

右點pivottable->pivottable options 名字在最頂部份

vba code:
Tablename = ActiveSheet.PivotTables(1).Name