請問規則02F - 04F 如果在Data Base 篩選在這個範圍内的相關資料
- 帖子
- 1514
- 主題
- 40
- 精華
- 0
- 積分
- 1538
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-30
|
1.工地用的篩選綠色，工廠用的篩黃色，這樣可以在同一表裡區別
之前綠色就是工地用，不過沒有完全 ...
198188 發表於 2025-10-30 17:46 
Data base裡List表有哪一個欄位區別 工地用或 工廠用嗎？ |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 1514
- 主題
- 40
- 精華
- 0
- 積分
- 1538
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-30
|
本帖最後由 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的歸工地用(綠色),其它歸工廠用 (黃色),試試看 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 1514
- 主題
- 40
- 精華
- 0
- 積分
- 1538
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-30
|
回復 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" |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
- 帖子
- 1514
- 主題
- 40
- 精華
- 0
- 積分
- 1538
- 點名
- 0
- 作業系統
- Windows 7
- 軟體版本
- Excel 2010 & 2016
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2020-7-15
- 最後登錄
- 2025-10-30
|
本帖最後由 Andy2483 於 2025-10-30 22:29 編輯
回復 119# 198188
1.這程式碼已經亂掉了,全部都刪除
2.複製99 樓的程式碼貼進去
3.用116樓的程式碼換掉第2. 點裡的頭尾相同區間程式碼
4.用118樓的程式碼換掉第3. 點裡的頭尾相同區間程式碼
5.試試執行看看 |
|
|
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流
|
|
|
|
|
發表於 
