返回列表 上一主題 發帖

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

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

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

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

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

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

資料庫

DATA.png

輸出結果

盤點表(結果).png

FA_beta.rar (72.65 KB)

1.當DATA所在地=盤點表B2時。
__B2底下還有其它"所在地", 怎解??

2.若遇到財產編號相同者,只列出頭一筆。
__只列一筆, 要不要累計?

3.將各所在地之資料分別輸出,以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??

TOP

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

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

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

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

以上,麻煩了,謝謝。

TOP

回復 1# shuo1125

請測試看看,謝謝

FA_beta_1124.zip (89.59 KB)

TOP

回復 3# shuo1125

3.將各所在地之資料分別輸出,以分頁區分。
__若同一所在地, 資料行數太多, 列印超過一頁, 怎解??
->若超過該行數,就列於第二、三頁以此類推...但若為不同所在地,是否就能接續在下頁中?
>> 可以,但是處理會比較複雜麻煩;4#是沒有考慮的超過1頁的問題
       建議:將每個各所在地,獨立放在個別新增工作表,不知是否可以?

TOP

回復 3# shuo1125


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

FA_beta_1124 R2.zip (96.11 KB)

TOP

回復 6# samwang

samwang大大您好!

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

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

TOP

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

回復 6# samwang

samwang好!

跳頁了

盤點表_結果.png
2021-11-24 21:56

差異(有少的號碼)

核對差異.png
2021-11-24 21:48

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

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

以上,在煩請撥冗解答了..感謝!

TOP

回復 8# shuo1125

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

FA_beta_1125.zip (102.18 KB)

TOP

回復 9# samwang

samwang大大好!

經測試資料已無誤,上述問題若您有空再解答,如沒有就不耽擱你時間了...
非常感謝你撥空幫忙處理!

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題