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

[µo°Ý] ¼Ï¯Ã¤ÀªRªíVBA~ActiveSheet.PivotTables¬ÛÃö°ÝÃD

[µo°Ý] ¼Ï¯Ã¤ÀªRªíVBA~ActiveSheet.PivotTables¬ÛÃö°ÝÃD

With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("bh")
        .PivotItems("GF5587").Visible = False
        .PivotItems("GF5589").Visible = False
        .PivotItems("GF5590").Visible = False
        .PivotItems("GF5591").Visible = True
        .PivotItems("GF5592").Visible = False
    End With

¥H¤W¬O¼Ï¯Ã¤ÀªRªíbhÄæ¦ì¡A±N¤@¨Ç¸ê®ÆÁôÂð_¨Ó¡A¥uÅã¥Ü¦Û¤w·QÅã¥Üªº³¡¤À¡C
¦]¬°bhÄæ¦ìªº¸ê®Æ¬O«Ü¦hºØªº­È~§ÚÁ`¤£¯à1­Ó1­Ó¼g        .PivotItems("GF5587").Visible = False
¦³¨S¦³vba¯à§@¨ì¡A´N¬ObhÄæ¦ì©Ò¦³ªº¸ê®Æ³£False¡AµM«á¦b°õ¦æ¦Û¤w·Q­nªº¸ê®Æ¬°true
¦]¬°¸ê®Æ¬OÅܼơAÅܦ¨­n¥ý§ó·s¡AµM«á¦A±N©Ò¦³ªº¸ê®ÆFalse¦A±N»Ý­nªº¸ê®ÆTrue

³o¤@­Ó
ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("bh").count ¶Ü?

¥Îfor°j°é¸Õ¸Õ¬Ý
for i = 1 to.....
.PivotItems(i).Visible = False
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD