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

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

2^#

發表於 2015-10-18 21:15 | 只看該作者

還有...針對特別的產品PKG

只要Device 找不到層別的如TFBGA 168L 12*12MM 、 GAME CARD 15.2*12MM 等等...種類過多不及繁載
因為UPH的檔案還沒建立完全....有些PKG還沒建立

只要判斷PKG一樣直接帶站點計算UPH 開機數
如下圖的UPH檔案中這個PKG 是沒有層別的所以只要報表的PKG一樣就計算當日投線量帶出UPH計算方式算開機數量
(報表中的範例我刪掉了....補上)

範例報表.rar (14.17 KB)

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

3^#

發表於 2015-11-21 10:31 | 只看該作者

這問題還是卡了久...真的無解
不知道高手們有沒有什麼辦法呢...

Q1: 請問EXCEL 可以判斷欄位中的字串關鍵字嗎?
Q2: 此程式的呈現方法是我自己想的不知道可否完成
2-1.點取按鈕後先判斷報表中當天投線日期加總
開始.png

2-1-1. 如報表中C欄位字串有以下關鍵字則不列入加總計算 : HQ-5F HQ5F HQ-2F HQ2F AT7F AT6F CSP ENG

2-2.再去判斷Device 欄位(D欄位) 中的關鍵字去判斷層別
如:P-MS030NV-P8039DA1-CTHE16GGD4-SKSC =16G*4
如:A-MS064BZ-A766200T-CTHD08GD1-T =8G*1
Device 中命名一定會有  數字G_數字 or  數字G_ _數字
G的後面可能會有1~3個英文字母但字母後面一定會有數字  不知道能不能判斷出來....
如果不能我在Layer 分頁中有建立一個Device 跟Den(F)的表格  主要是從這邊去抓Device對應的層別

Q3:判斷完層別接下來就是依照PKG帶入對應的層別，只要UPH這個資料表所列出的STG(站點）

就帶入計算公式投線量／（UPH*21.5）。執行結果如圖

報表+UPH.rar (388 KB)

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

4^#

發表於 2015-11-24 07:40 | 只看該作者

想詢問一下這邊高手!!以上我敘述的方法
是否真能將這個程程式呈現呢????
還是有哪邊邏輯上的BUG ???
想了一個多月了@@

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

5^#

發表於 2015-11-25 20:35 | 只看該作者

回復 4# v03586

感覺Device層別判斷的運用可以類似這篇
連結資料表Layer 去判斷UPH 不知道各位版大此方法能不能呈現出來

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2015-11-27 08:18 | 只看該作者

本帖最後由 GBKEE 於 2015-11-28 05:48 編輯

回復 5# v03586
一步一步來

Option Explicit
Const xNote = "HQ-5F,HQ5F,HQ-2F,HQ2F,AT7F,AT6F,CSP,ENG"
Dim wB(1 To 2) As Workbook, xDevice As String, xDen As String
Sub Ex()
Dim Pkg As String, Rng(1 To 2) As Range, Rng_Addres As String
Dim Ar, xMsg As Boolean, E As Variant
Set wB(1) = Workbooks("開機數計算程式xls.xls")
Set wB(2) = Workbooks("ONHAND2HR_FMC_PP__112015181315.xls")
Ar = Split(xNote, ",")
With Workbooks(2).Sheets(1)
Set Rng(1) = .Cells.Find("PKG Type :", LookIn:=xlValues, LOOKAT:=xlWhole)
Rng_Addres = Rng(1).Address
Do
Pkg = Rng(1).Cells(1, 4)
Set Rng(2) = Rng(1).Offset(1)
Do
xMsg = True
If Rng(2) <> "" Then
For Each E In Ar
If InStr(Rng(2).Cells(1, 3), E) Then
xMsg = False
Exit For
End If
Next
If xMsg And InStr(Rng(2)(1, 4), "G") Then
Ex_Device Rng(2)(1, 4)
End If
End If
Set Rng(2) = Rng(2).Offset(1)
Loop Until Rng(2).Text = "SubTotal:"
Set Rng(1) = .Cells.Find(Rng(1).Text, Rng(1))
Rng(1).Interior.Color = vbYellow
Loop Until Rng_Addres = Rng(1).Address
' .Close False
MsgBox "OK"
End With
End Sub
Sub Ex_Device(S As String)
Dim i As Integer, xRng As Range
Debug.Print vbLf & S & " ---" 'VBA 即時算視窗顯示
i = InStrRev(S, "G") - 1
Do While IsNumeric(Mid(S, i, 1))
i = i - 1
Loop
S = Mid(S, i + 1)
i = InStr(S, "-")
If i > 0 Then
S = Replace(Mid(S, 1, i - 1), "GG", "G")
Else
S = Replace(Mid(S, 1), "GG", "G")
End If
i = InStr(S, "G")
For i = InStr(S, "G") + 1 To Len(S)
If Mid(S, i, 1) Like "[0-9]" Then
S = Mid(S, 1, i)
Exit For
End If
Next
xDevice = S
xDen = Val(S) & "G*" & Mid(S, i, 1)
Set xRng = wB(1).Sheets("Layer").Cells.Find(xDevice, LookIn:=xlValues)
If xRng Is Nothing Then
Debug.Print "找不到 " & xDevice & vbTab & xDen
Else
Debug.Print "找到 " & xDevice & vbTab & xDen & " 在 " & xRng.Address(, , , 1)
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

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

7^#

發表於 2015-11-27 23:29 | 只看該作者

回復 6# GBKEE

感謝大大的幫忙!!! 試Run一下目前已經可以辦別PKG欄位
我最頭痛的就是Device 的問題..因為公司的Device的命名到後面都沒有統一了(越來越多)
但大多數Micro / SD / USB 系列基本上都通用~ 例外的部分真的想不出來 ( 公司的問題) 傷腦筋