返回列表 上一主題 發帖

[發問] ListBox與排序加總問題

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2016-10-6 11:34 | 顯示全部帖子
回復 1# starbox520
樞紐分析表細部調整後也能達成
  1. Sub test()
  2.     Dim rngData As Range: Set rngData = Sheets("工作表1").Range("A1:E33")
  3.     Dim arKeyFields: arKeyFields = Array("CR", "LN", "PG", "BE")
  4.     Dim sumField: sumField = "QQ"

  6.     Dim pvt As PivotTable, i, x
  7.     With Sheets.Add
  8.         Set pvt = ActiveWorkbook.PivotCaches.Create( _
  9.                 SourceType:=xlDatabase, _
  10.                 SourceData:=rngData, _
  11.                 Version:=xlPivotTableVersion14 _
  12.             ).CreatePivotTable(TableDestination:=.[A1])
  13.     End With
  14.     With pvt
  15.         .InGridDropZones = False
  16.         .ShowDrillIndicators = False
  17.         .DisplayFieldCaptions = True
  18.         .RowGrand = False
  19.         .ColumnGrand = False
  20.         .RowAxisLayout xlTabularRow
  21.         i = 1
  22.         For Each x In arKeyFields
  23.             .PivotFields(x).Orientation = xlRowField
  24.             .PivotFields(x).RepeatLabels = True
  25.             .PivotFields(x).Subtotals(1) = False
  26.             .PivotFields(x).Position = i
  27.         Next
  28.         .AddDataField .PivotFields(sumField), "加總 - " & sumField, xlSum
  29.     End With
  30. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2016-10-7 09:25 | 顯示全部帖子
回復 6# starbox520
4# 漏了 i=i+1

你再改第一行的資料範圍就好了
Set rngData = Sheets("工作表2").Range("A1:G33")
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題