¼Ï¯Ã¤ÀªRªíªº¿z¿ï-¦Û°Ê¥þ¿ï
- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 59
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2018-1-4
- ³Ì«áµn¿ý
- 2025-4-5
  
|
§Ú¨Ï¥Î¤F¤Wzªº»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 |
|
|
|
|
|
|