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

[µo°Ý] (¤w¸Ñ¨M)¼Ï¯Ã¶µ¥Ø¦p¦óÁôÂÃ?

[µo°Ý] (¤w¸Ñ¨M)¼Ï¯Ã¶µ¥Ø¦p¦óÁôÂÃ?

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-3-6 13:41 ½s¿è
  1. Sub Macro1()
  2.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("¤ë¥÷")
  3.         .PivotItems("200901").Visible = False
  4.         .PivotItems("200902").Visible = False
  5.         .PivotItems("200903").Visible = False
  6.         .PivotItems("200904").Visible = False
  7.         .PivotItems("200905").Visible = False
  8.         .PivotItems("200906").Visible = False
  9.         .PivotItems("200907").Visible = False
  10.         .PivotItems("200908").Visible = False
  11.         .PivotItems("200909").Visible = False
  12.         .PivotItems("200910").Visible = False
  13.         .PivotItems("200911").Visible = False
  14.         .PivotItems("200912").Visible = False
  15.         .PivotItems("201001").Visible = False
  16.         .PivotItems("201002").Visible = False
  17.         .PivotItems("201003").Visible = False
  18.         .PivotItems("201004").Visible = False
  19.         .PivotItems("201005").Visible = False
  20.         .PivotItems("201006").Visible = False
  21.         .PivotItems("201007").Visible = False
  22.         .PivotItems("201008").Visible = False
  23.         .PivotItems("201009").Visible = False
  24.         .PivotItems("201010").Visible = False
  25.         .PivotItems("201011").Visible = False
  26.         .PivotItems("201012").Visible = False
  27.     End With
  28. End Sub
½Æ»s¥N½X
¤W­±¬O¿ý»sªº
§Ú·Q­n§ï¦¨Ãþ¦ü¤U­±ªº
¤£ª¾¹DÁÙ®t¤°»ò
  1. Sub ddd()

  2.     For i = 2009 To 2010
  3.     For n = 1 To 12
  4.     x = i & Format("n", "00")
  5.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("¤ë¥÷")
  6.         .PivotItems("" & x & "").Visible = False
  7.     End With
  8.     Next
  9.     Next
  10.    
  11.    
  12.    
  13. End Sub
½Æ»s¥N½X
Book1.rar (34.47 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 1# freeffly

ÅܼƤ£¥[Âù¤Þ¸¹
  1. Sub ddd()
  2.     For i = 2009 To 2010
  3.     For n = 1 To 12
  4.     x = i & Format(n, "00")
  5.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("¤ë¥÷")
  6.         .PivotItems(x).Visible = False
  7.     End With
  8.     Next
  9.     Next
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# register313


    ÁÂÁ¤j¤j
   ¯u¬O§xÂZ§Ú¦n¤[¨S·Q¨ìµª®×³o»ò²³æ
   ¦A°Ý¤@¦U­è­è§ä¨ì¥t¤@ºØ¤è¦¡
   ¨C¦U¤ë·s¼W¸ê®ÆÁöµM±Æ§Ç«á·|©ñ¨ì«á­±(201202)
    ¥i¬O¦b¤U­±ªºµ{¦¡½X¦n¹³·|§â201202³o¦U¶µ¥Ø·í²Ä¤@¦U
   ¤£ª¾¹D³o¦³¨S¦³¤è¦¡¸Ñ¨M
  1.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("¤ë¥÷")
  2.     c = .PivotItems.Count
  3.     .PivotItems(c).Visible = False
  4.         For i = 1 To c - 13
  5.             .PivotItems(i).Visible = False
  6.         Next
  7.     End With
½Æ»s¥N½X
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ register313 ©ó 2012-3-5 15:08 ½s¿è

¦^´_ 3# freeffly
  1. Sub xx()
  2. With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("¤ë¥÷")
  3.     c = .PivotItems.Count
  4. '   .PivotItems(c).Visible = False     '¦h¤F³o¤@¦æ
  5.         For i = 1 To c-13
  6.         .PivotItems(i).Visible = False
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# register313


    ÁÂÁ¤j¤j
   ¥i¯à©üÀY¤F
   ³ºµM¨Sª`·N¨ì³o¤@¥y
   ÁÂÁÂ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD