CỘNG TỔNG CÁC DỮ LIỆU CÓ ĐIỀU KIỆN VÀO 1 SHEET DỮ LIỆU TỔNG (1 người xem)

[Haiyen2402]

Xin lỗi các bác nếu vấn đề này đã có cao thủ hỏi rồi. Em đang gặp phải một vấn đề như sau. Em có các sheet chứa dữ liệu, mỗi loại sản phẩm đều có mã hàng, bây giờ em muốn cộng các mã sản phẩm giống nhau trên các sheet về 1 sheeet dữ liệu chung "Báo cáo". Các bác cho em xin giải pháp nào hiệu quả với ạ. Em gửi link excel của em ở đính kèm ạ:

 

[HeSanbi]

Cô gái dùng Code VBA thì thử code sau xem sao
---------------------------------------------------
Bấm Alt+F11 để mở VBE, chuột phải vào VBProject rồi Insert module, copy code dưới vào module đó
Sau đó để chuột vào phần code và ấn F5
Hoặc tải vào Trang tính một ảnh bất kì, chuột phải vào ảnh chọn Assign Macro
Sau đó chọn test ấn OK
Lúc này chỉ cần Click vào ảnh là code sẽ được thực hiện
Để code sử dụng lâu dài, bạn cần lưu file ở dạng xlsm hoặc xlsb
---------------------------------------------------
Nếu bạn thực sự là cô gái trẻ thì nên bỏ gọi "bác"

Sub test()
  Dim Wsc&, Wss&: Wss = Worksheets.Count
  Dim i&, j&, UBe&, UBa&, SanXuat, aTotal&(), BC
  With Worksheets("Báo Cáo")
    BC = .Range("C6:C" & .Range("C6").End(xlDown).Row).Value
  UBa = UBound(BC)
  ReDim aTotal(1 To UBa, 1 To 1)
  For Wsc = 3 To Wss
    If Worksheets(Wsc).Name Like "[1-9]*.*" Then
      SanXuat = Worksheets(Wsc).[A10].CurrentRegion
      UBe = UBound(SanXuat)
      For i = 1 To UBa
        For j = 3 To UBe
          If BC(i, 1) = SanXuat(j, 4) Then
            aTotal(i, 1) = aTotal(i, 1) + SanXuat(j, 8)
  End If: Next j, i: End If: Next Wsc
  .[M5].Value = _
  "S" & ChrW(7889) & " l" & ChrW(432) & ChrW(7907) & "ng t" & ChrW(7893) & "ng"
  .[M6].Resize(UBa).Value = aTotal
End With
End Sub

 

[Haiyen2402]

Thanks bác. Em chưa dùng VBA bao giờ nên làm theo nhưng nó ko ra ạ. Hic Hic. (Em 27 rùi nên gọi bác xưng em cho trẻ ạ )

 

[HeSanbi]

@Haiyen2402
Vậy tải file sau về và click vào cái nút lạ lạ

 

[snow25]

Vậy tải file sau về và click vào cái nút lạ lạ

Nút nào lạ lạ vậy bạn.

 

[HeSanbi]

Nút nào lạ lạ vậy bạn.

Bạn tìm kiếm Google "Nút lạ lạ là nó như thế nào" xem sao

 

[Haiyen2402]

hic. nó báo là ko thể chạy ạ

Bạn tìm kiếm Google "Nút lạ lạ là nó như thế nào" xem sao

 

[HeSanbi]

hic. nó báo là ko thể chạy ạ

Khi bạn mở file lên thì excel cảnh báo file chứa Macro , bạn có cho phép Macro chạy hay không.
Trong trường hợp trên bạn đã không cho phép Macro chạy rồi. Bạn ấn vào Enable Macro lúc file đang được mở

Thêm một lời khuyên nhỏ. Nếu máy tính là của bạn thì hãy nâng cấp Window 10 và lên Office 2016 trở lên ngay thôi
Không thì bạn nên xử dụng Google Spreadsheet thay vì Microsoft Office

 

[HieuCD]

Xin lỗi các bác nếu vấn đề này đã có cao thủ hỏi rồi. Em đang gặp phải một vấn đề như sau. Em có các sheet chứa dữ liệu, mỗi loại sản phẩm đều có mã hàng, bây giờ em muốn cộng các mã sản phẩm giống nhau trên các sheet về 1 sheeet dữ liệu chung "Báo cáo". Các bác cho em xin giải pháp nào hiệu quả với ạ. Em gửi link excel của em ở đính kèm ạ:

9 sheet thì dùng 9 sumif cộng lại

 

[dazkangel]

Làm thử, nhưng công thức ra không giống kết quả của bạn: