返回列表 上一主題 發帖

[發問] 樞紐分析+匯入其他資料表資料

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-8-15 15:28 | 只看該作者

[發問] 樞紐分析+匯入其他資料表資料

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

      程式步驟是, 開啟Test Report 再打開"參考資料" →  再按產生報表
      程式會從參考資料抓取要的資料到Test report 去做資料彙整
      直到Moudle3『機台數』 只是把參考資料中我要的資料抓過來, 再做一個篩選
     剩下的資料要做分析的
      Q1:  能否將Moudle3 篩選完的資料在同一個分頁 『機台數』 呈現出  上圖的資料呢?
               如果PKG是空白代表機台待料, 可否把空白字眼換成" 待料 "
      
      
      Ｑ2: 能否將分析完的資料再匯入FMC 與 ENG 的資料表內
       Q33.png
      
      test2.rar (750.09 KB)
收藏 分享

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
2#
發表於 2017-8-24 12:17 | 只看該作者
回復 1# v03586

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

Q33.png

Test.rar (762.02 KB)
  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
複製代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題