Board logo

標題: [發問] 樞紐分析+匯入其他資料表資料 [打印本頁]
作者: v03586    時間: 2017-8-15 15:28     標題: 樞紐分析+匯入其他資料表資料

樞紐分析用錄製的, 只要他的參考資料有新增沒有被錄製進去的資料就會跳出錯誤
      想請教各位高手們有沒有比較好的方式可以呈現出類似下圖的表格, ( 類似用樞紐分析拉出來的格式)
      在我Test report的EXCEL "機台數"的分頁, 去做一個類似分析資料
      [attach]27635[/attach][attach]27636[/attach]

      程式步驟是, 開啟Test Report 再打開"參考資料" →  再按產生報表
      程式會從參考資料抓取要的資料到Test report 去做資料彙整
      直到Moudle3『機台數』 只是把參考資料中我要的資料抓過來, 再做一個篩選
     剩下的資料要做分析的
      Q1:  能否將Moudle3 篩選完的資料在同一個分頁 『機台數』 呈現出  上圖的資料呢?
               如果PKG是空白代表機台待料, 可否把空白字眼換成" 待料 "
       [attach]27637[/attach]
      
      Ｑ2: 能否將分析完的資料再匯入FMC 與 ENG 的資料表內
       [attach]27638[/attach]
       [attach]27639[/attach]
     [attach]27640[/attach]
作者: v03586    時間: 2017-8-24 12:17

回復 1# v03586

請問一下...我已經將上述問題錄製樞紐分析, 如下程式碼
請問我要如何利用迴圈or 判斷式 將樞紐分析結果, 導入到FMC資料欄的機台數呢??

[attach]27661[/attach][attach]27662[/attach]
[attach]27664[/attach]
[attach]27663[/attach]
  1. Sub 機台數分析()
  2.     Application.CutCopyMode = False
  3.     Range("A1").Select
  4.     ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  5.         "機台數!R1C1:R144C16", Version:=xlPivotTableVersion15).CreatePivotTable _
  6.         TableDestination:="機台數!R1C17", TableName:="樞紐分析表1", DefaultVersion:= _
  7.         xlPivotTableVersion15
  8.     Sheets("機台數").Select
  9.     Cells(1, 17).Select
  10.     ActiveWindow.ScrollColumn = 2
  11.     ActiveWindow.ScrollColumn = 3
  12.     ActiveWindow.ScrollColumn = 4
  13.     ActiveWindow.ScrollColumn = 5
  14.     ActiveWindow.ScrollColumn = 6
  15.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Package")
  16.         .Orientation = xlRowField
  17.         .Position = 1
  18.     End With
  19.     ActiveSheet.PivotTables("樞紐分析表1").AddDataField ActiveSheet.PivotTables("樞紐分析表1" _
  20.         ).PivotFields("Machine"), "計數 - Machine", xlCount
  21.     ActiveWindow.ScrollColumn = 7
  22.     ActiveWindow.ScrollColumn = 8
  23.     With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Area")
  24.         .Orientation = xlPageField
  25.         .Position = 1
  26.     End With
  27.     ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Area").ClearAllFilters
  28.     ActiveSheet.PivotTables("樞紐分析表1").PivotFields("Area").CurrentPage = "HQ4F-FMC"

  30. End Sub
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)