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

VBA²£¥Í¼Ï¯Ã¤ÀªRªíRowField¤p­p°ÝÃD

VBA²£¥Í¼Ï¯Ã¤ÀªRªíRowField¤p­p°ÝÃD

¥»©«³Ì«á¥Ñ ahager ©ó 2011-12-23 22:15 ½s¿è

¦U¦ì°ª¤â§A¦n~
¦³»Ý­n¥Î¨ìVBA²£¥Í¼Ï¯Ã¤ÀªRªí
¥Ø«e½m²ß°ÝÃD¦p¤U


¦³»Ý­n¥Î¨ìDepartment ©M CategoryªºRowField
¦ý¬ODepartment¤£»Ý­n²£¥Í¤p­p
¦bexcel¸Ìªº¾Þ§@¤w¸g§ä¥X¨Ó¤F
¦b¦C¼ÐÅÒ--> Department --> Äæ¦ì³]©w --> ¤p­p»P¿z¿ï--> ±q¦Û°Ê§ï¬°µL´N¦n¤F
¦ý³o¬q»yªk¤£¤Ó·|¼g
½Ðª¾¹Dªº°ª¤â¸Ñµª ·PÁ ^_____^
¥H¤U¬O§Ú°Ñ¦Òªººô­¶©Mµ{¦¡½X
http://blog.xuite.net/crdotlin/excel/7649722
  1.     With PT
  2. '       ³]©wÄæ¦ì
  3.         .PivotFields("DEPARTMENT").Orientation = xlRowField
  4.         .PivotFields("Category").Orientation = xlRowField
  5.         .PivotFields("MONTH").Orientation = xlColumnField
  6.         .PivotFields("DIVISION").Orientation = xlPageField
  7.         .PivotFields("BUDGET").Orientation = xlDataField
  8.         .PivotFields("ACTUAL").Orientation = xlDataField
  9.    
  10. '       ·s¼W­pºâÄæ¦ìVariance, ¨ä­È¬°BUDGET´îACTUALÄæ¦ì
  11.         .CalculatedFields.Add "Variance", "=BUDGET-ACTUAL"
  12. '       ±NVarianceÄæ¦ì¸m©ó¸ê®Æ½d³ò
  13.         .PivotFields("Variance").Orientation = xlDataField
  14.         
  15. '       ¦bMONTHÄæ¤W·s¼W­pºâ¸ê®Æ¶µ¥ØQ1,Q2,Q3,Q4µ¥, ¨ä­È¤À§O¬°¦U­pªº¤ë¥÷©M
  16.         With .PivotFields("MONTH")
  17.             With .CalculatedItems
  18.                 .Add "Q1", "= Jan+ Feb+ Mar"
  19.                 .Add "Q2", "= Apr+ May+ Jun"
  20.                 .Add "Q3", "= Jul+ Aug+ Sep"
  21.                 .Add "Q4", "= Oct+ Nov+ Dec"
  22.             End With
  23.    
  24. '       ³]©wQ1,Q2,Q3,Q4­pºâ¶µ¥Øªº¦ì¸m
  25.             .PivotItems("Q1").Position = 4
  26.             .PivotItems("Q2").Position = 8
  27.             .PivotItems("Q3").Position = 12
  28.             .PivotItems("Q4").Position = 16
  29.         End With
½Æ»s¥N½X

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD