@phanmoi688
với lại em xem chỗ code hình như nó bị lỗi font hay sao mà có mấy chữ bị lẫn tiếng trung vào nữa á
Bạn chụp hình cái module bị lỗi và ảnh cái lỗi hiện lên nhé.
e ko biết về VBA nma e sẽ thử làm theo anh hướng dẫn ạ
em làm thử mà ko ddc ạ, a xem có cách nào giúp e ko
Không được viết tắt. Bạn không đủ kiên nhẫn để viết đủ chữ hay sao?
do thói quen của mình thôi
Đó là nhắc bạn vậy thôi . Chứ nó không ảnh hưởng gì tới mình cả. Còn việc bạn cứ viết theo thói quen thì sẽ hạn chế những người có nhã hứng giúp bạn thôi.
À vâng cảm ơn bạn đã có ý nhắc nhở, mình cảm ơn!
Đã có thành viên nhắc bạn là không nên viết tắt rồi và tác hại của nó ra sao rồi .
Dạ vâng em cảm ơn, em đã làm được rồi, vậy nếu em muốn dùng code này áp dụng cho các biểu của các tổ tương tự thì em phải làm như thế nào ạ.
Có nhiều tổ không? và mỗi file ấy thì so sánh với cột nào của sheet nào?
có 5 tổ và dữ liệu cần dò tìm của các tổ đều như nhau ạ
Bạn có thấy vế thứ 2 của câu hỏi không? nó là "...file ấy thì so sánh với cột nào của sheet nào?".
Vâng em xin lỗi vì đã không nói rõ ý, trường dữ liệu ở các tổ khác cũng tương tự với nhau, và cái em cần dò cũng là dữ liệu nhập xuất (mã số công lệnh, mã hàng, kích thước, tên phụ kiện) như hai tổ ban đầu ạ
Nói thế có nghĩa là so sánh 1 cột nào đó của 5 file tạm gọi là % file nguồn) với 1 cột của 1 file (tạm gọi là file Đích) với điều kiện dữ liệu có (mã số công lệnh, mã hàng, kích thước, tên phụ kiện) như nhau được kết quả phản ánh vào 5 cột của sheet so sánh của file đích.
Dạ vâng ý của em đúng là như vậy ạ
Em cảm ơn anh ạ, em đã tổng hợp lại các file cần dùng theo lời khuyên của anh, cũng như đã nêu mô tả trong mỗi file rồi ạ, mong được anh giúp đỡ ạ.
Option Explicit
Sub doichieu()
Dim lr&, i&, k&, m&, rng, res(1 To 10000, 1 To 12), st$, n
Dim ws As Worksheet, dic As Object
Set dic = CreateObject("Scripting.Dictionary")
For Each ws In Sheets
n = Left(ws.Name, 1)
If IsNumeric(n) Then
lr = ws.Cells(Rows.Count, "C").End(xlUp).Row
rng = ws.Range("B5:H" & lr).Value
For i = 1 To UBound(rng)
st = rng(i, 1) & "|" & rng(i, 2) & "|" & rng(i, 3) & "|" & rng(i, 4)
If Not dic.exists(st) Then
dic.Add st, ""
k = k + 1: res(k, 1) = st
res(k, n * 2) = rng(i, 6)
res(k, n * 2 + 1) = rng(i, 7)
Else
For m = 1 To k
If res(m, 1) = st Then
res(m, n * 2) = res(m, n * 2) + rng(i, 6)
res(m, n * 2 + 1) = res(m, n * 2 + 1) + rng(i, 7)
End If
Next
End If
Next
End If
Next
dic.RemoveAll
Sheets("Doichieu").Activate
Range("B5:L10000").ClearContents
Range("B5").Resize(k, 12).Value = res
End Subdạ vâng em cảm ơn anh nhiều ạ
@phanmoi688 . Bạn đã có đáp án rồi. Code của anh bebo 021999 là code sịn đó.
Dạ em cảm ơn anh đã cho em thêm một cách để tham khảo, nhân tiện anh có thể hướng dẫn em sửa lại đoạn code này để nó hoạt động được không ạ, do ban đầu code báo lỗi "Syntax error" nên em đã thêm 1 dấu " vào chỗ code báo lỗi (em đã đánh dấu chỗ bị lỗi trên ảnh), thì code báo ra lỗi khác, mong được anh giúp ạ.
Tôi đặt Col= Appication.Worksheet Function.Match(Range(A3:Z3),"Ghi chú",0) để tìm cột Ghi chú nhằm ghi kết quả vào cột đó.
