請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
本帖最後由 198188 於 2025-10-23 08:26 編輯
回復 198188
請將規則文字敘述表單化後上傳新範例 ,如下圖
Andy2483 發表於 2025-10-22 16:44 
由於中文會有亂碼，所以我上載的範例 Result 用英文敘述，另外圖片用中文敘述。附件規則是中文描述規則。
Rule 欄 A "複製表格 Copy Form" 藍色部分是指示複雜哪個模板的表格
Rule 欄 B - H "備注符號 Remark " 黃色部分是對應 Part List 欄 G "備注" & Frame per Dwg 欄 F "組裝圖的出貨情況" 的辨認
Rule 欄 K - AB " 關鍵字Key Word" 綠色部分是 對應 Part List 欄 A "加工件編號" & Frame per Dwg 欄 B "組裝圖編號" 的頭兩個字的辨認
當 Rule 欄 B - H "備注符號 Remark " & Rule 欄 K - AB " 關鍵字Key Word" 兩個都符合條件的 根據Rule 欄 A "複製表格 Copy Form" 來生產一個新的表格，然後按照 規則 來填入資料。
最後把所有新生成的表格，打印成PDF 儲存在當下的桌面 / 該Excel 的位置。 |
-
-
規則.rar
(17.6 KB)
規則描述
-
-
result.rar
(294.76 KB)
表格
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
回復 198188
工作表名稱只能有31個字元,若超過如何處理?
Andy2483 發表於 2025-10-23 08:43
如果 只有1個 Key Word 的直接用 Key Word 命名,
如果出現超過一個 key word 的直接用English Product命名。
舉例
Hardware = HW
Screw = Screw
Weather Sealant = Weather Sealant
Flush Slab Edge Cover Frame = FF
Door Frame = DF
Casting = Casting
Structural Sealant = Structural Sealant
Gasket = Gasket
Thermal Rock = TR
另外Remark
直接用符號命名。
符號 - 用 -
符號 Y 用Y
符號 O 用 O
符號 T 用 T
符號 W 用 W |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
回復 198188
以下請先試試看
Option Explicit
Sub TEST()
Dim Arr, Brr, Crr(1 To 10000, ...
Andy2483 發表於 2025-10-23 11:57
執行後，出現這個錯誤。 |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
回復 198188
可能原因:Material表資料不完整
Part List表L(供應商編號) 在 Material表C欄找不 ...
Andy2483 發表於 2025-10-23 13:59
那能不能加一句，如果讀取Material 時找不到的，直接空白？ |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
回復 198188
裡面有3行: If A(R, 3) "" Then
都置換成: If A(R, 3) "" And Z.Exists( ...
Andy2483 發表於 2025-10-23 14:38
改完之後，運行程式，整個Excel 一直 沒有回應。 |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
改完之後，運行程式，整個Excel 一直 沒有回應。
198188 發表於 2025-10-23 14:53
運行大概半小時後，出現這個錯誤。 |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
回復 198188
沒有實際大量資料範例做測試,只能建議自行 漸進增加資料量做測試
Andy2483 發表於 2025-10-23 15:19
[attach]38159[/attach]
由於檔案過大，無法上載，我拆分了 7 個 Excel
Result 23 Oct 是我用來測試的模板和程式,
Data Base 1 是除了 Part List 這頁資料的 Data Base
Data Base 裏面的 Part List 共有 45135 個資料，我分別用 5 個Excel 承載。從1-10000，10001-20000，20001-30000， 30001-40000， 40001-45135
其中我發現一個問題，就是運行之前的 Data 程式是，Part List 的數量全部是 0， 而且資料不對。
規則是
日期 批次次序 樓層 生產單號 項目内容 各樣數據
22-Dec-23 A 02F-08F WO-J057-022 02F-08F窗玉 WS - - - - -
第一 Layout Dwg 裏面分佈圖號在 Frame per Dwg 沒有的分佈圖，要篩選在Part List
第二 根據 Frame Per Dwg 裏面的組裝圖號，在Part List 篩選出來, (只顯示 WO No 各樣數據有的相關字母，以上列是WS字頭的才出現）
請參考 附件Data 程式規則錯誤。
不知是否因爲這個問題，導致Form 這個程式運行。 |
|
|
|
|
|
|
|
- 帖子
- 471
- 主題
- 71
- 精華
- 0
- 積分
- 567
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-24
|
回復 198188
太燒腦了,放假後再撥空下載試試
Andy2483 發表於 2025-10-23 16:38
有勞前輩了。 |
|
|
|
|
|
|
|
發表於 
