Board logo

標題: [發問] 如何知道activecell所在pivotetable的名稱? [打印本頁]
作者: mhl9mhl9    時間: 2014-2-9 17:08     標題: 如何知道activecell所在pivotetable的名稱?

我activesheet上有幾個 pivotetable,activecell選在某個pivotetable里,如何可以知道這個pivotetable的名稱?
另外,我看到application下面有個 pivoteselection供選擇,是不是有用呢?
作者: zxcxz    時間: 2014-2-9 17:48

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

vba code:
Tablename = ActiveSheet.PivotTables(1).Name
作者: stillfish00    時間: 2014-2-9 18:37

回復 1# mhl9mhl9
ActiveCell.PivotTable.Name
作者: mhl9mhl9    時間: 2014-2-9 18:44

回復 2# zxcxz

問題是我無發確定某個pivottable是第幾個,不知道排位就無法在集合里取出你所要的table,因為想用vb對不同的表做設定,就有困難.
作者: Hsieh    時間: 2014-2-9 18:51

回復 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    時間: 2014-2-10 10:22

回復 3# stillfish00


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

回復 5# Hsieh

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



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