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

v03586

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

下載 (18.07 KB)

2017-8-15 15:25

下載 (8.48 KB)

2017-8-15 15:25

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

下載 (11.22 KB)

2017-8-15 15:26

      
      Ｑ2: 能否將分析完的資料再匯入FMC 與 ENG 的資料表內
      

下載 (4.78 KB)

2017-8-15 15:27

      

下載 (13.41 KB)

2017-8-15 15:27

      test2.rar (750.09 KB)

下載次數: 3

2017-8-15 15:29

v03586

回復 1# v03586

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

下載 (12.39 KB)

2017-8-24 12:15

下載 (4.78 KB)

2017-8-24 12:15

下載 (13.41 KB)

2017-8-24 12:17

Test.rar (762.02 KB)

下載次數: 1

2017-8-24 12:16

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"
    
29. 
    
30. End Sub

複製代碼