請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料
- 帖子
- 582
- 主題
- 75
- 精華
- 0
- 積分
- 682
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2026-4-13
|
請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料
[attach]38095[/attach][attach]38096[/attach][attach]38097[/attach]
請問如果規則是02F - 04F 或者多個樓層，如果在Data Base 篩選在這個範圍内的相關資料。
如圖一，圖二，圖三
附上Excel Data Base & 想要的結果及規則。 |
|
|
|
|
|
|
|
- 帖子
- 582
- 主題
- 75
- 精華
- 0
- 積分
- 682
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2026-4-13
|
211#
發表於 2026-3-24 16:44
| 只看該作者
- Sub Finish()
- For j = 0 To 4: A(R, Array(2, 3, 4, 5, 7)(j)) = Drr(i, Array(2, 3, 4, 5, 6)(j)): Next
- End Sub
回復 198188
前輩 Finish 模板 是 根據本檔 WO No Sheet 欄 F - 欄 K 的字眼 導出 Frame per Dwg 欄B 有這些字眼 的產品資料
舉例
本檔 WO No Sheet 欄 F - 欄 K (有 FS / FG)
讀取
Frame per Dwg 欄 B (頭兩個字有 FS / FG) 的所有數據，數量加總
請前輩試試看
Option Explicit
Public A, Z, R&, W, L, i&, Brr, Mrr, Q, Drr, ...
Andy2483 發表於 2025-11-17 10:52  |
|
|
|
|
|
|
|
- 帖子
- 1567
- 主題
- 40
- 精華
- 0
- 積分
- 1591
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2026-2-2
|
210#
發表於 2025-11-20 16:12
| 只看該作者
回復 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 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 582
- 主題
- 75
- 精華
- 0
- 積分
- 682
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2026-4-13
|
209#
發表於 2025-11-20 15:37
| 只看該作者
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")
|
|
|
|
|
|
|
|
- 帖子
- 582
- 主題
- 75
- 精華
- 0
- 積分
- 682
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2026-4-13
|
208#
發表於 2025-11-19 12:44
| 只看該作者
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 ...
Andy2483 發表於 2025-11-19 11:30
可以了，感謝前輩指點。 |
|
|
|
|
|
|
|
- 帖子
- 1567
- 主題
- 40
- 精華
- 0
- 積分
- 1591
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2026-2-2
|
207#
發表於 2025-11-19 11:30
| 只看該作者
前輩，不是亂碼的問題，用之前的誠實是沒有問題的。
另外我把下面這句修改了4，沒有中文字，也是一樣 ...
198188 發表於 2025-11-19 10:39
NewMyPath = ThisWorkbook.Path & "\" & Pj & "\"
MkDir NewMyPath
For i = Worksheets.Count To 1 Step -1
這行漏了 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 582
- 主題
- 75
- 精華
- 0
- 積分
- 682
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2026-4-13
|
206#
發表於 2025-11-19 10:39
| 只看該作者
本帖最後由 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)), "_"), "/", "_") |
|
|
|
|
|
|
|
- 帖子
- 1567
- 主題
- 40
- 精華
- 0
- 積分
- 1591
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2026-2-2
|
205#
發表於 2025-11-19 10:30
| 只看該作者
回復 204# 198188
可能是 WO No表[E2]是簡體字造成亂碼 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 582
- 主題
- 75
- 精華
- 0
- 積分
- 682
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2026-4-13
|
204#
發表於 2025-11-19 10:11
| 只看該作者
修改方案如下:
Form修改方案 補充在 200樓
Option Explicit
Sub Print_PDF()
Dim T$, NewMyPath, ...
Andy2483 發表於 2025-11-19 09:49
運行後，出現這個問題。
我已經刪除了之前的PDF檔案 連資料夾。 |
|
|
|
|
|
|
|
- 帖子
- 1567
- 主題
- 40
- 精華
- 0
- 積分
- 1591
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2026-2-2
|
203#
發表於 2025-11-19 09:49
| 只看該作者
前輩，測試 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 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
