Bác ơi. tại em viết ứng dụng cần dùng code đề xử lý nhửng vấn đề khác nửa
Em viết thử không biết có đúng ý bác không.
Bạn dùng code sau nhé:
Sub Tong_HLMT()
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName & ";Extended properties=""Excel 8.0;HDR=No"""
Sheet1.[N5].CopyFromRecordset (cn.Execute("select F1,Sum(F2) from (Select F1,F2 from [sheet1$B5:C] union all select F1, F3 from [sheet1$E5:G] union all select F1,F4 from [sheet1$I5:L]) where F1 is not null group by F1"))
End SubCOde bác quá tuyệt vời. Nhưng đọc em không hiểu gì hết. bác có thể sữa lại code cho dễ dễ xíu được không. ý e là dể dàng thay đổi đầu vào đầu ra của dữ liệu . Em cảm ơn Bác
Ủa thì em cũng tự viết mà dùng hàm SUmif nó nặng. thì không biết thì mới lên đâu hỏi chứ em biết rồi em lên đây hỏi làm gì. Còn Riêng bác em không cần bác giúp. Từ này về sau em cần sự giúp đở của Bác. Bác giỏi nhưng phải có Tâm giúp người khác thì mới Bền được. Chứ Bác Hơn thua ganh ghét người ta làm gì. Khi ta không biết người ta mới hỏi ai giúp được thì giúp thì tôi xin chân thành cảm ơn, còn ai không giúp thì cũng chẳng sao cả. Còn Bác không giúp mà Bác còn nói chuyện làm cho người ta không Vui. Còn tôi viết ứng dụng cho công việc của tôi, Tôi thích VBA nên nghiên cứu. Và tất nhiên không biết ta sẻ hỏi. Và từ nay tôi hỏi tôi không cần sự trợ giúp của BÁc. Chào BÁc
Làm việc với dữ liệu việc đầu tiên là phải chú ý để định dạng chuẩn.
Chỉ là Union Query thôi bạn. Nếu muốn hiểu thì bạn có thể tham khảo về các câu lệnh truy vấn trong Access nhé.
Sao phải dùng Dic? Tôi không quen dùng Dic bạn à.
Nếu bạn nói vậy thì tham khảo code này. Chỉ tham khảo thôi vì mình chỉ viết code cho ra đúng kết quả như bạn mong đợi trong file mẫu
Sub abc()
Dim sArr(), i As Long, Dic As Object, Tmp As String, k As Long, j As Long, x As Long
Dim TenHang(), SL()
Set Dic = CreateObject("scripting.dictionary")
sArr = [B5:L10000].Value
SL = Array(2, 6, 11)
TenHang = Array(1, 4, 8)
ReDim Preserve sArr(1 To UBound(sArr), 1 To UBound(sArr, 2) + 3)
For i = 1 To UBound(sArr)
For j = LBound(SL) To UBound(SL)
If sArr(i, TenHang(j)) <> Empty Then
Tmp = sArr(i, TenHang(j))
Tmp = Replace(LCase(Tmp), " ", "")
If Not Dic.exists(Tmp) Then
k = k + 1
Dic.Add Tmp, k
sArr(k, UBound(sArr, 2) - 1) = sArr(i, TenHang(j))
sArr(k, UBound(sArr, 2)) = sArr(i, SL(j))
Else
x = Dic.Item(Tmp)
sArr(x, UBound(sArr, 2)) = sArr(x, UBound(sArr, 2)) + sArr(i, SL(j))
End If
End If
Next
Next
[B5].Resize(UBound(sArr), UBound(sArr, 2)) = sArr
End Sub
