Chương trình so sánh 2 file Excel

  • Thread starter Thread starter hkthuy
  • Ngày gửi Ngày gửi
Liên hệ QC
H

hkthuy

Thành viên mới
Tham gia
22/5/10
Bài viết
16
Được thích
0
Chào mọi người. M đang cần sự giúp đỡ để giải quyết 1 bài tập khó. Hi vọng sẽ nhận được những lời giải đáp của các bạn.
Nội dung như sau:
Cho 2 file Excel thống kê số hàng bán trong 1 ngày của 1 cửa hàng.(do 1 nhân viên đứng bán và 1 nhân viên thu ngân thống kê) gồm các cột: Mã hàng, tên hàng, tổng giá.
Yêu cầu.
1/Xuất ra những mặt hàng mà MaHang file 1 có, file 2 không có.
2/Xuất ra những mặt hàng mà MaHang file 2 có, file 1 không có.
3/Xuất ra những mặt hàng mà MaHang file 1 & 2 đều có và TongGia giống nhau.
4/Xuất ra những mặt hàng mà MaHang file 1 & 2 đều có và TongGia khác nhau.
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Để nhận được sự giúp đỡ nhiệt tình của các thành viên bạn hãy gửi file mẫu lên, kèm theo việc diễn giải chi tiết các yêu cầu của bài toán, nếu cần thiết bạn lấy cả ví dụ cụ thể về số liệu mong muốn có được bằng cách gõ trực tiếp vào file mẫu.
 
Upvote 0
Đây là file đính kèm(Số liệu thử). Các bạn giúp mình.
Cảm ơn
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Cặp macro của bạn đây

PHP: 
Option Explicit
Dim ShN As Worksheet, ShD As Worksheet
Dim Rng As Range, sRng As Range, Rng0 As Range

Sub HaiTrong1()
 Dim Lech As Byte, Cls As Range
 
 Lech = InputBox("Hay Chon Fuong Án", "1 - Lech 1", "1")
 If Lech = 1 Then
   Set ShN = Sheets("WToE"):        Set ShD = Sheets("PToE")
   Set Rng0 = ShN.Range(ShN.[c3], ShN.[c65500].End(xlUp))
   Set Rng = ShD.Range(ShD.[c2], ShD.[c65500].End(xlUp))
   Sheets("Lech1").Select
 ElseIf Lech = 2 Then
   Set ShD = Sheets("WToE"):        Set ShN = Sheets("PToE")
   Set Rng0 = ShN.Range(ShN.[c3], ShN.[c65500].End(xlUp))
   Set Rng = ShD.Range(ShD.[c2], ShD.[c65500].End(xlUp))
   Sheets("Lech2").Select
 ElseIf Lech > 2 Then
   Set ShN = Sheets("WToE"):        Set ShD = Sheets("PToE")
   Set Rng0 = ShN.Range(ShN.[c3], ShN.[c65500].End(xlUp))
   Set Rng = ShD.Range(ShD.[c2], ShD.[c65500].End(xlUp))
   If Lech = 3 Then
      Sheets("Giong1").Select
   Else
      Sheets("KhacTri").Select
   End If
   [c4].Resize(Rng0.Rows.Count + Rng.Rows.Count, 5).ClearContents
   For Each Cls In Rng0
      Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         If Cls.Offset(, 4).Value = sRng.Offset(, 4).Value _
            And Lech = 3 Then
            With [c65500].End(xlUp).Offset(1)
               .Resize(, 5).Value = Cls.Resize(, 5).Value
            End With
         ElseIf Cls.Offset(, 4).Value <> sRng.Offset(, 4).Value _
            And Lech = 4 Then
            With [c65500].End(xlUp).Offset(1)
               .Resize(, 5).Value = Cls.Resize(, 5).Value
               .Offset(1).Resize(, 5).Value = sRng.Resize(, 5).Value
            End With
         End If
      End If
   Next Cls
   Exit Sub
 End If
 [c4].Resize(Rng0.Rows.Count, 5).ClearContents
 Chung12 Lech
 
 Set ShN = Nothing:                 Set ShD = Nothing
 Set sRng = Nothing:                Set Rng0 = Nothing
