¼Ï¯Ãªíµ{¦¡°ÝÃD

enoch

µ{¦¡¬ÛÀˬd¼Ï¯Ãªí¤ºªº¸ê®Æ¤º®e
¦ý¹J¨ì¤º®e¬OªÅ¥Õ®É´N·|¥X²{«¬ºA¤£²Å¦X
½Ð°ÝÀ³¦p¦ó­×§ï©O?

Dim Pvttable As PivotTable
Dim pvtitem As PivotItem
Dim Field_Name As String

If Pvttable.PivotFields(Field_Name).PivotItems(pvtitem.Name).Visible = True Then

¥t¥~­Y·Q¨ú®ø¤§«e©Ò¦³ªº¿z¿ï,
°£¤F¨Ï¥ÎFor Each......Next¤§¥~
¦³¨ä¥¦§ó¦n¤èªk¶Ü ?
½Ð¦h¦h«ü±Ð

    For Each pvtitem In Pvttable.PivotFields(Field_Name).PivotItems
        Pvttable.PivotFields(Field_Name).PivotItems(pvtitem.Name).Visible = True
    Next