[發問] 請教以字典抓取符合條件資料後輸出

各位前輩好，
若想以CreateObject("Scripting.Dictionary")字典方式抓取資料並將結果輸出，請問程式該如何寫..
(如圖檔及附檔)

以[盤點表]為模板，符合下列條件時，將DATA結果輸出如[盤點表(結果)]
1.當DATA所在地=盤點表B2時。
2.若遇到財產編號相同者，只列出頭一筆。
3.將各所在地之資料分別輸出，以分頁區分。
4.在最後進行各所在地數量小計。
5.有資料部分才框線。

以上，因資料有部分隱私，故只擷取部分檔案，性質雷同只是筆數多很多。

想請問有高手可以幫忙解答嗎，
麻煩了，謝謝！

DATA.png (149.29 KB)

資料庫

盤點表(結果).png (42.87 KB)

輸出結果

FA_beta.rar (72.65 KB)

樓主熱帖

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 46
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-4-18

2^#

發表於 2021-11-24 11:39 | 顯示全部帖子

回復 2# 准提部林
准大您好！
可能是我意思表達不清...如下回覆。

1.當DATA所在地=盤點表B2時。
__B2底下還有其它"所在地", 怎解??
->這部份是我表達不清楚..其實就是要列出各所在地資料，只是所在地會表達在盤點表B2。

2.若遇到財產編號相同者，只列出頭一筆。
__只列一筆, 要不要累計?
->不需累計，當成一筆就好。

3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數，就列於第二、三頁以此類推...但若為不同所在地，是否就能接續在下頁中？

以上，麻煩了，謝謝。

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 46
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-4-18

3^#

發表於 2021-11-24 17:09 | 顯示全部帖子

回復 6# samwang

samwang大大您好！

3.將各所在地之資料分別輸出，以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數，就列於第二、三頁以此類推...但若為不同所在地，是否就能接續在下頁中？
>> 可以，但是處理會比較複雜麻煩；4#是沒有考慮的超過1頁的問題
建議:將每個各所在地，獨立放在個別新增工作表，不知是否可以?
>>>若將所在地放至不同工作表也可並無強制...因以分頁模式處裡似乎困難度很高..剛跑似乎資料是有出來的
目前暫不確定資料量大時是否分頁會亂掉..因你又有幫忙寫一版，我晚點在測試完整版與原筆數是否正確。

謝謝你這麼有效率的幫忙處理及回覆...由衷感謝！

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 46
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-4-18

4^#

發表於 2021-11-24 21:51 | 顯示全部帖子

本帖最後由 shuo1125 於 2021-11-24 21:57 編輯

回復 6# samwang

samwang好！

建議:將每個各所在地，獨立放在個別新增工作表，不知是否可以?
>若以此方法做，請問該怎麼修正..?因測試後發現分頁會錯置以及有部分資料未帶入(如圖片)

另外有幾個問題想請問
一、T1 = T & "|" & Arr(i, 6)
>這一段是判斷是否有符合財產編號嗎? "|"這個的用意是..?
二、xD1(T1) = 1: xD1(T & "/1") = xD1(T & "/1") + Arr(i, 14)
>這段用法太高深..能夠解釋一下嗎?
三、將資料存入Arr陣列中時，此時Arr是視為物件嗎?字典xD也是物件嗎?有點無法理解...

以上，在煩請撥冗解答了..感謝！

TOP

shuo1125