返回列表 上一主題 發帖

[發問] 比較二張工作表差異部份

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-2-9 12:42 | 只看該作者

[發問] 比較二張工作表差異部份

各位先進前輩！
同活頁簿內，相同格式之二張工作表。
依照E欄料號資料，比較二張工作表差異部份。
一、        同日期內同料號之不同資料儲存格填滿黃色。
二、        同日期內不同料號，則整列填滿綠色。
如附檔內說明
謝謝指導

B3.rar (8.11 KB)
收藏 分享
100 字節以內
不支持自定義 Discuz! 代碼

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
255  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-2-9 15:48 | 只看該作者
回復 1# b9208
  1. Sub nn()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Set dd = CreateObject("Scripting.Dictionary")
  5. Set dd1 = CreateObject("Scripting.Dictionary")
  6. Set d1 = CreateObject("Scripting.Dictionary")
  7. With Sheet1
  8. For Each A In .UsedRange.Columns("F").Cells
  9. If IsDate(A) Then myday = A
  10. If Not IsEmpty(myday) And A <> "" Then
  11. d(myday & A.Offset(, -1)) = Join(Application.Transpose(Application.Transpose(A.Resize(, 10))), Chr(10))
  12. dd(myday & A.Offset(, -1)) = A.Address
  13. A.EntireRow.Interior.ColorIndex = -4142
  14. End If
  15. Next
  16. End With
  17. With Sheet2
  18. For Each A In .UsedRange.Columns("F").Cells
  19. If IsDate(A) Then myday = A
  20. If Not IsEmpty(myday) And A <> "" Then
  21. d1(myday & A.Offset(, -1)) = Join(Application.Transpose(Application.Transpose(A.Resize(, 10))), Chr(10))
  22. dd1(myday & A.Offset(, -1)) = A.Address
  23. A.EntireRow.Interior.ColorIndex = -4142
  24. End If
  25. Next
  26. End With
  27. For Each ky In d.keys
  28.    If d1.exists(ky) = True Then
  29.       If d(ky) <> d1(ky) Then
  30.          ar = Split(d(ky), Chr(10))
  31.          ar1 = Split(d1(ky), Chr(10))
  32.          For i = 0 To 9
  33.            If ar(i) <> ar1(i) Then
  34.            Sheet1.Range(dd(ky)).Offset(, i).Interior.ColorIndex = 6
  35.            Sheet2.Range(dd(ky)).Offset(, i).Interior.ColorIndex = 6
  36.            End If
  37.          Next
  38.       End If
  39.       Else
  40.       Sheet1.Range(dd(ky)).EntireRow.Interior.ColorIndex = 35
  41.     End If
  42. Next
  43. For Each ky In d1.keys
  44.    If d.exists(ky) = False Then Sheet2.Range(dd1(ky)).EntireRow.Interior.ColorIndex = 35
  45. Next
  46. End Sub
複製代碼
學海無涯_不恥下問

TOP

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
3#
發表於 2011-2-10 13:18 | 只看該作者
回復 2# Hsieh
Dear Hsieh
測試後，針對增加或減少料號之整列填滿綠色ok（可以修訂只有資料區域，而不是整列），
但對於同料號其內容資料有異儲存格填滿黃色的部份，如同日內有增加或減少料號列數，則其黃色位置會跑掉。
請參考附檔
非常感謝指導
B3_1.rar (14.18 KB)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題