End Sub
PHP: 
 Sub Chung12(Lech As Byte)
  Dim Cls As Range
 
 For Each Cls In Rng0
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      With [c65500].End(xlUp).Offset(1)
         .Resize(, 5).Value = Cls.Resize(, 5).Value
      End With
   End If
 Next Cls
End Sub
 

File đính kèm

Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
hkthuy đã viết:
M đã up lên dữ liệu để thử. Rất mong nhận được sự góp ý của mọi người
Nhấp chuột vào đây để mở rộng...
Giống giống khác khác... tối tăm mặt mũi, Đọc code của HYen17 càng tẩu hỏa nhập ma (tại chưa đủ trình độ để hiểu), lỡ làm bằng công thức và vài cột phụ để tham khảo, hy vọng ra kết quả đúng.
 

File đính kèm

Upvote 0
HYen17 đã viết:
PHP: 
Option Explicit
Dim ShN As Worksheet, ShD As Worksheet
Dim Rng As Range, sRng As Range, Rng0 As Range

Sub HaiTrong1()
 Dim Lech As Byte, Cls As Range
 
 Lech = InputBox("Hay Chon Fuong Án", "1 - Lech 1", "1")
 If Lech = 1 Then
   Set ShN = Sheets("WToE"):        Set ShD = Sheets("PToE")
   Set Rng0 = ShN.Range(ShN.[c3], ShN.[c65500].End(xlUp))
   Set Rng = ShD.Range(ShD.[c2], ShD.[c65500].End(xlUp))
   Sheets("Lech1").Select
 ElseIf Lech = 2 Then
   Set ShD = Sheets("WToE"):        Set ShN = Sheets("PToE")
   Set Rng0 = ShN.Range(ShN.[c3], ShN.[c65500].End(xlUp))
   Set Rng = ShD.Range(ShD.[c2], ShD.[c65500].End(xlUp))
   Sheets("Lech2").Select
 ElseIf Lech > 2 Then
   Set ShN = Sheets("WToE"):        Set ShD = Sheets("PToE")
   Set Rng0 = ShN.Range(ShN.[c3], ShN.[c65500].End(xlUp))
   Set Rng = ShD.Range(ShD.[c2], ShD.[c65500].End(xlUp))
   If Lech = 3 Then
      Sheets("Giong1").Select
   Else
      Sheets("KhacTri").Select
   End If
   [c4].Resize(Rng0.Rows.Count + Rng.Rows.Count, 5).ClearContents
   For Each Cls In Rng0
      Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         If Cls.Offset(, 4).Value = sRng.Offset(, 4).Value _
            And Lech = 3 Then
            With [c65500].End(xlUp).Offset(1)
               .Resize(, 5).Value = Cls.Resize(, 5).Value
            End With
         ElseIf Cls.Offset(, 4).Value <> sRng.Offset(, 4).Value _
            And Lech = 4 Then
            With [c65500].End(xlUp).Offset(1)
               .Resize(, 5).Value = Cls.Resize(, 5).Value
               .Offset(1).Resize(, 5).Value = sRng.Resize(, 5).Value
            End With
         End If
      End If
   Next Cls
   Exit Sub
 End If
 [c4].Resize(Rng0.Rows.Count, 5).ClearContents
 Chung12 Lech
 
 Set ShN = Nothing:                 Set ShD = Nothing
 Set sRng = Nothing:                Set Rng0 = Nothing
End Sub
PHP: 
 Sub Chung12(Lech As Byte)
  Dim Cls As Range
 
 For Each Cls In Rng0
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      With [c65500].End(xlUp).Offset(1)
         .Resize(, 5).Value = Cls.Resize(, 5).Value
      End With
   End If
 Next Cls
End Sub
Nhấp chuột vào đây để mở rộng...

Chào bạn. Bạn có thể giải thích thêm cho m một chút được chứ. M ko biết nhiều về Excel. Vì thế, đoạn code bạn viết m ko biết là sẽ insert nó vào đâu, hay xử lý nó ntn.
Cảm ơn vì sự giúp đỡ
 
Upvote 0
Hãy vận hành thuần thục với file đính kèm, nha

Chào bạn & có thể giải thích thêm cho m một chút được chứ. M ko biết nhiều về Excel. Vì thế, đoạn code bạn viết m ko biết là sẽ insert nó vào đâu, hay xử lý nó ntn.
Nhấp chuột vào đây để mở rộng...
--=0 --=0

(*) Cách xài 1 macro đã có nhiều trên diễn đàn, nên mình không nhắc lại nữa;

(*) Mình đã gán tổ hợp fím nóng cho macro đó là {CTRL}+{SHIFT}+H; Bạn cần bấm đồng thời chúng nha.
Khi đó 1 hộp thoại xuất hiện. Nó hỏi bạn muốn đi đâu & về đâu; Bạn bấm nhập số '1' nó sẽ làm theo iêu cầu đầu tiên của bạn & đưa ta về trang 'Lech1'; Những lần sau bạn cứ thử với các con số từ '2' đến '4'
Bạn có thể có vài cách kiểm tra sự đúng đắn của macro. Hãy tự làm với dữ liệu giả lập & sau đó đến dữ liệu của bạn.
Macro đang nằm ở đâu trong workbook của bạn thì tự tìm giúp cái nha.

Chúc bạn đạt ước nguyện của mình!
 

File đính kèm

Upvote 0
HYen17 đã viết:
--=0 --=0

(*) Cách xài 1 macro đã có nhiều trên diễn đàn, nên mình không nhắc lại nữa;

(*) Mình đã gán tổ hợp fím nóng cho macro đó là {CTRL}+{SHIFT}+H; Bạn cần bấm đồng thời chúng nha.
Khi đó 1 hộp thoại xuất hiện. Nó hỏi bạn muốn đi đâu & về đâu; Bạn bấm nhập số '1' nó sẽ làm theo iêu cầu đầu tiên của bạn & đưa ta về trang 'Lech1'; Những lần sau bạn cứ thử với các con số từ '2' đến '4'
Bạn có thể có vài cách kiểm tra sự đúng đắn của macro. Hãy tự làm với dữ liệu giả lập & sau đó đến dữ liệu của bạn.
Macro đang nằm ở đâu trong workbook của bạn thì tự tìm giúp cái nha.

Chúc bạn đạt ước nguyện của mình!
Nhấp chuột vào đây để mở rộng...
Chào bạn. Nếu file của m chỉ có 2 cột là MaHang và TongGia thì sẽ chỉnh ntn vậy bạn?
 
Upvote 0
Chào bạn. Nếu file của m chỉ có 2 cột là MaHang và TongGia thì sẽ chỉnh ntn vậy bạn?
Nhấp chuột vào đây để mở rộng...
Thấy file mới nói tiếp cái gì khác, chứ vầy thì dễ "Ông nói gà bà bảo vịt lắm!"
 
Upvote 0
Trong file cũ của m đó. m bỏ đi tất cả các cột khác, chỉ để lại cột MaHang và cột tổng giá
 

File đính kèm

Upvote 0
Nữa buổi để viết lại từ đầu & vẫn dễ hơn sửa

PHP: 
Option Explicit
Dim Sh0 As Worksheet, Rng As Range

Sub ThongKe()
 Dim S0 As Byte, StrC As String, KC As String:                          KC = Space(7)
 Dim Rws As Long:                                  Dim Sh As Worksheet, Rng0 As Range
 
 StrC = "Chon 1 De Xem Mau lech 1;" & Chr(10) & KC & "2 De Xem Mau Lech E;" & Chr(10) _
   & KC & "3 De Xem Gióng Nhau;" & Chr(10) & KC & "4 De Xem Khác Nhau Vè Tong Giá"
 S0 = InputBox(StrC, "GPE.COM Xin Chào!", "1")
 If S0 < 1 Or S0 > 4 Then Exit Sub
 Set Sh0 = _
   Sheets(Switch(S0 = 1, "Lech1", S0 = 2, "Lech2", S0 = 3, "Giong1", S0 = 4, "KhacTri"))
 Select Case S0
 Case 1, 3
   Set Sh = Sheets("PToE"):                                      Sheets("WToE").Select
   Rws = Sh.[b2].CurrentRegion.Rows.Count:               Set Rng = Sh.[b2].Resize(Rws)
   Sh0.[c4].Resize(Rws, 2).ClearContents
   Set Rng0 = [b2].Resize([b2].CurrentRegion.Rows.Count).Offset(1)
   GPE Rng0, S0
 Case 2, 4
   Set Sh = Sheets("WToE"):                                      Sheets("PToE").Select
   Rws = Sh.[b2].CurrentRegion.Rows.Count:               Set Rng = Sh.[b2].Resize(Rws)
   Sh0.[c4].Resize(Rws, 2).ClearContents
   Set Rng0 = [b2].Resize([b2].CurrentRegion.Rows.Count).Offset(1)
   GPE Rng0, S0
 End Select 
End Sub


Mã: 
[B]Sub GPE(Rng0 As Range, Num As Byte)[/B]
 Dim Cls As Range, sRng As Range
 
 For Each Cls In Rng0
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      If Num < 3 Then Sh0.[c65500].End(xlUp).Offset(1).Resize(, 2).Value _
         = Cls.Resize(, 2).Value
   Else
      If Num = 3 And Cls.Offset(, 1).Value = sRng.Offset(, 1).Value Then
         Sh0.[c65500].End(xlUp).Offset(1).Resize(, 2).Value = Cls.Resize(, 2).Value
      ElseIf Num > 3 And Cls.Offset(, 1).Value <> sRng.Offset(, 1).Value Then
         Sh0.[c65500].End(xlUp).Offset(1).Resize(, 2).Value = Cls.Resize(, 2).Value
      End If
   End If
 Next Cls
 Sh0.Select:                                                         Set Sh0 = Nothing
End Sub
 

File đính kèm

Upvote 0
Chào bạn. M đã coi bài của bạn. phần 1,2,3 thì ok. Nhưng trong phần 4 (lọc những MaHang giống nhau nhưng có TongGia khác nhau), nếu m muốn in ra các cặp sai TongGia thì giải pháp sẽ ntn? M lấy ví dụ cụ thể hơn, nếu tìm thấy MaHang = 123456 trong sheet WToE là 100 000 VND, trong sheet PToE là 120 000 VND.
Làm cách nào để trong sheet KhacTri (chọn 4) in ra định dạng table 4 cột như sau
STT_____MaHang____WToE______PToE
1_______123456_____100 000____120 000
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Sẵn lòng thôi, xin mời!

PHP: 
Option Explicit
Dim Sh0 As Worksheet, Rng As Range

