Công thức nào tính tổng số lượng mặt hàng theo kho?

[ThangAcc]

Tôi có 1 bài tập thế này, chưa làm được, các bác chỉ giúp: Làm thế nào để chuyển từ Bảng 1 sang Bảng 2:

Tôi đã dùng Pivot Table, cũng chuyển được nhưng bảng 2 chỉ có cột Mã sản phẩm, Kho X, Kho Y mà không thể có cột Tên sản phẩm, Đơn vị tính (Nên vẫn phải dùng Vlookup để chuyển nốt sang, thủ công quá). Bác nào biết cách làm thế nào để có thể có đủ bảng 2 từ bảng 1 xin chỉ giúp.

 

[nvson]

Bài này bạn sử dụng hàm Sumproduct là Ok ngay thôi.
Bạn tải file sau về, thích sử dụng hàm cũng được, Marco cũng được.
(Bạn thay đổi tên bài viết đi nhé, không sẽ bị xoá đấy!)

 

[ThangAcc]

Thanks bác. Vấn đề của em bây giờ thế này:
- Cuối mỗi tuần, Sếp yêu cầu báo cáo theo bảng 2, mà phần mềm kế toán chỉ có thể in ra được cái bảng 1, nên em cần chuyển sang bảng 2 từ bảng 1 (Cách làm nào là chuyên nghiệp nhất ý ạ)
- Số lượng sản phẩm có ở trong kho rất nhiều, những sản phẩm không còn tồn trong kho thì không cần in ra, khi phát sinh sản phẩm mới (nhập về) thì phải thêm vào danh sách.
- Sử dụng hàn Sumproduct như của bác nvson thì em hiểu là phải có danh sách SPA, SPB, ... rồi, nhưng điều này là không thể, em post lên đây cả danh sách cho các bác xem xét hộ em. Bảng em post lên đây là bảng được in ra từ phần mềm kế toán, bây giờ phải làm bảng 2 để nộp cho Sếp ạ.

 

[nvson]

Bạn hãy sử dụng Macro sau đây:
(Chú ý đặt tên cho sheet chứa dữ liệu là Data)

Option Explicit
Public Sub Tonghop_SP()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim n As Long, i As Long, m As Long
Dim rngKho As Range
Dim shtData As Worksheet
Set shtData = Sheets("Data")
Dim sht_Tam As Worksheet
Dim sht_Active As Worksheet
Set sht_Active = Worksheets.Add
Set sht_Tam = Worksheets.Add
shtData.Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=sht_Active.Range("A3"), Unique:=True
shtData.Columns("E:E").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=sht_Tam.Range("A1"), Unique:=True
n = WorksheetFunction.CountA(sht_Tam.Range("A:A")) - 1
For i = 1 To n
    sht_Active.Cells(3, i + 3).Value = sht_Tam.Cells(i + 1, 1).Value
Next i
sht_Active.Cells(3, n + 4) = "Tong"
i = n
n = WorksheetFunction.CountA(sht_Active.Range("A:A")) - 1
m = WorksheetFunction.CountA(shtData.Range("A:A"))
sht_Active.Range("D4", Cells(4 + n - 1, i + 3).Address).Formula = _
"=SUMPRODUCT((Data!$A$2:$A$" & m & "=$A4)*(Data!$E$2:$E$" & m & "=D$3),Data!$D$2:$D$" & m & ")"
sht_Active.Range(Cells(4, i + 4).Address, Cells(4 + n - 1, i + 4).Address).FormulaR1C1 = "=SUM(RC[-" & i & "]:RC[-1])"
sht_Tam.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

 

[ThangAcc]

Đúng rồi bác ạ, em đang cần cái này quá, Thanks bác nhiều.
Nhưng mà không biết sau này thêm vài cái kho nữa thì có dùng được không bác nhỉ? Em dốt nát về VB lắm, copy nguyên đoạn code của bác vào thôi chứ không hiểu cái gì cả.

 

[nvson]

Bạn có thể thêm nhiều kho hoặc nhiều sản phẩm nữa cũng được.
Nhưng số liệu mà nhiều quá thì cũng hơi chậm chút thôi.

 

[iLike]

Em cho rằng lập trình hay nhất là không phải lập trình
Pivot table làm việc này nhanh như trở bàn tay mà bác
em không biết cách upload lên cho bác coi cái file nhưng nếu bác cho em địa chỉ email, em sẽ gửi cho bác xem
i mèo của em: nguyen.tranhuy@the-ascott.com

 

[Mr Okebab]

Tôi có 1 bài tập thế này, chưa làm được, các bác chỉ giúp: Làm thế nào để chuyển từ Bảng 1 sang Bảng 2:

Tôi đã dùng Pivot Table, cũng chuyển được nhưng bảng 2 chỉ có cột Mã sản phẩm, Kho X, Kho Y mà không thể có cột Tên sản phẩm, Đơn vị tính (Nên vẫn phải dùng Vlookup để chuyển nốt sang, thủ công quá). Bác nào biết cách làm thế nào để có thể có đủ bảng 2 từ bảng 1 xin chỉ giúp.

Bạn xem qua nhé. Khi bạn thêm SP hoặc kho thì nó sẽ tự động thêm SP và kho vào bảng tổng hợp cho bạn.
Bạn có thể dùng VBA để tự động tính toán. Tính xong, copy dán giá trị lên (để file nhẹ hơn), sort theo Sản phẩm , Sort theo kho, hide các cột và hàng ẩn. (Cho dễ nhìn)
Thân !

 

[TRANG_83]

Mình cũng có yêu cầu giống vậy nhưng chỉ khác là mình làm bảng tổng hợp ở 01 file riêng và mình không cần phân loại theo kho , bạn nào biết giúp mình với .
Cảm ơn nhiều .. nhiều nghe !