ªð¦^¦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®É¶¡¦¨´N¤@¤Á¡j®É¶¡¥i¥H³y´N¤H®æ¡A¥i¥H¦¨´N¨Æ·~¡A¤]¥i¥HÀx¿n¥\¼w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD