Giúp đở tính tổng các sheet theo tiêu đề. (1 người xem)

[med001]

chào các bạn. nhờ thành viên GPE giúp hướng dẩn mình bài tính số lượng tổng của nhiều sheet theo tiêu đề cho trước này nhé. cảm ơn diễn đàn nhiều

 

[ndu96081631]

chào các bạn. nhờ thành viên GPE giúp hướng dẩn mình bài tính số lượng tổng của nhiều sheet theo tiêu đề cho trước này nhé. cảm ơn diễn đàn nhiều

Giá mà bạn có thể tạo được các sheet con giống y chang nhau về mặt cấu trúc thì mọi chuyện sẽ trở nên đơn giản hơn rất nhiều

 

[Quang_Hải]

chào các bạn. nhờ thành viên GPE giúp hướng dẩn mình bài tính số lượng tổng của nhiều sheet theo tiêu đề cho trước này nhé. cảm ơn diễn đàn nhiều

Bạn bố trí dữ liệu đảo nghich nên khó nuốt thật nhưng cũng ráng coi sao

Sub baocao()
Dim dl, arr()
dl1 = Range([a5], [a65536].End(3)).Value
dl2 = Range([b4], [b4].End(2)).Value
ReDim arr(1 To UBound(dl1, 1), 1 To UBound(dl2, 2))
For Each sh In Worksheets
  If sh.Name <> "TONG" Then
  With sh
    sdl1 = .Range(.[c4], .[c4].End(2)).Value
    sdl2 = .Range(.[b5], .[b5].End(4).Offset(-1)).Resize(, UBound(sdl1, 2) + 1).Value
    For i = 1 To UBound(dl1, 1)
      For j = 1 To UBound(sdl1, 2)
        If dl1(i, 1) = sdl1(1, j) Then
          For ii = 1 To UBound(dl2, 2)
            For jj = 1 To UBound(sdl2, 1)
             If sdl2(jj, 1) = dl2(1, ii) Then
              arr(i, ii) = arr(i, ii) + sdl2(jj, j + 1)
             End If
            Next
          Next
        End If
      Next
    Next
  End With
  End If
Next
[b5].Resize(i - 1, ii - 1) = arr
End Su

 

[med001]

dạ ý thầy ndu là như vậy phải không ah

 

[Quang_Hải]

dạ ý thầy ndu là như vậy phải không ah

Có khác gì file đầu tiên đâu? Chỉ là cái file đã có VBA thôi mà. ???

 

[ndu96081631]

dạ ý thầy ndu là như vậy phải không ah

Ý tôi là vị trí các tiêu đề ấy
Ví dụ tại sheet 03.12, tiêu đề Cam My 2 nằm ở cell C4 thì tại các sheet khác, tiêu đề Cam My 2 của phải luôn nằm tại cell C4... Tương tự vậy với các tiêu đề khác
Đó chính là cách bố trí dữ liệu thông minh. Nên nhớ rằng cấu trúc dữ liệu ảnh hưởng rất lớn đến các công thức (hoặc code). Dữ liệu lộn xộn thì thôi, liệng vào sọt rác cho rồi, khỏi suy nghĩ thêm chi cho mất công (vì đàng nào nó cũng như đống rác)