Tổng hợp và phân tích dữ liệu (1 người xem)

[luudinhtuyen]

Mình có một số vấn đề mong mọi người giúp đỡ
Hàng ngày mình phải nhập dữ liệu vao một Sheet
Cuối tuần, tháng phải đưa ra một bbao cáo tổng hợp của tất cả tháng
Vậy có cách nào hàng ngày nhập vào thì sẽ tự động tổng hợp vào một bảng
Để sau đó lấy phân tích không?
Cảm ơn mọi người trước

 

[chucuoi92]

Bạn dùng hàm cộng theo điều kiện: hàm sumif() là được .

 

[SA_DQ]

Macro của bạn đây, xin mời xem thêm trong file đính kèm!

Sub TongHop()
 Dim sh As Worksheet, Code As Range, sRng As Range, Clls As Range, Ten As Range
 Dim Rng As Range, MyColor As Byte
 Dim MyAdd As String, Tim As String
 
 Set sh = Sheets("BaoCao"):                     Sheets("Loi").Select
 Set Ten = sh.Range(sh.[B10], sh.[b65500].End(xlUp))
 Set Code = Ten.Offset(, 1):
 With [C2].Interior
   If .ColorIndex = 42 Then .ColorIndex = 34 Else .ColorIndex = .ColorIndex + 1
 End With
 Range("C3:C" & [b65500].End(xlUp).Row).Clear
 For Each Clls In Range([B3], [b65500].End(xlUp))
   If Clls.Value = "new" Then
      Set Rng = Ten:                            Tim = Clls.Offset(, -1).Value
   Else
      Set Rng = Code:                           Tim = Clls.Value
   End If
      Set sRng = Rng.Find(Tim, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            With Clls.Offset(, 1)
               .Value = .Value + sRng.Offset(, IIf(Clls.Value = "new", 3, 2)).Value
            End With
            Set sRng = Rng.FindNext(sRng) '
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
 Next Clls
End Sub

Các chú í khi dùng:

(*) Macro sẽ chép các lỗi sang trang tính tên là 'Loi'

(*) Bạn tổng hợp kết quả sai, cần kiểm lại

(*) . . . .


Chúc vui!

 

[Thanh1102]

Mong các bác giúp đỡ. Em xin chân thành cảm ơn trước.
Em muốn báo cáo số liệu theo từng tháng/năm của bảng báo cáo NXT trong năm
(Có bảng dữ liệu đính kèm)