Xin hỗ trợ SUBTOTAL bằng code

[Giahao2006]

Mình có bảng dữ liệu, trong sheet bên trai là mẫu, bên phải là kết quả, nhờ anh em hỗ trợ giúp ạ, cảm ơn anh em nhiều

 

[qtm1987]

Mình có bảng dữ liệu, trong sheet bên trai là mẫu, bên phải là kết quả, nhờ anh em hỗ trợ giúp ạ, cảm ơn anh em nhiều

Chọn toàn bộ vùng A2:H83 rồi chọn tab Data > Click Subtotal như hình:

Record marco lại thao tác này sẽ được đoạn code:

Sheets("sheet1").Range("A2:H83").Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5), Replace:=True, PageBreaks:=False, SummaryBelowData:=True

trong đó GroupBy:=1 là sum theo điều kiện mã tại cột A, TotalList=Array(5) là tính tổng Sum tại cột thứ 5 là cột E (cột Số lượng)
Bạn thử tùy chỉnh lại để được như ý muốn.

 

[Giahao2006]

Cảm ơn bạn, ý của mình muốn code dò theo MHH, ví dụ như từ dòng 1 tới dòng thứ 5 giống nhau, thì tới dòng thứ 6 nó chèn 1 dòng trống vào, rồi sau đó tổng số lượng lại, nếu không có chắc xài dòng code của bạn

 

[Giahao2006]

Nhờ anh em sửa giúp code sao cho kết qua ra giống bên phải ạ. cảm ơn mọi người nhiều, mới chôm được, ^^

 

[snow25]

Nhờ anh em sửa giúp code sao cho kết qua ra giống bên phải ạ. cảm ơn mọi người nhiều, mới chôm được, ^^

Sao không lấy data ở bài 1 mà lại thành data bài 4 vậy.

 

[Hai Lúa Miền Tây]

Nhờ anh em sửa giúp code sao cho kết qua ra giống bên phải ạ. cảm ơn mọi người nhiều, mới chôm được, ^^

Bạn dùng thử code sau nhé:

Sub TaoBaoCao_HLMT()
    Dim strSQL As String
    strSQL = "Select [MHH],[DVB],[DANH MUC],[DVT],[SL],[Don Gia],[Thanh Tien],[DVM] From [Data$] Where [DVM] Like '" & Sheet1.Range("M1").Value & "' Order By [MHH] " & _
           " Union All Select [MHH] & ' Total:','' As [DVB],'' As [DANH MUC],'' As [DVT],Sum([SL]),Null as [Don Gia],Sum([Thanh Tien]),'' As [DVM] From [Data$] Where [DVM] Like '" & Sheet1.Range("M1").Value & "' Group By [MHH] "
    With CreateObject("ADODB.Recordset")
        .Open ("Select * From (" & strSQL & ") Order By MHH"), "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0"""
        Sheet2.Range("A2:H5000").ClearContents
        Sheet2.Range("A2").CopyFromRecordset .DataSource
    End With
End Sub

 

[Giahao2006]

Anh "Hai lúa miền tây ơi,", mình gửi lại file bạn xem giúp mình được không ạ, code bạn mình paste vào nó báo lỗi, còn cái của mình thì nó ra subtotal ở phía dưới, cảm ơn bạn trước ạ

 

[Hai Lúa Miền Tây]

Anh "Hai lúa miền tây ơi,", mình gửi lại file bạn xem giúp mình được không ạ, code bạn mình paste vào nó báo lỗi, còn cái của mình thì nó ra subtotal ở phía dưới, cảm ơn bạn trước ạ

Bạn đã làm thiếu code của tôi ở trên rồi.

RecordSet.Open ("Select * From (" & SQL_Command & ") Order By [MHH]"), sConnect

 

[Giahao2006]

Dạ, cảm ơn " Hai Lúa Miền Tây " nhiều ạ, sau một hồi chỉnh tói chỉnh lui, cuối cùng cũng ra theo như ý muốn

MHH	DVB	DANH MUC	DVT	SL	Don Gia	Thanh Tien	DVM
lxk	VMYQ4	Lạp xưởng khô	kg	0.5​	273600​	136800​	TKHO
lxk Total:				0.5​		136800​
TK1	HDNB	Tôm khô số 1	kg	1.1​	610000​	671000​	TKHO
TK1	MNQ11	Tôm khô số 1	kg	1.1​	610000​	671000​	TKHO
TK1	Q11-MN10	Tôm khô số 1	kg	0.7​	610000​	427000​	TKHO
TK1	P14Q3	Tôm khô số 1	kg	0.2​	610000​	122000​	TKHO
TK1	BNGOAN5	Tôm khô số 1	kg	0.2​	671000​	134200​	TKHO
TK1	LUGIAQ11	Tôm khô số 1	kg	0.2​	610000​	122000​	TKHO
TK1	SC2Q12	Tôm khô số 1 ktra	kg	0.4​	610000​	244000​	TKHO
TK1 Total:				3.9​		2391200​
TK2	PERGOLA	Tôm khô số 2	kg	0.2​	444000​	88800​	TKHO
TK2	VH8	Tôm khô số 2	kg	0.1​	488000​	48800​	TKHO
TK2	CANABC	Tôm khô số 2	kg	0.1​	400000​	40000​	TKHO
TK2	HMI1Q12	Tôm khô số 2	kg	0.1​	488000​	48800​	TKHO
TK2	P11Q6	Tôm khô số 2	kg	0.1​	488000​	48800​	TKHO
TK2	Q7-TKIENG2	Tôm khô số 2	kg	0.1​	488000​	48800​	TKHO
TK2	P7Q6	Tôm khô số 2	kg	0.3​	488000​	146400​	TKHO
TK2	13QTB	Tôm khô số 2	kg	1.2​	488000​	585600​	TKHO
TK2	MNCANADA	Tôm khô số 2	kg	1​	400000​	400000​	TKHO
TK2	DMC	Tôm khô số 2	kg	1​	488000​	488000​	TKHO
TK2	QTP-CCNHO	Tôm khô số 2	kg	0.1​	400000​	40000​	TKHO
TK2	BHONG	Tôm khô số 2	kg	0.3​	488000​	146400​	TKHO
TK2	Q2-NNNHO	Tôm khô số 2	kg	0.2​	456000​	91200​	TKHO
TK2	TKIENG	Tôm khô số 2	kg	0.25​	488000​	122000​	TKHO
TK2	THCANADA	Tôm khô số 2	kg	0.2​	400000​	80000​	TKHO
TK2	VMYQ4	Tôm khô số 2	kg	0.2​	456000​	91200​	TKHO
TK2	Q2-QTCHAUAU	Tôm khô số 2	kg	0.2​	456000​	91200​	TKHO
TK2	P9Q3	Tôm khô số 2	kg	0.2​	488000​	97600​	TKHO
TK2	P9Q3	Tôm khô số 2	kg	0.5​	488000​	244000​	TKHO
TK2 Total:				6.35​		2947600​
TKDB	VHOA	Tôm khô đặc biệt	kg	0.1​	775200​	77520​	TKHO
TKDB	SC9Q12	Tôm khô đặc biệt	kg	0.1​	829600​	82960​	TKHO
TKDB Total:				0.2​		160480​