- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-12-16
|
本帖最後由 198188 於 2025-11-18 16:48 編輯
Bom 模板 下面未導出資料
本檔 Bom 表 D 欄 英文描述 Data Base 檔 Material 表欄 E 英文描述(對客戶) ...
198188 發表於 2025-11-18 15:31  - Sub RuleRun()
- Dim T$, T2$, S$, i&, j%, T3$
- Set Z = CreateObject("Scripting.Dictionary")
- Brr = [Rule!A1].CurrentRegion
- For i = 3 To UBound(Brr)
- For j = 2 To 8
- T = Brr(i, j)
- If T <> "" Then
- If Z(T & "|") = "" Or j = 5 Or j = 8 Then
- Z(T & "^") = Brr(2, j)
- [color=Red]Z(T & "|") = Left(Brr(2, j), InStr(Brr(2, j), "-") - 1)[/color]
- End If
- Exit For
- End If
- Next
- Sub Structural()
- If Brr(i, 1) = Brr(i - 1, 1) Then A(R, 5) = A(R, 5) + Brr(i, 3): Exit Sub
- R = R + 1: A(R, 1) = R
- For j = 0 To 2: A(R, Array(2, 3, 5)(j)) = Brr(i, Array(1, 2, 3)(j)): Next
- If Brr(i, 2) Like "*mmx*" Then
- L = Split(Brr(i, 2) & "mm", "mm")(0)
- W = Split(Brr(i, 2) & "mm", "mm")(1)
- L = Val(StrReverse(Mid(Val(StrReverse(L & 1)), 2)))
- W = Val(StrReverse(Mid(Val(StrReverse(W & 1)), 2)))
- A(R, 6) = L * W
- Else
- A(R, 6) = Split(Brr(i, 2) & "mm", "mm")(0)
- End If
- A(R, 8) = A(R, 5) * A(R, 6) / 1000
- A(R, 7) = Application.RoundUp(A(R, 5) * A(R, 6) / 1000000, 0)
- End Sub
本檔 Bom 表 D 欄 英文描述 Data Base 檔 Material 表欄 E 英文描述(對客戶) 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Bom表 E 欄 中文描述 Data Base 檔 Material 表欄 F 中文描述(對供應商) 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Bom表 F 欄 材質, 標準及等級 Data Base 檔 Material 表欄 G 材質 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Bom表 H 欄 單重 Data Base 檔 Material 表欄 K 單重 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Bom表 I 欄 顔色/表面處理 Data Base 檔 Material 表欄 J 顔色/表面處理 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Bom表 K 欄 單位 Data Base 檔 Material 表欄 H 英文單位 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Bom表 N 欄 採購數量 本檔 Bom表 J 欄 數量 【 已解決，附上代碼】
Gasket 模板 下面未導出資料
本檔 Gasket 表 D 欄 英文描述 Data Base 檔 Material 表欄 E 英文描述(對客戶) 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Gasket 表 E 欄 中文描述 Data Base 檔 Material 表欄 F 中文描述(對供應商) 【人手搜過，Material 有這個資料, 但沒有導出資料】
本檔 Gasket 表 H 欄 單位 Data Base 檔 Material 表欄 H 英文單位 【人手搜過，Material 有這個資料, 但沒有導出資料】
Structural 模板
總容量 (L) 長度 * 截面積 / 1000000 = 總容量 【我已經修改 A(R, 7) = Application.RoundUp(A(R, 5) * A(R, 6) / 1000000, 0)】
截面積(mm2) = ok 材料描述 19.8mmx8mm 【截面積 = 19.8 x 8 = 158.4, 這個沒問題】
截面積(mm2) = ok 材料描述25.4mmx8mm DC983 STRUCTURAL SILICONE-BLACK 【截面積 = 25.4 x 8 = 203.2, 這個沒問題】
截面積(mm2) = 漏了這個規則 材料描述136 mm² DC983 STRUCTURAL SILICONE-BLACK 【材料描述是這種 mm² 描述，截面積 = 136，這個之前沒有説明，需要加一下】 【 已解決，附上代碼】
截面積(mm2) = 漏了這個規則 材料描述176 mm² DC983 STRUCTURAL SILICONE-BLACK 【材料描述是這種 mm² 描述，截面積 = 176，這個之前沒有説明，需要加一下】 【 已解決，附上代碼】
Fabrication Extrusion模板 下面導錯資料
本檔 Fabrication Extrusion 表 A3 儲存格 本檔 Rule 表 H2 儲存格 的英文字 "Fabrication Order Sheet For Extrusion Parts" （”-“之前的英文字）程式出來的是 “Fabrication Order Sheet For Extrusion Parts - 加工”【 已解決，附上代碼】
本檔 Fabrication Extrusion 表 A4 儲存格 本檔 Rule 表 H2 儲存格 的中文字 "加工清單" （”-“之後的中文字）程式出來的是 “清單”【 已解決，附上代碼】
DN Material模板 下面導錯資料
本檔 DN Materialn 表 A3 儲存格 本檔 Rule 表 E2 儲存格 的英文字 "Delivery Notes For Material Parts" （”-“之前的英文字）程式出來的是 “Delivery Notes For Material Parts - 散件出貨”【 已解決，附上代碼】
本檔 DN Material 表 A4 儲存格 本檔 Rule 表 E2 儲存格 的中文字 "散件出貨明細" （”-“之後的中文字）程式出來的是 “明細”【 已解決，附上代碼】
本檔 DN Material 表 E 欄 單重 本檔 Part List 表欄 M 單重 【我已經修改 A(R, 5) = Brr(i, 13)】
本檔 DN Material 表 F 欄 單位 ="PC" 【我已經修改 A(R, 6) = "PC"】
本檔 DN Material 表 H 欄 總重量 本檔 DN Material 表 E 欄 單重 * 本檔 DN Material 表 G 欄 總數量 【我已經修改 A(R, 8) = A(R, 5) * A(R, 7)】 |
|
發表於 2025-11-13 07:59
| 
