- ©«¤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
|
[µo°Ý] Åã¥Ü³¡¤À¶µ¥Ø-¼Ï¯Ã¤ÀªRªí
- Sub Åã¥Ü³¡¥÷¶µ¥Ø()
- Application.ScreenUpdating = False
- Dim pt As PivotTable, pi As PivotItem
- Set pt = Sheets("¾P°âData").PivotTables("¼Ï¯Ã¤ÀªRªí2")
- On Error Resume Next
- For Each pi In pt.PivotFields("³W ®æ").PivotItems
- pi.Visible = False
- Next pi
- For i = 1 To 111
- A = Sheets("Sheet1").Cells(i, 1).Value
- With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí2").PivotFields("³W ®æ")
- .PivotItems("& A &").Visible = True
- End With
- Next
-
- End Sub
½Æ»s¥N½X For i = 1 To 111
A = Sheets("Sheet1").Cells(i, 1).Value
With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí2").PivotFields("³W ®æ")
.PivotItems("& A &").Visible = True
End With
Next
½Ð°Ý³o³¡¥÷n«ç»ò§ï?
§Úªº¾ã¦Uºc·Q¬On±N1000¦h¦U¶µ¥Ø¥u¿ï¥X§Ún¬Ýªº¶µ¥Ø´N¦n
¥i¬O¤W±³o¤@¬q¦n¹³¤£·|°õ¦æ¥X¨Ó
¬O¤£¬O§Ú¼gªº¤è¦¡¦³°ÝÃD |
|