請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料 - Excel程式區

198188

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

111^# 跳轉到 »

發表於 2025-10-30 17:05 | 只看該作者

本帖最後由 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 表是用來透過組裝圖號帶出一些組裝圖號的零件 (這個是用來組裝用的零件）

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

112^#

發表於 2025-10-30 17:40 | 只看該作者

回復 111# 198188

1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別

2.增加一個工地用的工作表，改一下程式讓兩種不同資料分開放

3.其它

請選擇1,2或3

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

113^#

發表於 2025-10-30 17:46 | 只看該作者

回復 198188

1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別

2.增加一個工地用的工 ...
Andy2483 發表於 2025-10-30 17:40

1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別

之前綠色就是工地用，不過沒有完全篩除在Frame per Dwg 存在的分佈圖號

我試過幾個不同的樓層模式，發現下面這個情況：
02F-08F 這個模式好像有篩查出來，
VMU, PMU, LMI&SMI, LMI 這個模式就沒有篩查出來。

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

114^#

發表於 2025-10-30 17:59 | 只看該作者

1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別

之前綠色就是工地用，不過沒有完全 ...
198188 發表於 2025-10-30 17:46

Data base裡List表有哪一個欄位區別工地用或工廠用嗎？

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

115^#

發表於 2025-10-30 18:57 | 只看該作者

Data base裡List表有哪一個欄位區別工地用或工廠用嗎？
Andy2483 發表於 2025-10-30 17:59

那些是製表時才需要，備註欄會標注不同符號。
現在part list 是導出所有需要的零件，然後再透過本檔Part list表備註欄和本檔Rule表來分配，以不同零件大類，分為
工地用/工廠用。

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

116^#

發表於 2025-10-30 20:04 | 只看該作者

本帖最後由 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的歸工地用(綠色),其它歸工廠用 (黃色),試試看

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

117^#

發表於 2025-10-30 20:12 | 只看該作者

本帖最後由 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 計算一樣

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

118^#

發表於 2025-10-30 20:40 | 只看該作者

回復 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"

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

高中生 Rank: 3 Rank: 3

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

119^#

發表於 2025-10-30 21:05 | 只看該作者

本帖最後由 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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

120^#

發表於 2025-10-30 22:26 | 只看該作者

本帖最後由 Andy2483 於 2025-10-30 22:29 編輯

回復 119# 198188

1.這程式碼已經亂掉了,全部都刪除
2.複製99 樓的程式碼貼進去
3.用116樓的程式碼換掉第2. 點裡的頭尾相同區間程式碼
4.用118樓的程式碼換掉第3. 點裡的頭尾相同區間程式碼
5.試試執行看看

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]