123456
返回列表 上一主題 發帖

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

198188

帖子
475 
主題
71 
精華
0 
積分
571 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2025-10-27 
51# 跳轉到 »
發表於 2 小時前 | 只看該作者
回復  198188


    以下方案請試試看:

Option Explicit
Dim A, Z, R&, W, L, i&, Brr, Mrr, Q, Dr ...
Andy2483 發表於 2025-10-27 15:31



這個是製表部分嗎？
我前面Part List 抽取資料部分，能否幫我看看，如附圖規則。因爲這裏卡住，所以會影響制表的結果。

TOP

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1480 
主題
40 
精華
0 
積分
1504 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-10-27 
52#
發表於 2 小時前 | 只看該作者
回復 51# 198188


    "前面Part List 抽取資料部分"  是哪一樓層方案不符合需求?
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

198188

帖子
475 
主題
71 
精華
0 
積分
571 
點名
0  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2025-10-27 
53#
發表於 1 小時前 | 只看該作者
回復  198188


以下方案請試試看

Option Explicit
Sub TEST_2()
Dim Brr, Z, Q, i&, j%, N&, T$ ...
Andy2483 發表於 2025-10-13 13:21


Brr = xBook.Sheets("Part List").[A1].CurrentRegion
For i = 2 To UBound(Brr)
   If Z(Brr(i, 7)) > 0 Then
      N = N + 1
      For j = 1 To 13: Brr(N, j) = Brr(i, j): Next
      Brr(N, 3) = Brr(N, 3) * Z(Brr(i, 7))
   End If
Next
If N > 0 Then Sheets("Part List").[A2].Resize(N, 13) = Brr Else MsgBox "Part List_Nothing"



前輩是這個部分的資料不正確，應該以圖片的規則篩選PART LIST資料。

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
123456
返回列表 上一主題