本帖最後由 v03586 於 2017-5-27 17:11 編輯
我寫了一支程式 , 功能算是把原始資料(database) 重新整理及排序 變成習慣的模式
但有些功能尚未完成, 想請教各位大大們協助
程式執行方式 需要同時開啟『原始資料』+『Test Report』
然後點選Test Report 的『產生報表』即可
Module1 中的
Q1. N欄 B/D 先判斷[設定]資料表 特殊反色圖號 如符合, 在 [FMC]資料表 L欄 『Device』 反底色 ; MO蓋章圖(黃底)則是在 B欄位 反底色
反色的範本如[設定]資料表 Title , 藍底白字、紅底白字、黃底色
(Test Report)此功能尚未完成 目前是手動填色
Q2. N欄 B/D簡化 只留 從左邊往右後第一個"-" ex: BDPSSS1230-0111-C → 0111-C (目前此功能OK)
M欄 Substrate簡化 只留 從左邊往右後第二個"-" ex: 05-SS01-1005-VV → 1005-VV or 05-SS01-1007 → 1007 (此功能雖然有寫 但不OK)
Q3. 我這程式碼 是要判斷 , 只要判斷『FMC』資料表中 "Device"欄位 如果與"Flow"欄位 一樣就合併"Flow"儲存格
(目前連A欄位也會跟著合併) 還會跳出這個警告視窗 , 不知道如何取消這個視窗
- For Each xRR In xArea
- '----將Flow 相同 合併儲存格 並畫線
- If xRR & xRR(1, 34) <> xRR(0) & xRR(0, 34) Then Set xH = xRR
- If xRR & xRR(1, 34) <> xRR(2) & xRR(2, 34) Then
- Range(xH, xRR).Merge: Range(xH(1, 34), xRR(1, 34)).Merge 'Flow
- Range(xH, xRR(1, 34)).Borders.Style = 1
- For i = 7 To 10
- Range(xH, xRR(1, 34)).Borders(i).Weight = xlMedium
- Next i
- End If
- Next
再去判斷"原始資料"Excel中『H LOT』資料表 , 我有反黃的欄位
依照『原始資料』的A欄位『MONBR』與『Test Report』的"FMC"資料表中的B欄位『MONBR』比對, 一樣的話執行下動作
當『Step』欄位是DA*、CA*、RA*、SA*、STA* 所對應的『Qty』欄數字大於0 , 則將『EQPID』欄位的值
帶入程式『Test Report』中的『FMC』資料表『CA』欄、『DA』欄、『RA』欄、『SA(STA)』欄, 會打*代表可能會有CA01、CA02 ,所以程式判斷用CA*
其中SA*與STA* 都放在『SA(STA)』欄 , 如果有多個『EQPID』值, 則放入欄位用『,』隔開
EX: DIC001,DIA002 , 如欄位『MONBR』有多個重複『EQPID』值, 只需要取一個即可
目前Test Report 也是手動填入 , 也就是執行完成的樣貌, 請求各位大大協助如上程式功能
 Test.rar (617.77 KB)
|
發表於 2017-5-27 17:06
| 
