請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料
- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-11-20
|
回復 198188
PDF檔產出方案如下:
Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, Pj ...
Andy2483 發表於 2025-11-5 14:01 
前輩，測試 Print PDF 後，發現是建立在兩個“資料夾”裏，如上圖。能不能只建立一個“資料夾”？ |
|
|
|
|
|
|
|
- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-11-20
|
回復 198188
比對後沒有錯誤
全部 中文/英文描述空格,其加工件編號所對應的 供應商編號都是空格 ...
Andy2483 發表於 2025-11-19 08:29
前輩，發現是Data Base 檔 Material 表 C 欄 供應商編號 和 Part List 表 L 欄 供應商編號 兩者不一致，所以導致無法導出資料, 最後沿用 A(R,3)，現在全部都可以導出。
不過如果 A(R,3) 改成 A(R,2) ， HW 的 BOM 還是導不出資料 |
|
|
|
|
|
|
|
- 帖子
- 1566
- 主題
- 40
- 精華
- 0
- 積分
- 1590
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-11-20
|
前輩，測試 Print PDF 後，發現是建立在兩個“資料夾”裏，如上圖。能不能只建立一個“資料夾 ...
198188 發表於 2025-11-19 09:31
修改方案如下:
Form修改方案 補充在 200樓
Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, Pj, PP$, Dn$
Application.ScreenUpdating = False
Call RuleRun
Dn = Format(Now, "yyyy_mm_dd_hh_nn_ss")
Pj = ['WO No'!A2].Resize(, 11): Pj = Replace(Join(Application.Transpose(Application.Transpose(Pj)), "_"), "/", "_")
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
For i = Worksheets.Count To 1 Step -1
T = Sheets(i).Name & "/s"
If Z(T) <> "" Then
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewMyPath & Z(Sheets(i).Name & "/") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next
MsgBox "PDF_Save_Address: " & vbLf & NewMyPath
End Sub |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-11-20
|
修改方案如下:
Form修改方案 補充在 200樓
Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, ...
Andy2483 發表於 2025-11-19 09:49
運行後，出現這個問題。
我已經刪除了之前的PDF檔案 連資料夾。 |
|
|
|
|
|
|
|
- 帖子
- 1566
- 主題
- 40
- 精華
- 0
- 積分
- 1590
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-11-20
|
回復 204# 198188
可能是 WO No表[E2]是簡體字造成亂碼 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-11-20
|
本帖最後由 198188 於 2025-11-19 10:45 編輯
回復 198188
可能是 WO No表[E2]是簡體字造成亂碼
Andy2483 發表於 2025-11-19 10:30
前輩，不是亂碼的問題，用之前的誠實是沒有問題的。
另外我把下面這句修改了4，沒有中文字，也是一樣出錯。
Pj = ['WO No'!A2].Resize(, 4): Pj = Replace(Join(Application.Transpose(Application.Transpose(Pj)), "_"), "/", "_") |
|
|
|
|
|
|
|
- 帖子
- 1566
- 主題
- 40
- 精華
- 0
- 積分
- 1590
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-11-20
|
前輩，不是亂碼的問題，用之前的誠實是沒有問題的。
另外我把下面這句修改了4，沒有中文字，也是一樣 ...
198188 發表於 2025-11-19 10:39
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 Step -1
這行漏了 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-11-20
|
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 ...
Andy2483 發表於 2025-11-19 11:30
可以了，感謝前輩指點。 |
|
|
|
|
|
|
|
- 帖子
- 573
- 主題
- 72
- 精華
- 0
- 積分
- 670
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-11-20
|
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 ...
Andy2483 發表於 2025-11-19 11:30
前輩，如果我想在每個生產新的表格内，某個指定的儲存格内分別填入不同資料，應該怎樣去指定不同表的不同儲存格？以及應該放在SUB FORM 哪個位置裏？
舉例
Structural 表内，Range("G3") = Replace(Worksheets("Read").Range("C2"), "WO", "YL")
Gasket 表内，Range("J3") = Replace(Worksheets("Read").Range("C2"), "WO", "YL")
Bom 表内，Range("L5")
if Range("A3")="Screw" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "FW")
if Range("A3")="Panel" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "PM")
if Range("A3")="Hardware" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "HW")
if Range("A3")="Steel" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "SM")
if Range("A3")="Gasket" then Range("L5") =Replace(Worksheets("Read").Range("C2"), "WO", "KW")
DN Material 表内，Range("I3") = Replace(Worksheets("Read").Range("C2"), "WO", "DM")
Fabrication Extrusion 表内，Range("H3") = Replace(Worksheets("Read").Range("C2"), "WO", "FE")
Finish 表内，Range("G3") = Replace(Worksheets("Read").Range("C2"), "WO", "DW")
|
|
|
|
|
|
|
|
- 帖子
- 1566
- 主題
- 40
- 精華
- 0
- 積分
- 1590
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-11-20
|
回復 209# 198188
Structural 表内，Range("G3") = Replace(Worksheets("Read").Range("C2"), "WO", "YL")
請試試看:
With Range(Z(Z(T & "/s") & "/V3")): .Value = Z(T & "/EC"): .ShrinkToFit = True: End With
If Z(T & "/s") = "Structural" Then [G3] = Replace(ThisWorkbook.Sheets("Read").[C2], "WO", "YL")
A = Crr: R = 0 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
發表於 
