[發問] 對比不相同的資料

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

21^#

發表於 2012-11-10 00:31 | 只看該作者

回復 23# Hsieh

excel.rar (526.51 KB)

請問如何在outstanding payments 根據order在HK ETA UPDATE的表內找尋相同ORDER，然後對比該ORDER 的ETA，如果兩個不同，就將OUTSTANDING PAYMENTS 表內的ETA 改成 HK ETA UPDATE表內的ETA (相同ORDER)，以及將改的那字改為紅色！如果對比兩個表相同ORDER的ETA相同就不變，而OUTSTANDING PAYMENTS內的ORDER如果在HK ETA UPDATE表內沒有，也不變！

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

20^#

發表於 2012-11-9 21:48 | 只看該作者

回復 20# Hsieh

要同時打開沒問題，但如何寫？
我有見過有人寫的vba不用打開兩個檔案，就可以vlookup相同名，然後就同名的相應資料傳回在當前的sheet內同名的相對位置

Hsieh

超級版主 Rank: 8 Rank: 8

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

19^#

發表於 2012-11-9 17:48 | 只看該作者

不同檔案間做比對就必須兩個檔案都在開啟狀態下讀取資料比對
不妨將檔案上傳以便了解資料結構

學海無涯_不恥下問

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

18^#

發表於 2012-11-9 10:33 | 只看該作者

另外請問vba可否讓一個excel 可以同時讓多位用家使用，輸入資料及儲存？

帖子: 582
主題: 75
精華: 0
積分: 682
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2012-10-30
最後登錄: 2026-4-13

17^#

發表於 2012-11-9 10:29 | 只看該作者

Sub sample()

Dim LastRec As Integer
Dim j As Integer
Dim i As Integer
Dim l As Integer
Dim data() As Range
l = 1

Worksheets("Sheet1").Range("A1").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row

For j = 1 To LastRec

i = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)

If Sheet1.Cells(i, 2).Value <> Sheet2.Cells(i, 2).Value Then

Sheet1.Cells(i, 2).Value = Sheet2.Cells(i, 2).Value
Sheet1.Cells(i, 2).Interior.Color = RGB(255, 200, 255)
End If

Next j

End Sub
請問i = Application.Match(Sheet1.Cells(1, j), "='C:\Users\Desktop\[1.xlsx]Sheet1'!.Range("A:A"), 0)這句哪裡出錯？我想在一個excel內找出桌面的另一個（1.xlsx) excel內相同的名稱，如果他們的值不同就改成另一個（1.xlsx) excel內的值