麻辣家族討論版版 » Excel程式區 » 資料比對後填入相應資料以及公式

返回列表下一主題上一主題發帖

[發問] 資料比對後填入相應資料以及公式

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-4-2 11:52 | 顯示全部帖子

[發問] 資料比對後填入相應資料以及公式

[attach]33163[/attach]
各位先進們好
第一次上論壇發問，如有禮貌不周請海涵
在下用我有限知識寫的VBA，
原始資料將近300個活頁(活頁還會繼續增加)，比對時經常會有幾百筆資料，
因此在作比對資料的時候所需時間很長
因此，上來提問，希望可以增進用VBA處理資料的能力
希望先進們幫忙
如範例檔案中的如範例檔案中的"工作表1"內的"O欄"為要查詢的資料項目
巨集"Sub SEARCH_aLL()"內容希望麻煩先進們協助改進
謝謝各位

%%2020.rar (414.43 KB)

收藏

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

2^#

發表於 2021-4-4 22:39 | 顯示全部帖子

回復 2# 軒云熊
熊大
謝謝您關切
該算式是計算"工作表1"內的工作表1"內的"I"欄位*"H"欄位
預先填入公式為了方便填入數量後算出小記金額用的
勞駕您了真感謝您

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

3^#

發表於 2021-4-5 13:50 | 顯示全部帖子

用"工作表1"O欄內容比對工作表P39-P139的內容後，提取比對成功的工作表欄位資訊，製作出隨附檔案執行後內容
比對前:

比對後:

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

4^#

發表於 2021-4-6 18:57 | 顯示全部帖子

回復 6# 軒云熊

非常感謝軒云熊大大，
完全符合我的期待，速度上也快了許多，
程式碼的部分我會好好鑽研，
原先需要約8秒的工作目前縮減到約兩秒鐘
非常感謝您的協助。

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

5^#

發表於 2021-4-7 20:16 | 顯示全部帖子

回復 8# jcchiang
非常感謝jcchiang大大的協助，給了另一種方式解決問題，更感謝也順道幫忙把跨欄都做好了。
現在想增加一個功能，就是把"O"欄內比對不成功的儲存格文字變成紅色，該加那些語句呢?煩請您告知，感謝您！

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

6^#

發表於 2021-4-8 20:16 | 顯示全部帖子

回復 10# samwang
感謝samwang大大的協助，功能格式和"O"欄比對失敗變成紅色文字的功能都正確。
萬分感謝:)

中學生 Rank: 2

帖子: 7
主題: 1
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: 新竹
註冊時間: 2021-1-2
最後登錄: 2023-8-8

7^#

發表於 2021-4-11 20:47 | 顯示全部帖子

回復 10# samwang
感謝 samwang 大大，功能一切正確，非常感謝
唯一不解是，一樣是用字典和陣列為何您的寫法持行速度比較快?

靜思自在 : 君子為目標，小人為目的。

返回列表下一主題上一主題