ªð¦^¦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¥¿±`°õ¦æ

¦^´_ 2# Joforn


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

TOP

        ÀR«ä¦Û¦b : ¬°¤H³B¥@­n¤p¤ß²Ó¤ß¡A¦ý¤£­n¡u¤p¤ß²´¡v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD