三個欄位對比資料及讀取資料

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 25
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-10

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2024-2-27 11:34 | 只看該作者

三個欄位對比資料及讀取資料

KH 表核對 Data 表

從KH 表第3行開始到最後一行，在Data 表内找尋下面三個對比都相同的
KH 表欄B 對比 Data 表欄A
KH 表欄C 對比 Data 表欄B
KH 表欄D 對比 Data 表欄C

上面三樣都相同的話，將KH 表的欄E 導入DATA 表的該行相同數據的欄D

如果3樣有任何1樣不同的，將KH 表的欄B - D 導入DATA 表最後一行的欄A-D

最後DATA 欄E 就計算，欄D 減去欄F - 最後一欄有數據的

範例a.rar (19.2 KB)

樓主熱帖

mdr0465

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 17
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-5-7

16^#

發表於 2024-3-3 22:44 | 只看該作者

回復 14# 准提部林

謝謝准大提供有用資料, 謝謝

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 25
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-10

15^#

發表於 2024-3-2 13:03 | 只看該作者

回復 14# 准提部林

謝謝准大指點

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

14^#

發表於 2024-3-2 12:37 | 只看該作者

類似問題發了好幾帖, 就在這給檔案//
程式碼須自己一行一行去解讀, 後續維護還是要靠自己

Xl0000203-1.rar (22.19 KB)

mdr0465

帖子: 159
主題: 44
精華: 0
積分: 241
點名: 17
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-5-7

13^#

發表於 2024-3-1 22:10 | 只看該作者

回復 5# Andy2483

Andy 學兄,
謝謝你詳細和耐心的解釋,
大後輩獲益良多, 謝謝指導

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 25
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-10

12^#

發表於 2024-3-1 14:52 | 只看該作者

回復 10# Andy2483

看了這些範例，跟著範例去修改，還有點懂，自己去創建，還需要更加深入了解知識才行。

帖子: 405
主題: 58
精華: 0
積分: 489
點名: 25
作業系統: win7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-10-30
最後登錄: 2024-5-10

11^#

發表於 2024-3-1 14:50 | 只看該作者

回復 8# hcm19522

謝謝

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

10^#

發表於 2024-3-1 14:44 | 只看該作者

回復 6# 198188

謝謝前輩一起學習
其實如果字典key不會重複特性與5# 的字典特性懂了,常運用就會進步

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

9^#

發表於 2024-3-1 14:36 | 只看該作者

本帖最後由 Andy2483 於 2024-3-1 14:49 編輯

回復 7# shuo1125

謝謝前輩一起學習
是的! 字典很特別
Option Explicit
Sub TEST()
Dim Z, V&
Set Z = CreateObject("Scripting.Dictionary")
V = Z("關鍵字1") + Z("關鍵字2") + Z("關鍵字3") + Z("關鍵字4") + 100
MsgBox Z.Count '此時Z字典裡已經有4個key
MsgBox Z("關鍵字1") + Z("關鍵字2") + Z("關鍵字3") + Z("關鍵字4")
End Sub
要常應用字典才能與字典成為好友

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流