- ©«¤l
- 586
- ¥DÃD
- 123
- ºëµØ
- 0
- ¿n¤À
- 763
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-16
- ³Ì«áµn¿ý
- 2017-3-14
|
¤U±ªºµ{¦¡½X§ä¤F¦n¤[¤~¬Ý¨ì
¤£¹L¦³¤@Ó°ÝÃD
¦pªG§ÚnÅã¥Üªº¸ê®Æ¦³¦n´XÓ
¥i¥H¥Î¤°»ò¤è¦¡?
Ä´¦p§ÚnÅã¥Üªº¶µ¥Ø¦b¤u§@ªí"¶µ¥Ø"¤¤¨º´XÓ- Sub dd()
- For i = 1 To ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("«È¤á²ºÙ").PivotItems.Count
- If ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("«È¤á²ºÙ").PivotItems(i) <> "¤¤Àô" Then
- ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("«È¤á²ºÙ").PivotItems(i).Visible = False
- End If
- Next
- End Sub
½Æ»s¥N½X
¼Ï¯Ã.rar (16.11 KB)
|
|