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

¼Ï¯Ã¤ÀªRªíªº¿z¿ï-¦Û°Ê¥þ¿ï

¼Ï¯Ã¤ÀªRªíªº¿z¿ï-¦Û°Ê¥þ¿ï

¸ß°Ý¤@¤U ¦bsheet¸Ì­± ¤w¦³¤@­Ó¬J©wªº¼Ï¯Ã¤ÀªRªí  
¤]¦b¼Ï¯Ã¤ÀªRªí¿ï¶µ¤Ä¿ï¤FÀɮ׶}±Ò®É¦Û°Ê§ó·s¡A¦ý§Ú³£¬O¨Ï¥Î¤º«Ø¸ê®Æ­«·s¾ã²z´N¤£»Ý­«·s¶}±ÒÀÉ®×

¥Ø«eµo²{ªº¬O ¨C¦¸­«·s¾ã²z ¸Ì­±ªº¸ê®Æ¦³¨Ç¹w³]¬O¤£·|Åã¥Üªº »Ý­n¨ì¼Ï¯Ã¤ÀªR¤ºÂIÀ»¥þ¿ï¤~·|¶]¥X
·Q»¡¦³¨S¦³»yªk¥i¥Hª½±µALL Visible True³o¼Ë!!


§Ú§Q¥Î¥¨¶°¿ý»s¨ì¤U­±ªº»yªk¡A¦ý¨Ã¤£¬O¨C¦¸¤º®e³£¤@¼Ë

With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí6").PivotFields("­·ÀI¦WºÙ")
        .PivotItems("1").Visible = True
        .PivotItems("a").Visible = True
        .PivotItems("c)").Visible = True
        .PivotItems("N").Visible = True
        .PivotItems("5").Visible = True
        .PivotItems("6").Visible = True
        .PivotItems("g").Visible = True
    End With

¥i¯à¤U¦¸ ¸Ì­±ªº­È·|Åܦ¨      .PivotItems("P").Visible = True  ¤§Ãþªº~ ³o¼Ë»yªk´N¨S¿ìªk¼g¦º

¨Ï¥Î     .PivotItems(*).Visible = True ©Î      .PivotItems("*").Visible = True  ¬ÒµLªk¥¿±`°õ¦æ

  1. Dim PivotItem As PivotItem
  2. For Each PivotItem In .PivotTables("¼Ï¯Ã¤ÀªRªí6").PivotFields("­·ÀI¦WºÙ").PivotItems
  3.   PivotItem.Visible = True
  4. Next PivotItem
½Æ»s¥N½X
¥@¬É¨º»ò¤j¡A¥i§Ú·Q¥h­þ¡H

TOP

¦^´_ 2# Joforn


    ¤£¦n·N«ä ¥L«ü¥X .PivotTables ¤£¥¿½Tªº¤Þ¥Î­C@@

TOP

[RangeÅܼÆ]¨S¦³°µ°ÊºA³B²z

offset(,,,,)¼g¦b©w¸q¦WºÙ¸ÌÀY
//§@¥]¸Ë,¼Ï¯Ã¤ÀªRªí  ¦A¤Þ¥Î,¥Î¤£µÛvba

TOP

§Ú­è­è¥¿¦n»Ý­nJoforn¤j¤j´£¨Ñªº¤èªk
¸ÕµÛ±N.PivotTables("¼Ï¯Ã¤ÀªRªí6")§ï¬° ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí6")
´N¥i¥H¤F¨Ï¥Î¤F
Rogersg

TOP

§Ú¨Ï¥Î¤F¤W­zªº»yªk¡A¦b¤W­Ó¤ë¡]¥|¤ë¡^ªºÀɮרϥΨS¦³°ÝÃD
²{¦b¤­¤ë¥÷¡A§Úªu¥Î­ì¥»ÀɮסAª½±µ½Æ»s§ïÀɦW¡A¤º®e§ó·s¦¨¤­¤ëªº¸ê®Æ
°õ¦æVBA¡A´N¥X²{¿ù»~°T®§¡G°õ¦æ¶¥¬q¿ù»~ 1004¡AµLªk³]©wºØÃþPivotItemªºVisibleÄÝ©Ê
PivotItem.Visible = True <--³o¦æ¥X¿ù
§Ú¦b°»¿ù¼Ò¦¡¤U¡A¹«¼Ð¦bPivotItem¦r¦ê¤W®É¡AÅã¥ÜPivotItem ¡× "4/1/2022"
½Ð°Ý·|¬O¤°»ò°ÝÃD¡H
-----------------------------------------------------------
Dim PivotItem As PivotItem
For Each PivotItem In ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí6").PivotFields("­·ÀI¦WºÙ").PivotItems
  PivotItem.Visible = True
Next PivotItem

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD