Giúp mình cái file tổng hợp báo cáo này với (1 người xem)

[Sakuni]

Giúp mình cái file tổng hợp báo cáo này với loay hoay mãi mà không ra .
Các bạn xem file giùm mình nhé , Cảm ơn nhiều

 

[nhat chi mai]

Giúp mình cái file tổng hợp báo cáo này với loay hoay mãi mà không ra .
Các bạn xem file giùm mình nhé , Cảm ơn nhiều

Dạng này chỉ có các Thầy dùng vba thôi, chứ dùng hàm hổng có làm được, trời, nhìn cái from mà định dạng cũng thấy tùm lum rồi ạ...huhu

 

[Sakuni]

Vậy nhờ Mod move giùm bài này sang box vba giùm mình với

 

[Quang_Hải]

Vậy nhờ Mod move giùm bài này sang box vba giùm mình với

Có "Move" đi đâu cũng vậy thôi. Bạn mô tả kiểu đó chẳng ai biết đường nào mà mò cho ra.

 

[Sakuni]

Có "Move" đi đâu cũng vậy thôi. Bạn mô tả kiểu đó chẳng ai biết đường nào mà mò cho ra.

Mình sửa lại mô tả rồi đó

 

[Quang_Hải]

Mình sửa lại mô tả rồi đó

Hên xui không trúng ráng chịu

Sub test()
Dim dl(), dltam(), kqtam(), kq()
Dim i As Long, j As Long, k As Long, n As Long, dk As String, x As Byte, kk As Byte
With Sheets("Chi tiet")
   dl = .Range(.[A4], .[K65536].End(3)).Value
End With
ReDim kq(1 To UBound(dl) * 2, 1 To 11)
ReDim dltam(1 To UBound(dl), 1 To 11)
With CreateObject("scripting.dictionary")
   For i = 1 To UBound(dl)
      If dl(i, 11) <> "" Then
         If Not .exists(dl(i, 11)) Then .Add dl(i, 11), ""
      End If
   Next
   kqtam = .keys
   .RemoveAll
   For i = 1 To UBound(dl)
      dk = dl(i, 2) & dl(i, 5) & dl(i, 11)
      If Not .exists(dk) Then
         n = n + 1
         .Add dk, n
         For x = 1 To 11
            dltam(n, x) = dl(i, x)
         Next
      Else
         For x = 6 To 10
            dltam(.Item(dk), x) = dltam(.Item(dk), x) + dl(i, x)
         Next
      End If
   Next
End With
For i = 0 To UBound(kqtam)
   k = k + 1
   kq(k, 1) = Application.Roman(i + 1)
   kq(k, 2) = kqtam(i)
   For j = 1 To UBound(dltam)
      If dltam(j, 11) = kqtam(i) Then
         k = k + 1: kk = kk + 1
         kq(k, 1) = kk
         kq(k, 2) = dltam(j, 2):         kq(k, 5) = dltam(j, 1)
         kq(k, 6) = dltam(j, 3):         kq(k, 7) = dltam(j, 4)
         kq(k, 8) = dltam(j, 5):         kq(k, 10) = dltam(j, 6)
         kq(k, 11) = dltam(j, 7)
      End If
   Next
   k = k + 1: kk = 0
Next
Sheets("Tong hop").[A5:k10000].ClearContents
Sheets("Tong hop").[A5].Resize(k, 11) = kq
End Sub

 

[Sakuni]

Hên xui không trúng ráng chịu

Cảm ơn bác nhưng gà như em thì không thể làm gì được với đoạn code của bác

 

[Quang_Hải]

Cảm ơn bác nhưng gà như em thì không thể làm gì được với đoạn code của bác

Bạn không cố gắng gì cả sao?

 

[Sakuni]

Bạn không cố gắng gì cả sao?

Cảm ơn sự nhiệt tình của bác rất nhiều .
Thực sự em không biết tý gì về vba cả mà Với Excel em chỉ tập tẹ mấy cái công thức hàm đã thấy khó lắm rồi .
Em muốn phiền bác chút nữa ,
Bác có thể hướng dẫn giùm em trong cái Bảng Báo cáo mà bác đã sửa cho em được không ?
Còn 3 cái cột L,M,N trên sheet Tong hop thì phải làm sao để lấy được số liệu từ sheet Chi tiet ?
Các dự án mà trong cùng 1 nguồn, Chương, Ngành nhưng phát sinh nhiều Mã Nội dung KT thì có thể sắp xếp liền nhau được không , sau đó mới đến dự án khác ?

 

[Quang_Hải]

Cảm ơn sự nhiệt tình của bác rất nhiều .
Thực sự em không biết tý gì về vba cả mà Với Excel em chỉ tập tẹ mấy cái công thức hàm đã thấy khó lắm rồi .
Em muốn phiền bác chút nữa ,
Bác có thể hướng dẫn giùm em trong cái Bảng Báo cáo mà bác đã sửa cho em được không ?
Còn 3 cái cột L,M,N trên sheet Tong hop thì phải làm sao để lấy được số liệu từ sheet Chi tiet ?
Các dự án mà trong cùng 1 nguồn, Chương, Ngành nhưng phát sinh nhiều Mã Nội dung KT thì có thể sắp xếp liền nhau được không , sau đó mới đến dự án khác ?

Bạn đưa có 5 dòng dữ liệu mà hỏi thế thì chịu thôi. Muốn có câu trả lời đúng thì gởi dữ liệu tương đối đầy đủ lên, cho kết quả tạm để mô tả cái bạn cần. Không cần viết dài dòng. Trong khi sheet chitiet chỉ có dữ liệu tới cột K vậy mà muốn có dữ liệu tới cột LMN. Thật sự không hiểu nổi. Câu hỏi của bạn chứa đựng huyền cơ thì phải.