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

[µo°Ý] ¼Ï¯Ã¦p¦ó¥uÅã¥Ü¯S®í¶µ¥Ø

[µo°Ý] ¼Ï¯Ã¦p¦ó¥uÅã¥Ü¯S®í¶µ¥Ø

¤U­±ªºµ{¦¡½X§ä¤F¦n¤[¤~¬Ý¨ì
¤£¹L¦³¤@­Ó°ÝÃD
¦pªG§Ú­nÅã¥Üªº¸ê®Æ¦³¦n´X­Ó
¥i¥H¥Î¤°»ò¤è¦¡?
Ä´¦p§Ú­nÅã¥Üªº¶µ¥Ø¦b¤u§@ªí"¶µ¥Ø"¤¤¨º´X­Ó
  1. Sub dd()
  2. For i = 1 To ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("«È¤á²ºÙ").PivotItems.Count
  3.     If ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("«È¤á²ºÙ").PivotItems(i) <> "¤¤Àô" Then
  4.     ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("«È¤á²ºÙ").PivotItems(i).Visible = False
  5.     End If
  6.     Next
  7. End Sub
½Æ»s¥N½X
¼Ï¯Ã.rar (16.11 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD