Tải dữ liệu vào và so sánh với dữ liệu cần kiểm tra

[th7]

Chào các Bạn trong diễn đàn,
Mình có vấn đề xin được trình bày ở dưới và có đính kèm dữ liệu, nhờ mọi người hỗ hỗ mình:
Mình có hai tập tin dữ liệu excel, mình lưu tên lần lượt là prg.xlsx và AC10002.xlsx
1) prg là dữ liệu chương trình của mình làm.
2) AC10002 là dữ liệu trên hệ thống được tải về.
Bây giờ, mình muốn kiểm tra dữ liêu trong prg với AC10002 xem có bị sai sót gì không,
Cả hai loại dữ liệu đều được cố định các cột thông tin



Mình chỉ cần kiểm tra xem, các thông tin từ cột A, B, C, D, E, F, và G của file prg trùng và có trong file AC10002 là được,
Nếu Trùng thì thì hiên lên thông báo dữ liệu "OK"
Nếu có dòng nào đó có thông tin trong cột của dữ liệu "prg" không trùng thì hiện thông báo dữ liệu "NG" và tự động tô màu dòng không trùng đó.
Nhờ mọi người xem qua và hỗ trợ mình,
Cảm ơn!.

 

[HUONGHCKT]

Chào các Bạn trong diễn đàn,
Mình có vấn đề xin được trình bày ở dưới và có đính kèm dữ liệu, nhờ mọi người hỗ hỗ mình:
Mình có hai tập tin dữ liệu excel, mình lưu tên lần lượt là prg.xlsx và AC10002.xlsx
1) prg là dữ liệu chương trình của mình làm.
2) AC10002 là dữ liệu trên hệ thống được tải về.
Bây giờ, mình muốn kiểm tra dữ liêu trong prg với AC10002 xem có bị sai sót gì không,
Cả hai loại dữ liệu đều được cố định các cột thông tin
View attachment 273326
View attachment 273327

Mình chỉ cần kiểm tra xem, các thông tin từ cột A, B, C, D, E, F, và G của file prg trùng và có trong file AC10002 là được,
Nếu Trùng thì thì hiên lên thông báo dữ liệu "OK"
Nếu có dòng nào đó có thông tin trong cột của dữ liệu "prg" không trùng thì hiện thông báo dữ liệu "NG" và tự động tô màu dòng không trùng đó.
Nhờ mọi người xem qua và hỗ trợ mình,
Cảm ơn!.

Thử xem. Kết quả so sánh trả về ở cột H: OK là trùng, Sai và tô màu là có trường nào đó không trùng. Kiểm tra lại. (tôi chưa test kỹ)

 

[th7]

Thử xem. Kết quả so sánh trả về ở cột H: OK là trùng, Sai và tô màu là có trường nào đó không trùng. Kiểm tra lại. (tôi chưa test kỹ)

Chào Bạn HUONGHCKT,.
Mình có kiểm tra, kết quả chạy Tốt.
Cảm ơn Code VBA của Bạn nha. Cảm ơn rất nhiều.

 

[th7]

Thử xem. Kết quả so sánh trả về ở cột H: OK là trùng, Sai và tô màu là có trường nào đó không trùng. Kiểm tra lại. (tôi chưa test kỹ)

Chào bạn HUONGHCKT,
Mình đang bị vướng dữ liệu chữ hoa và chữ thường,
Bạn có thể kiểm tra cho mình phần Code có thể chấp nhận chữ hoa và chữ thường được không. (tức là không phân biệt chữ hoa hay chữ thường)
Cảm ơn Bạn,

 

[HUONGHCKT]

Chào bạn HUONGHCKT,
Mình đang bị vướng dữ liệu chữ hoa và chữ thường,
Bạn có thể kiểm tra cho mình phần Code có thể chấp nhận chữ hoa và chữ thường được không. (tức là không phân biệt chữ hoa hay chữ thường)
Cảm ơn Bạn,

Bạn có biết chút ít gì về VBA không? Nếu biết bạn mở module ra ngay dòng đầu tiên bạn thay
Option Explicit thành Option Compare Text
và chạy thử.
Nếu chưa được thì vẫn giữ nguyên dòng đầu tiên là Option Explicit sau đó tìm đến dòng

Key = Trim(Arr(i, 8)) & "|" & Trim(Arr(i, 9)) & "|" & Trim(Arr(i, 10)) & "|" & Trim(Arr(i, 1)) & "|" & Trim(Arr(i, 4)) & "|" & Trim(Arr(i, 6)) & "|" & Trim(Arr(i, 7))

và thay thành

 Key = Ucase(Trim(Arr(i, 8))) & "|" & Trim(Arr(i, 9)) & "|" & Ucase(Trim(Arr(i, 10))) & "|" & Ucase(Trim(Arr(i, 1))) & "|" & Ucase(Trim(Arr(i, 4))) & "|" & Ucase(Trim(Arr(i, 6))) & "|" & Trim(Arr(i, 7))

Và thay dòng:

         Temp = Trim(Sh.Cells(i, 1)) & "|" & Trim(Sh.Cells(i, 2)) & "|" & Trim(Sh.Cells(i, 3)) & "|" & Trim(Sh.Cells(i, 4)) & "|" & Trim(Sh.Cells(i, 5)) & "|" & Trim(Sh.Cells(i, 6)) & "|" & Trim(Sh.Cells(i, 7))

thành:

         Temp = Ucase(Trim(Sh.Cells(i, 1))) & "|" & Trim(Sh.Cells(i, 2)) & "|" & Ucase(Trim(Sh.Cells(i, 3))) & "|" & Ucase(Trim(Sh.Cells(i, 4))) & "|" & Ucase(Trim(Sh.Cells(i, 5))) & "|" & Ucsae(Trim(Sh.Cells(i, 6))) & "|" & Trim(Sh.Cells(i, 7))

và chạy thử.
Nôm nà thế này Ucase(gigido) là biến gigido từ chữ thường thành chũ hoa kể cả lúc trước gigido là chữ hoa

 

[th7]

Chào bạn HUONGHCKT,
Mình có làm theo hướng dẫn của Bạn., copy VBA code trên vào thì chạy Tốt,
Cảm ơn Bạn nha.

 

[befaint]

Option Explicit thành Option Compare Text

Bác nên đọc thêm các thuộc tính của Dictionary. Đọc bài chi tiết, đầy đủ theo link dưới, đừng đọc mấy bài có chữ "tổng quan".

Mục 3.4 nhé.

Bài 11. Dictionary

Bài 11. Dictionary (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) Dictionary (Dic) là một phần trong thư viện Microsoft Scripting Runtime (scrrun.dll), cho phép lưu trữ và truy xuất số lượng lớn Item theo Key duy nhất tương ứng. 1. Khai báo 1.1. Kiểu khai báo sớm (Có...

www.giaiphapexcel.com

 

[VetMini]

Bạn có biết chút ít gì về VBA không? Nếu biết bạn mở module ra ngay dòng đầu tiên bạn thay
Option Explicit thành Option Compare Text
...

Tại sao lại phải thay?
Cứ thêm vào, bao nhiêu Options cũng được.

 

[HUONGHCKT]

Bác nên đọc thêm các thuộc tính của Dictionary. Đọc bài chi tiết, đầy đủ theo link dưới, đừng đọc mấy bài có chữ "tổng quan".

Mục 3.4 nhé.

Bài 11. Dictionary

Bài 11. Dictionary (Danh sách các bài viết về VBA xem ở đây Index - Các bài viết về VBA) Dictionary (Dic) là một phần trong thư viện Microsoft Scripting Runtime (scrrun.dll), cho phép lưu trữ và truy xuất số lượng lớn Item theo Key duy nhất tương ứng. 1. Khai báo 1.1. Kiểu khai báo sớm (Có...

www.giaiphapexcel.com

Cảm ơn anh đã chỉ giáo và cho tôi có thêm kinh nghiệm và kiến thức. Thực tình tôi cũng Sarch trên diễn đàn

"Không phân biệt chữ hoa và chữ thường - VBA"​

và có được kết quả. Nên gửi bạn ấy và vẫn nhắc chạy thử, chứ tôi cũng không thử lần nào