標題:
[發問]
如何Excel 判斷關鍵字,回拋值
[打印本頁]
作者:
v03586
時間:
2017-5-27 17:06
標題:
如何Excel 判斷關鍵字,回拋值
本帖最後由 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欄位也會跟著合併
) 還會跳出這個警告視窗 , 不知道如何取消這個視窗
[attach]27231[/attach]
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
複製代碼
Q4. 再來這個功能也尚未寫入, 請各位大大協助 , 就是在程式在呼叫副程式"call test"之前
再去判斷"
原始資料
"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 也是手動填入 , 也就是執行完成的樣貌, 請求各位大大協助如上程式功能
[attach]27232[/attach]
作者:
v03586
時間:
2017-6-4 00:45
想請教各位大大們有解嗎??
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
