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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-11-23 22:08 | 只看該作者

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

各位前輩好，
若想以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)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2833
主題: 10
精華: 0
積分: 2889
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-11

2^#

發表於 2021-11-24 11:29 | 只看該作者

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

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

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

TOP

shuo1125

中學生 Rank: 2

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

3^#

發表於 2021-11-24 11:39 | 只看該作者

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

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

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

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

以上，麻煩了，謝謝。

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-11-24 13:45 | 只看該作者

回復 1# shuo1125

請測試看看，謝謝

FA_beta_1124.zip (89.59 KB)

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

5^#

發表於 2021-11-24 14:01 | 只看該作者

回復 3# shuo1125

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

6^#

發表於 2021-11-24 16:39 | 只看該作者

回復 3# shuo1125

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

FA_beta_1124 R2.zip (96.11 KB)

TOP

shuo1125

中學生 Rank: 2

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

7^#

發表於 2021-11-24 17:09 | 只看該作者

回復 6# samwang

samwang大大您好！

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

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

TOP

shuo1125

中學生 Rank: 2

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

8^#

發表於 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

samwang