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

¼Ï¯Ã¤ÀªRªíªº¿z¿ï-¦Û°Ê¥þ¿ï

§Ú¨Ï¥Î¤F¤W­zªº»yªk¡A¦b¤W­Ó¤ë¡]¥|¤ë¡^ªºÀɮרϥΨS¦³°ÝÃD
²{¦b¤­¤ë¥÷¡A§Úªu¥Î­ì¥»ÀɮסAª½±µ½Æ»s§ïÀɦW¡A¤º®e§ó·s¦¨¤­¤ëªº¸ê®Æ
°õ¦æVBA¡A´N¥X²{¿ù»~°T®§¡G°õ¦æ¶¥¬q¿ù»~ 1004¡AµLªk³]©wºØÃþPivotItemªºVisibleÄÝ©Ê
PivotItem.Visible = True <--³o¦æ¥X¿ù
§Ú¦b°»¿ù¼Ò¦¡¤U¡A¹«¼Ð¦bPivotItem¦r¦ê¤W®É¡AÅã¥ÜPivotItem ¡× "4/1/2022"
½Ð°Ý·|¬O¤°»ò°ÝÃD¡H
-----------------------------------------------------------
Dim PivotItem As PivotItem
For Each PivotItem In ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí6").PivotFields("­·ÀI¦WºÙ").PivotItems
  PivotItem.Visible = True
Next PivotItem

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD