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

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

³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 : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD