[發問] 依照報表投線量與UPH&lt;每小時產能&gt;計算開機數 -- 發問

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

28^#

發表於 2015-12-9 01:36 | 只看該作者

回復 27# 准提部林

感謝版大..!!! 這幾天將試著將執行出來的V 部分 , 補齊參數~再過一陣子review 看看了~~~

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

27^#

發表於 2015-12-6 14:00 | 只看該作者

回復 26# v03586

找不到完全對策, 趁還有空檔修改一下:

ON開機數計算程式_v4.rar (482.11 KB)

程式是無料，但最終還是需要〔人工〕加料處理～～

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

26^#

發表於 2015-12-5 23:42 | 只看該作者

本帖最後由 v03586 於 2015-12-5 23:44 編輯

回復 25# 准提部林

真不好意思這麼麻煩版大....如果版大沒有空沒關係放著吧!!主要本身的是為主
目前第四版計算出來還是會出現如圖問題..

１．同一名稱不同製程？如何分類．加總，及列表？
基本上依照Device種類不同做列表.. 同樣Device (=同層別) 做加總
列表依照不同Device列出來(現在的不就是依照Device不同列出來了嗎!!)

２．有名稱，卻沒有製程參數可相除，數量／？／21.5，怎麼算？
      有名稱確沒有製程參數可相除...因為IE( Industrial Engineer) 並無把所有參數量測完整 (太多產品/種類) 需要日後慢慢建立補齊
      邏輯連結部分可以判斷成....如果[報表]資料表上的G欄如果對應不到 [UPH]資料表上的製程參數則就不計算嗎?
      目前的狀況沒參數也是沒計算  但就是列表出來而已 ,  只要[UPH]資料表...日後IE有補上資料就能計算出來了
３．ＥＥ欄部份有製程，部份則無，甚至不確定取出的製程是否完整？
   EE欄位製程欄位部分無的部分看過了!!只要沒有表上得代表是別廠的製程
最一開始不是有先判斷CSP ENG AT7F....等等那些都是別廠的報表...製程不同所以沒有那些製程
所以取出的完全正確

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

25^#

發表於 2015-12-5 22:03 | 只看該作者

回復 24# v03586

１．同一名稱不同製程？如何分類．加總，及列表？
２．有名稱，卻沒有製程參數可相除，數量／？／21.5，怎麼算？
３．ＥＥ欄部份有製程，部份則無，甚至不確定取出的製程是否完整？
　　不是小問題，比對看看檔案中〔報表〕的Ｇ欄及Ｈ欄：

ON開機數計算程式_v4.rar (215.09 KB)

近年底較忙，可能較沒時間跟帖，看是超板或其他大大可幫忙接手～～～～

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

24^#

發表於 2015-12-5 01:20 | 只看該作者

本帖最後由 v03586 於 2015-12-5 01:26 編輯

回復 23# 准提部林

這幾天試Run下來發現一個小問題, 不知道有沒有辦法解決
發現Device不同部分製程組合不同
報表上的EE欄位是製程欄位
如圖判斷出來雖然都是8G*1 但產品組合結構不同，製程欄位不同

如同先前的判斷就會出線不是這個Device得製程也會帶出數值

自己想得辦法不知可否解決
不知道可否從製程欄位中去判斷出是否有SA0,SA1,RA0,RA1,DA0,DA1.....CA2 就是執行結果表頭那些
在[報表] 欄位呈現 (如圖)

在依照報表層別後面有出現的站點去Link [UPH] 那資料表 (如圖連結方式)

最後層現就依照製程欄位有的去計算開機數

附上更新過取代法169組資料及最新報表檔案

ON開機數計算程式_v3.rar (901.82 KB)

※ 不知道那些沒有命名規則得可不可以利用製程欄位直接去計算 ( 如無辦法就只能去建立Device 去判斷層別了 )
因為沒層別也不知道要帶哪個層別的參數 (攤手)

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

23^#

發表於 2015-12-3 09:44 | 只看該作者

回復 22# v03586

若 KDRCK4MWGD-HAXHHH-HHQ 是一個完整的Device名稱，沒問題，
除非還有以下這些相近名稱，還是要注意其優先順序：
KDRCK4MWGD-HAXHHH-HHQR = 6G*4
HKDRCK4MWGD-HAXHHH-HHQ =6G*1
BKDRCK4MWGD-HAXHHH-HHQ2 =6G*2

另外，這些特別指定字串，其Ａ欄的Ｇ數，不要輸入６，改為９９９，才會排在最上方！

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

22^#

發表於 2015-12-2 23:14 | 只看該作者

本帖最後由 v03586 於 2015-12-2 23:18 編輯

回復 21# 准提部林

感謝版大得提醒~今日已在公司將Layer取代法得關鍵字新增75組目前共154組
且實際跑完後有去核對報表帶出來的是否正確~截至目前為止還是正常得!!!
感謝版大大力得支援感激不盡..!!!

另外請問一下有些命名方式不一樣可以使用取代法自己將層別打上去嗎
例如
某個Device KDRCK4MWGD-HAXHHH-HHQ

就變成自己新增用手動改儲存格也能使用取代法吧!!
我測試試OK的~~特殊命名只能靠取代法去cover了!!
這種更改方式應該不會影響程式上的判斷吧

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

21^#

發表於 2015-12-2 10:22 | 只看該作者

本帖最後由准提部林於 2015-12-2 10:23 編輯

回復 19# v03586

加入[右方]及[下方]合計：

ON開機數計算程式_v3.rar (447.46 KB)

再特別提醒：
〔取代法〕：Layer工作表的對照資料必須完整，且依〔數字大〕〔字元數多〕者排在最上方，不然還是問題
例如：8GAA1．8GAA16
若只有8GAA1，而漏了8GAA16，則8GAA16會被視為8GAA1而取代之，
或．8GAA1排在8GAA16前面，則8GAA16也會〔優先〕被8GAA1取代，
同理．8GAA1排在128GAA1前面，則128GAA1也會〔優先〕被8GAA1取代！

多花些時間去了解〔取代〕順序不同，所造成的結果差異～～這只能靠自己去邏輯推演～

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

20^#

發表於 2015-12-2 07:39 | 只看該作者

回復 19# v03586
試試看：

Sub 計算當日開機數()
Dim RepSht As Worksheet, RepArr, xD1, xD2, R&, C&
.
.
.
' 此處呼叫
GetSubTot
Application.GoTo xSht.[A2]
End Sub

複製代碼

增加部分：

Sub GetSubTot()
Dim Btm As Long, rPos As Long
With Sheets("開機數")
Btm = .Range("A" & Rows.Count).End(xlUp).Row
rPos = Sheets("開機數").UsedRange.End(xlToRight).Column
If (Cells(1, rPos) = "Total") Then rPos = rPos - 1
.Cells(1, rPos + 1) = "Total"
.Cells(2, rPos + 1).Resize(Btm - 1).Formula = "=SUM(F" & 2 & ":T" & 2 & ")"
.Cells(2, rPos + 1).Resize(Btm - 1) = .Cells(2, rPos + 1).Resize(Btm - 1).Value
.Cells(Btm + 1, "B") = " Total"
.Cells(Btm + 1, "F").Resize(, 16).Formula = "=SUM(F" & 2 & ":F" & Btm & ")"
.Cells(Btm + 1, "F").Resize(, 16) = .Cells(Btm + 1, "F").Resize(, 16).Value
End With
End Sub

複製代碼