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

[µo°Ý] ¦p¦ó¥u¬D¥X¿ï©wªº¸ê®ÆÄæ¦ì

[µo°Ý] ¦p¦ó¥u¬D¥X¿ï©wªº¸ê®ÆÄæ¦ì

§Ú·Q­n°õ¦æµ{¦¡½X®É´N¥i¥HÂà´«¦¨§Ú­nªº¸ê®ÆÄæ¦ì
¹ï©ó¼Ï¯Ã¤ÀªRªºvbaÁÙ¤£¤Ó¼ô
½Ð¤j®aÀ°¦£¬Ý¨Ì¤U
§Ú·Q­n°õ¦æ®É¥u¥X²{¦p¥Ø«e¤u§@ªí®Éªº¼Ò¼Ë
¦ý¬O¨C°õ¦æ¤@¦¸³£·|¼W¥[¤@Äæ¸ê®Æ
¤£ª¾¹D¸ò§Úªº¸ê®Æ¬O¦Û­q¤½¦¡¦³¨S¦³Ãö«Y
©Î¬O³æ¯Âµ{¦¡½Xªº°ÝÃD?
  1. Sub ´ú¸Õ()
  2. '
  3. '

  4.     Dim pt As PivotTable
  5.     Dim pf As PivotField
  6.     Dim pi As PivotItem
  7.    
  8.     Application.ScreenUpdating = False
  9.     Application.DisplayAlerts = False
  10.     On Error Resume Next
  11.     For Each pt In ActiveSheet.PivotTables
  12.         pf.Orientation = xlHidden
  13.     Next
  14.     For Each pi In pt.DataFields
  15.         pi.Orientation = xlHidden
  16.     Next
  17.     ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").PivotFields("Á`®É¼Æ").Orientation = xlDataField
  18.     ActiveSheet.PivotTables("¼Ï¯Ã¤ÀªRªí1").AddFields RowFields:="³¡ªù", ColumnFields:= _
  19.         Array("¦~«×", "¤ë¥÷")
  20. End Sub
½Æ»s¥N½X
¥[¯Z³æ©ú²Óªí-´ú¸Õ.rar (11.99 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD