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

[µo°Ý] Åã¥Ü³¡¤À¶µ¥Ø-¼Ï¯Ã¤ÀªRªí

[µo°Ý] Åã¥Ü³¡¤À¶µ¥Ø-¼Ï¯Ã¤ÀªRªí

  1. Sub Åã¥Ü³¡¥÷¶µ¥Ø()
  2.     Application.ScreenUpdating = False
  3.     Dim pt As PivotTable, pi As PivotItem
  4.     Set pt = Sheets("¾P°âData").PivotTables("¼Ï¯Ã¤ÀªRªí2")
  5.     On Error Resume Next
  6.      For Each pi In pt.PivotFields("³W  ®æ").PivotItems
  7.                     pi.Visible = False
  8.         Next pi
  9.     For i = 1 To 111
  10.     A = Sheets("Sheet1").Cells(i, 1).Value
  11.     With ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí2").PivotFields("³W  ®æ")
  12.         .PivotItems("& A &").Visible = True
  13.     End With
  14.     Next
  15.    
  16. 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¬O­n±N1000¦h¦U¶µ¥Ø¥u¿ï¥X§Ú­n¬Ýªº¶µ¥Ø´N¦n
¥i¬O¤W­±³o¤@¬q¦n¹³¤£·|°õ¦æ¥X¨Ó
¬O¤£¬O§Ú¼gªº¤è¦¡¦³°ÝÃD
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD