quoc nhat
Thành viên tiêu biểu
- Tham gia
- 8/3/12
- Bài viết
- 567
- Được thích
- 43
- Nghề nghiệp
- cán bộ ngành y tế
Chào các anh chị em có tìm trược trên Forum mình đoạn code so sánh dữ liệu giữa 2 file như sau:
em chế biến mãi mà không ra thành phẩm gì cả
nhờ các anh chị giúp em
nếu số đăng ký của sheet sh trùng với số đăng ký của sheet1 nhưng đơn giá của sheet sh khác với đơn giá của sheet1 thì lấy giá trị đó
xin lỗi các anh chị vì file quá nặng nên không đính kèm được
Mã:
Public Sub GPE()
On Error Resume Next
Dim fName As String, Wb As Workbook, Sh As Worksheet
fName = ThisWorkbook.Path & "\" & "TONG HOP KK thuoc 06.07.xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Wb = Application.Workbooks.Open(fName)
Set Sh = Wb.Worksheets("th ke khai")
Dim Dic As Object, I As Long, j As Long, k As Long, Tem As String, Tem1 As String, Tem2 As String, Sarr(), Darr(), tarr()
Set Dic = CreateObject("Scripting.Dictionary")
With Sh
Sarr = .Range(.[a2], .[a65000].End(xlUp)).Resize(, 14).Value
End With
For I = 1 To UBound(Sarr, 1)
Tem = UCase(Sarr(I, 12)) [COLOR=#ff0000][B]'So dang ky[/B][/COLOR]
Tem1 = Sarr(I, 8) [B][COLOR=#00ff00]' don gia[/COLOR][/B]
If Not Dic.Exists(Tem) Then
Dic.Add (Tem), ""
Dic.Add (Tem1), ""
End If
Next I
With Sheet1
tarr = .Range(.[a2], .[a65000].End(xlUp)).Resize(, 14).Value
ReDim Darr(1 To UBound(tarr, 1), 1 To 1)
For I = 1 To UBound(tarr, 1)
k = k + 1
Tem = UCase(tarr(I, 14)) [B][COLOR=#ff0000]' so dang ký[/COLOR][/B]
Tem1 = tarr(I, 8) [B][COLOR=#00ff00]' don giá[/COLOR][/B]
If Dic.Exists(Tem) And Not Dic.Exists(Tem1) Then
Darr(k, 1) = "x"
End If
Next I
Wb.Close (False)
If k Then
Sheet1.[o2].Resize(k - 1).Value = Darr
End If
End With
Set Dic = Nothing
End Subnhờ các anh chị giúp em
nếu số đăng ký của sheet sh trùng với số đăng ký của sheet1 nhưng đơn giá của sheet sh khác với đơn giá của sheet1 thì lấy giá trị đó
xin lỗi các anh chị vì file quá nặng nên không đính kèm được
