ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

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

TOP

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

TOP

¦^´_ 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Ãø.
lmh

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# stillfish00


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

TOP

¦^´_ 5# Hsieh

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

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD