[µo°Ý] ¦p¦óª¾¹Dactivecell©Ò¦bpivotetableªº¦WºÙ?

mhl9mhl9

§Úactivesheet¤W¦³´X­Ó pivotetable,activecell¿ï¦b¬Y­Ópivotetable¨½,¦p¦ó¥i¥Hª¾¹D³o­Ópivotetableªº¦WºÙ?
¥t¥~,§Ú¬Ý¨ìapplication¤U­±¦³­Ó pivoteselection¨Ñ¿ï¾Ü,¬O¤£¬O¦³¥Î©O?

zxcxz

¥kÂIpivottable->pivottable options ¦W¦r¦b³Ì³»³¡¥÷

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

stillfish00

¦^´_ 1# mhl9mhl9
ActiveCell.PivotTable.Name

mhl9mhl9

¦^´_ 2# zxcxz

°ÝÃD¬O§ÚµLµo½T©w¬Y­Ópivottable¬O²Ä´X­Ó,¤£ª¾¹D±Æ¦ì´NµLªk¦b¶°¦X¨½¨ú¥X§A©Ò­nªºtable,¦]¬°·Q¥Îvb¹ï¤£¦Pªºªí°µ³]©w,´N¦³§xÃø.

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

½Æ»s¥N½X

mhl9mhl9

¦^´_ 3# stillfish00


    thank you
§Ú²Ä¤@®É¶¡¥Î§AÁ¿ªº¤èªk,¦ý§â¥¦¼g¦¨ pivotetable(¦h¤F­Óe),¥¢±Ñ¤F´N»~»{¬°¤£¦æ.
ÁÂÁÂ

mhl9mhl9

¦^´_ 5# Hsieh

§Aªº¤èªk¥i¦æªº,ÁöµM¤£¤Ó©ú¥Õtablerang1ªº·N¸q,¦ýÁÙ¬O¾Ç¨ì¦³³o¼ËªF¦è¥i¨Ï¥Î,thanks.