請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
本帖最後由 198188 於 2025-10-30 17:12 編輯
回復 198188
Frame per Dwg 的分佈圖號 是 Layout Dwg 的分佈圖號帶出來的,怎麼可能後者出現,前者不 ...
Andy2483 發表於 2025-10-30 16:36 
可能之前溝通有誤解：
本檔Frame per Dwg 表 的規則正確
根據本檔Layout Dwg 的分佈圖，帶出 本檔 Frame per Dwg表内一樣的分佈圖資料
本檔 Part List 表的 規則是有2條：
1. 根據本檔Layout Dwg 的分佈圖 欄 A，而沒有出現在本檔 Frame per Dwg表内，帶出 Data Base 檔 Part List表内一樣的分佈圖資料
1.1 如果最後一個字是小寫英文，就先去除再對比Data Base檔 Part List表的分佈圖資料
1.2 Qty 計算一樣
2. 根據本檔Frame per Dwg 的 組裝圖 欄B ,
2.1 本檔Frame per Dwg 的組裝圖號 含有 本檔WO No F-K欄的字母
2.2 帶出 Data Base 檔 Part List表内一樣的分佈圖資料
2.3 Qty 計算一樣
原理如下，
分佈圖包含兩種：
1. 單純零件，不需要組裝，這些是給工地使用
1.1 Layout Dwg 表是用來 透過分佈圖號 帶出一些 分佈圖號的零件 (這個是不需要組裝的零件)
2. 用組裝成為成品的零件，這些是給工廠來組裝用
2.1 Frame per Dwg 表是用來 透過組裝圖號 帶出一些 組裝圖號的零件 (這個是用來組裝用的零件） |
|
|
|
|
|
|
|
- 帖子
- 1517
- 主題
- 40
- 精華
- 0
- 積分
- 1541
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-31
|
回復 111# 198188
1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別
2.增加一個工地用的工作表，改一下程式讓兩種不同資料分開放
3.其它
請選擇1,2或3 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
回復 198188
1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別
2.增加一個工地用的工 ...
Andy2483 發表於 2025-10-30 17:40
1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別
之前綠色就是工地用，不過沒有完全篩除在Frame per Dwg 存在的分佈圖號
我試過幾個不同的樓層模式，發現下面這個情況：
02F-08F 這個模式好像有篩查出來，
VMU, PMU, LMI&SMI, LMI 這個模式就沒有篩查出來。 |
|
|
|
|
|
|
|
- 帖子
- 1517
- 主題
- 40
- 精華
- 0
- 積分
- 1541
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-31
|
1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別
之前綠色就是工地用，不過沒有完全 ...
198188 發表於 2025-10-30 17:46
Data base裡List表有哪一個欄位區別 工地用或 工廠用嗎？ |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
Data base裡List表有哪一個欄位區別 工地用或 工廠用嗎？
Andy2483 發表於 2025-10-30 17:59
那些是製表時才需要，備註欄會標注不同符號。
現在part list 是導出所有需要的零件，然後再透過本檔Part list表 備註欄和本檔Rule表來分配，以不同零件大類，分為
工地用/工廠用。 |
|
|
|
|
|
|
|
- 帖子
- 1517
- 主題
- 40
- 精華
- 0
- 積分
- 1541
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-31
|
本帖最後由 Andy2483 於 2025-10-30 20:11 編輯
回復 115# 198188
用99樓的程式碼修改一下
T = Brr(i, 8) ：T1 = Brr(i, 7)
If (Z(T) > 0 Or Z(Q) >0) and instr("YO" , T1) > 0 Then
N = N + 1
For j = 1 To 13: Arr(N, j) = Brr(i, j): Next
Arr(N, 14) = Arr(N, 3) & " x " & (Z(T) + Z(Q))
Arr(N, 3) = Arr(N, 3) * (Z(T) + Z(Q))
End If
If Z(T & "/") > 0 And Z.Exists("|" & Left(T, 2)) and instr("YO" , T1)= 0 Then
R = R + 1
For j = 1 To 13: Crr(R, j) = Brr(i, j): Next
Crr(R, 14) = Crr(R, 3) & " x " & Z(T & "/")
Crr(R, 3) = Crr(R, 3) * Z(T & "/")
End If
加條件：G欄是Y或O的歸工地用(綠色),其它歸工廠用 (黃色),試試看 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
本帖最後由 198188 於 2025-10-30 20:24 編輯
回復 198188
用99樓的程式碼修改一下
T = Brr(i, 8) ：T1 = Brr(i, 7)
If (Z(T) > 0 Or Z(Q) > ...
Andy2483 發表於 2025-10-30 20:04
這個修改是否已經解決下面的問題
本檔 Part List 表的 規則是有2條：
1. 根據本檔Layout Dwg 的分佈圖 欄 A，而沒有出現在本檔 Frame per Dwg表内，帶出 Data Base 檔 Part List表内一樣的分佈圖資料
1.1 如果最後一個字是小寫英文，就先去除再對比Data Base檔 Part List表的分佈圖資料
1.2 Qty 計算一樣
2. 根據本檔Frame per Dwg 的 組裝圖 欄B ,
2.1 本檔Frame per Dwg 的組裝圖號 含有 本檔WO No F-K欄的字母
2.2 帶出 Data Base 檔 Part List表内一樣的分佈圖資料
2.3 Qty 計算一樣 |
|
|
|
|
|
|
|
- 帖子
- 1517
- 主題
- 40
- 精華
- 0
- 積分
- 1541
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-31
|
回復 117# 198188
加改這段
Brr = Range(Brr, Brr.Offset(, 1))
For i = 2 To UBound(Brr)
If Z(Brr(i, 1)) > 0 Then
N = N + 1
For j = 1 To 6: Brr(N, j) = Brr(i, j): Next
Brr(N, 7) = Brr(N, 5) & " x " & Z(Brr(i, 1))
Brr(N, 5) = Brr(N, 5) * Z(Brr(i, 1))
Z(Brr(i, 2) & "/") = Z(Brr(i, 2) & "/") + Brr(N, 5)
End If
Next
For i = 1 to N
Brr( i ,1) = i
Next
Sheets("Frame per Dwg").[A1] = " No "
If N > 0 Then Sheets("Frame per Dwg").[A2].Resize(N, 7) = Brr: N = 0 Else MsgBox "Frame per Dwg_Nothing" |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 514
- 主題
- 71
- 精華
- 0
- 積分
- 610
- 點名
- 1
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2025-10-31
|
本帖最後由 198188 於 2025-10-30 21:09 編輯
回復 198188
加改這段
Brr = Range(Brr, Brr.Offset(, 1))
For i = 2 To UBound(Brr)
If Z(Brr ...
Andy2483 發表於 2025-10-30 20:40
這段修改是針對FRAME PER DWG表導出的內容嗎？ 之前 FRAME PER DWG 表導出內容沒問題的。
應該是針對PART LIST表需要導出的內容。是Part list 表的資料不正確。
應該在下面的程式加一句紅色的過濾規則
For i = UBound(Brr) To 2 Step -1
T = Brr(i, 8)
如果本檔Layout Dwg分佈圖號沒在本檔Frame per Dwg表出現，then
If T Like "*[a-z]" Then
'↑1.若T變數尾部是英文小寫
Q = Left(T, Len(T) - 1)
'↑就令Q變數是 T變數去掉尾部小寫英文後的字串
Else
'Q = "||"
'↑否則就令Q變數是 "||",
'如果沒有這行 Q = "||" !!,下一筆會殘留 尾部是英文小寫的數量
End If
If Z(T) > 0 Or Z(Q) > 0 Then
If Z(T) <> 0 And Z(Q) > 0 Then
MsgBox "Z(Q)有殘留!"
End If
N = N + 1
For j = 1 To 13: Arr(N, j) = Brr(i, j): Next
Arr(N, 14) = Arr(N, 3) & " x " & (Z(T) + Z(Q))
Arr(N, 3) = Arr(N, 3) * (Z(T) + Z(Q))
End If |
|
|
|
|
|
|
|
- 帖子
- 1517
- 主題
- 40
- 精華
- 0
- 積分
- 1541
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-31
|
本帖最後由 Andy2483 於 2025-10-30 22:29 編輯
回復 119# 198188
1.這程式碼已經亂掉了,全部都刪除
2.複製99 樓的程式碼貼進去
3.用116樓的程式碼換掉第2. 點裡的頭尾相同區間程式碼
4.用118樓的程式碼換掉第3. 點裡的頭尾相同區間程式碼
5.試試執行看看 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
發表於 