Sub ThongKe()
 Dim S0 As Byte, StrC As String, KC As String:                          KC = Space(7)
 Dim Rws As Long:                                  Dim Sh As Worksheet, Rng0 As Range
 
 StrC = "Chon 1 De Xem Mau lech 1;" & Chr(10) & KC & "2 De Xem Mau Lech E;" & Chr(10) _
   & KC & "3 De Xem Gióng Nhau;" & Chr(10) & KC & "4 De Xem Khác Nhau Vè Tong Giá"
 S0 = InputBox(StrC, "GPE.COM Xin Chào!", "1")
 If S0 < 1 Or S0 > 4 Then Exit Sub
 Set Sh0 = _
   Sheets(Switch(S0 = 1, "Lech1", S0 = 2, "Lech2", S0 = 3, "Giong1", S0 = 4, "KhacTri"))
 Select Case S0
 Case 1, 3
   Set Sh = Sheets("PToE"):                                      Sheets("WToE").Select
   Rws = Sh.[b2].CurrentRegion.Rows.Count:               Set Rng = Sh.[b2].Resize(Rws)
   Sh0.[c4].Resize(Rws, 2).ClearContents
   Set Rng0 = [b2].Resize([b2].CurrentRegion.Rows.Count).Offset(1)
   GPE Rng0, S0
 Case 2, 4
   Set Sh = Sheets("WToE"):                                      Sheets("PToE").Select
   Rws = Sh.[b2].CurrentRegion.Rows.Count:               Set Rng = Sh.[b2].Resize(Rws)
   Sh0.[c4].Resize(Rws, 2).ClearContents
   Set Rng0 = [b2].Resize([b2].CurrentRegion.Rows.Count).Offset(1)
1   If S0 = 4 Then
      Sh0.[d3].Value = Sheets("PToE").Name:                       Sh0.[E3] = Sh.Name
2   End If
   GPE Rng0, S0
 End Select
 
End Sub
Mã: 
[B]Sub GPE(Rng0 As Range, Num As Byte)[/B]
 Dim Cls As Range, sRng As Range
 
 For Each Cls In Rng0
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      If Num < 3 Then Sh0.[c65500].End(xlUp).Offset(1).Resize(, 2).Value _
         = Cls.Resize(, 2).Value
   Else
      If Num = 3 And Cls.Offset(, 1).Value = sRng.Offset(, 1).Value Then
         Sh0.[c65500].End(xlUp).Offset(1).Resize(, 2).Value = Cls.Resize(, 2).Value
      ElseIf Num > 3 And Cls.Offset(, 1).Value <> sRng.Offset(, 1).Value Then
[COLOR=Blue]3[/COLOR]         With Sh0.[c65500].End(xlUp).Offset(1)
            .Resize(, 2).Value = Cls.Resize(, 2).Value
[COLOR=RoyalBlue]5[/COLOR]            .Offset(, 2).Value = sRng.Offset(, 1).Value
[COLOR=RoyalBlue]6 [/COLOR]        End With
      End If
   End If
 Next Cls
 Sh0.Select:                                                         Set Sh0 = Nothing
[B]End Sub[/B]
 
Upvote 0
Hi.
Mình có chút khó khăn mới trong chương trình này. Yêu cầu mới bắt buộc mình phải thể hiện sự khác nhau trong hai file. Mình không rành về Excel. Mình rất mong nhận được sự giúp đỡ của GPE. Cảm ơn mọi người đã ghé đọc tin.
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
File trống trơn thì đưa lên làm gì vậy bạn?
 
Upvote 0
Xl, Mình quên không bổ xung dữ liệu thử. Mọi người giúp mình
 
Upvote 0
Có ai giúp mình. GPE ơi! Tôi cần sự giúp đỡ. Sắp bị gõ đầu rùi.
 
Upvote 0
hkthuy đã viết:
Hi.
Mình có chút khó khăn mới trong chương trình này. Yêu cầu mới bắt buộc mình phải thể hiện sự khác nhau trong hai file. Mình không rành về Excel. Mình rất mong nhận được sự giúp đỡ của GPE. Cảm ơn mọi người đã ghé đọc tin.
Nhấp chuột vào đây để mở rộng...
Đọc trong file thì đây là yêu cầu so sánh 2 list:
- Tìm cái có trong A mà không có trong B
- Tìm cái có trong B mà không có trong A
- Tìm cái có trong cả A và B
vân vân...
Dạng này đã được làm nhiều lần trên GPE rồi ---> Nếu có thể được, bạn đưa dữ liệu nhiều 1 chút (làm mới đã tay) ---> Tóm lại, dữ liệu của bạn dài đến bao nhiêu hãy đưa hết lên càng tốt
 
Upvote 0
Đó chỉ là dữ liệu test. A có thể thêm vào tùy ý. Em đang cần sự giúp đỡ của cộng đồng GPE!^^
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

C
Trách nhiệm pháp lý của chi nhánh doanh nghiệp Việt Nam tại nước ngoài với Công ty tại Việt Nam
Trả lời
4
Đọc
122
cuongtri
C
GPE-Trợ Lý
[GPE] TALK SHOW HÀM QUERY - BÍ KÍP BIẾN DỮ LIỆU KHỔNG LỒ THÀNH THÔNG TIN HỮU ÍCH TRONG TÍCH TẮC
    • Thích
    • Yêu thích
Trả lời
5
Đọc
2K
Ha Manh-LD
Ha Manh-LD
huuthang_bd
Add-in DeleteVirusMacro - Xóa và ngăn chặn virus macro
    • Thích
    • Yêu thích
    • Chấp nhận
2 3
Trả lời
45
Đọc
14K
ngocthu90
ngocthu90
Uyên dương Hoya
Lỗi định dạng font chữ trong excel
Trả lời
3
Đọc
107
ptm0412
ptm0412
mucongnghenhat
lỗi đoạn văn bản bị đóng khung
Trả lời
1
Đọc
62
vietduc147258
V
T
  • Question Question
Xin code VBA trả về tên tài khoản theo điều kiện
    • Chấp nhận
Trả lời
12
Đọc
434
VetMini
V
HeSanbi
  • Question Question
VBA Nâng cao: Hướng dẫn tạo biểu thức tìm kiếm với Regular Expression
    • Thích
    • Yêu thích
Trả lời
8
Đọc
644
nguyendang95
N
ntnguyentam1907
Lấy bảng dữ liệu chứng khoán về excel
2
Trả lời
22
Đọc
3K
nguyendang95
N
PhanTuHuong
CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ
    • Thích
    • Cảm ơn
Trả lời
5
Đọc
765
hoangtuan.net
hoangtuan.net
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
14 15 16
Trả lời
305
Đọc
22K
pkt.bacdau
pkt.bacdau
HONGVY91
Đếm số lượng 2 cột và đếm không trùng
Trả lời
2
Đọc
130
hoangtuaotrang_hp_vn
H
hanhlx88
Nhờ giúp file Excel báo lỗi: Excel cannot complete this task with available resources
Trả lời
3
Đọc
189
hanhlx88
hanhlx88
HeSanbi
  • Đã giải quyết
LocalizeXL v1.73 - Làm nổi bật ô đang chọn và cuộn trang tự động
    • Thích
    • Yêu thích
2 3 4
Trả lời
73
Đọc
10K
HeSanbi
HeSanbi
L
Folder chứa chương trình bị khóa bởi Lock folder
2
Trả lời
28
Đọc
25K
qthangvphaui
Q
P
Xin trợ giúp cách lập lịch trực tịnh tiến dần cho 1 nhóm người.
Trả lời
4
Đọc
148
phambahoang
P
N
Tính tổng với điều kiện gần đúng
Trả lời
3
Đọc
75
HUONGHCKT
H
Bùi Thúy Thúy
  • Question Question
Lấy dữ liệu thời tiết Accuweather để điền vào nhật ký thi công
2 3 4
Trả lời
63
Đọc
19K
Mutants Men
M
Anxseo
  • Đã khóa
Cách crack my excel
Trả lời
1
Đọc
198
HeSanbi
HeSanbi
phatnguyen7301
  • Question Question
Tạo âm thanh khi nhấn vào một phím
Trả lời
5
Đọc
249
yaaasoo01
Y
anhtuan1066
  • Question Question
Chèn hình vào cell bằng hàm tự tạo
    • Thích
    • Ngạc nhiên
10 11 12
Trả lời
235
Đọc
106K
XaNguyen
X
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới.
Back
Top Bottom